Makro ile Vlook kullanarak kopyala yapistir yardim

Katılım
23 Mayıs 2014
Mesajlar
44
Excel Vers. ve Dili
2007-Fransizca
Iyi gunler
Bir konuda yardimlarinizi bekliyorum.

Sayfa 1 de A sutununda sayilardan olusan bir listem var. B sutununda ise her sayiya karsilik gelen isimlerden olusan bir listem var.
Sayfa 2 de A sutununda sayilardan olusan bir listem var. B sutununda ise her sayiya karsilik gelen bir tarihlerden olusan bir listem var.
Benim sorum su :
Sayfa 1 de A5 hucresindeki sayinin karsiligina denk gelen B5 hucresindeki isimi bir makro yardimi ile sayfa 2 deki A sutununda bulunan ayni sayinin oldugu satirin C sutununa kopyalamak.

Yardimlariniz için simdiden çok tesekkurler
 

faye_efsane

Altın Üye
Altın Üye
Katılım
1 Eylül 2008
Mesajlar
393
Excel Vers. ve Dili
2010 TR
2019 TR
İyi günler.

Aşağıdaki kodlar ile istediğinizi yapabilirsiniz.

Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
Satırındaki Sayfa1 ve Sayfa2 isimleri sekme üzerindeki isimlerdir.

İkinci satırdan itibaren karşılaştırma yapar, farklı bir satırdan başlatmak isteseniz For x = 2 To... ve For y = 2 To... satırlarındaki 2 değerini değiştiriniz.

Kod:
Sub kopyala()
Dim s1 As Worksheet, s2 As Worksheet

Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")

For x = 2 To s2.Cells(Rows.Count, 1).End(3).Row
    For y = 2 To s1.Cells(Rows.Count, 1).End(3).Row
        If s2.Cells(x, 1).Value = s1.Cells(y, 1).Value Then
            s2.Cells(x, 3).Value = s1.Cells(y, 2).Value
        End If
    Next y
Next x

Set s1 = Nothing: Set s2 = Nothing
End Sub
 
Üst