Eşleşenleri bul aktar

[ADER_34]

Merhaba hayırlı akşamlar arkadaşlar bi konuda takıldım yardımcı olurmusunuz?
örnek çalışma kitabımda 3 sayfa var,ben sayfa13 den,sayfa10,a günlük tarihe göre veri aktarıyorum buraya kadar sorun yok ,fakat sayfa10 da "B" ve "D" "F" sütunlarına,sayfa10 "A" Sütünü,Sayfa24, "CI" sütununa bak eşleştir eşleşenleri aktar,sayfa10 "B" Sütünu sayfa24 "AY" sütunundaki eşleşenleri,Sayfa 10 "F" Sütununa sayfa24 ,BC, sütunlarındaki eşleşen verileri aktarmak istiyorum kolay gelsin teşekkürler..

 

[ADER_34]

Dosya linkim
http://s8.dosya.tc/server2/3rsb9w/GUNLUK_VERI.rar.html

 

[veyselemre]

Sub test()
    For i = 2 To Sayfa10.Cells(Rows.Count, "A").End(3).Row
        For ii = 2 To Sayfa24.Cells(Rows.Count, "CI").End(3).Row
            If Sayfa10.Cells(i, "A").Value = Sayfa24.Cells(ii, "CI").Value Then
                Sayfa10.Cells(i, "B").Value = Sayfa24.Cells(ii, "AY").Value
                Sayfa10.Cells(i, "D").Value = Sayfa24.Cells(ii, "AW").Value
                Sayfa10.Cells(i, "F").Value = Sayfa24.Cells(ii, "BC").Value
                Exit For
            End If
        Next ii
    Next i
End Sub

 

[ADER_34]

Çok çok teşekkür ederim Veysel bey,kodlar sorunsuz gerçekten kod yazma konusunda çok iyisiniz,kolay gelsin sorun çözülmüştür,,

 

[ADER_34]

Veysel bey eğer zahmet olmazsa kodlara ilave olarak sayfa10 "A" sütununda mükerer kayıt olan sayfa24 de "CI" sütununda da mükerer olup eşleşen kayıtların hepsinin gelmesi mümkün mü? kodlar şuan çift kayıttan 1 tanesini aktarıyor kolay gelsin.

 

[ADER_34]

Veysel bey yarsımcı olurmusunuz? kolay gelsin

 

[veyselemre]

Örneğinizde mükerrer kayıt yok, tüm alternatifleri içeren örnek ekleyin.

 

[Saban Sertkaya]

........................