[Yardım]  bir sayfadan diğer sayfaya veri çekme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

bir sayfadan diğer sayfaya veri çekme

İleti#1)  iremkırlı » 24 Haz 2020 16:18

Merhaba, ekteki excel dosyasındaki "stokbundle" sayfasındaki ilk satıra userformdan veri girildikçe stok kodu eklenmektedir. "stokbundle" sayfasındaki A sütunu yılın haftalarını göstermektedir. "stok bundle" sayfasındaki siparişi gelmiş ürünleri userformdaki listboxta düzenli bir şekilde göstermek için "siparişgelmişürün" sayfasına otomatik olarak stok kodu, sipariş miktarı ve sipariş haftası ilgili kolonlara çekilmek isteniyor. Hangi haftadaysak o haftanın ve bir sonraki haftanın siparişi gelmiş ürünlerini stok kodu ve stok miktarıyla birlikte "siparişgelmişürün" sayfasında göstermesini istiyorum. Yardımcı olabilirseniz çok sevinirim. Teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
iremkırlı
Yeni Başlamış
 
Kayıt: 02 Haz 2020 21:43
Meslek: Öğrenci
Yaş: 22
İleti: 12
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: bir sayfadan diğer sayfaya veri çekme

İleti#2)  Yasin KURT » 25 Haz 2020 07:59

Stokbundle sayfasındaki hangi sütunları diğer sayfaya aktarmak istiyorsunuz ?
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 00:18
Konum: ANKARA
Yaş: 38
İleti: 3276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: bir sayfadan diğer sayfaya veri çekme

İleti#3)  iremkırlı » 26 Haz 2020 00:52

'B1' satırından 'G1' satırına kadar olan stok kodları 'siparişi gelmiş ürün' sayfasındaki A sütununa çekmek istiyorum.
B4' satırından 'G4' satırına kadar olan 'sipariş miktarı' 'siparişi gelmiş ürün' sayfasında ki B sütununa çekmek istiyorum.
'siparişi gelmiş ürün' sayfasında ki C sütununa ise 'stok bundle' sayfasındaki ürünler hangi haftada gözüküyorsa o haftayı ve yaklaşan birinci haftayı çekmek istiyorum. Örneğin; Bugün yılın 26. haftasıdır. Dolayısıyla 'stok bundle' sayfasındaki 'A30' satıra denk gelir. Bu satırda dolu olan tüm hücreler ise 'siparişi gelmiş ürün' sayfasına çekmek istiyorum. Yani bugünün tarihi için 'siparişi gelmiş ürün' sayfasındaki görüntü şöyle olmalıdır:

stok kodu Sipariş Miktarı Hafta sayısı
ABC 4 2020_26
FRKR0116040021010416-UO 5 2020_26
.....vs
Umarım anlatabilmişimdir. Yardımlarınız için şimdiden teşekkür ederim :) [TESEKKÜR]
Kullanıcı avatarı
iremkırlı
Yeni Başlamış
 
Kayıt: 02 Haz 2020 21:43
Meslek: Öğrenci
Yaş: 22
İleti: 12
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: bir sayfadan diğer sayfaya veri çekme

İleti#4)  Yasin KURT » 26 Haz 2020 07:33

Bu kodu deneyebilirsiniz.
Kod: Tümünü seç
Sub aktar()
Dim s1, s2 As Worksheet
Set s1 = Sheets("siparişgelmişürün")
Set s2 = Sheets("stokbundle")

s1.Range("a2:c" & Rows.Count).Cells.ClearContents
Dim tarih As Date, hafta As Integer
tarih = Date
hafta = DatePart("ww", tarih, vbMonday, vbFirstJan1)

For i = 5 To 56
    If Split(s2.Cells(i, 1), "_")(1) = hafta Or Split(s2.Cells(i, 1), "_")(1) = hafta + 1 Then
        For t = 2 To 7
            Dim ss As Integer
            ss = s1.Range("a" & Rows.Count).End(3).Row
            If s2.Cells(i, t) <> "" Then s1.Cells(ss + 1, 1) = s2.Cells(1, t): s1.Cells(ss + 1, 2) = s2.Cells(i, t): s1.Cells(ss + 1, 3) = s2.Cells(i, 1)
        Next
    End If
Next

End Sub
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 00:18
Konum: ANKARA
Yaş: 38
İleti: 3276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: bir sayfadan diğer sayfaya veri çekme

İleti#5)  iremkırlı » 29 Haz 2020 13:39

Çok teşekkür ederim emeğiniz için, büyük yardımınız oldu. [TESEKKÜR]
Kullanıcı avatarı
iremkırlı
Yeni Başlamış
 
Kayıt: 02 Haz 2020 21:43
Meslek: Öğrenci
Yaş: 22
İleti: 12
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara/Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe