Veri eşleştirme hakkında yardım

[hrryet]

Arkadaşlar Merhaba.

Öncelikle sitede emeği geçen herkese teşekkür ederim..

Sitede aramadığım yer kalmadı fakat yapmak istediğimi bulamadım.

Benim sizlere sorum şöyledir:

Aynı kitapta 2 farklı excell sayfam var ve her iki sayfada da aynı başlık ve içerikte tablom var. Bu sayfadaki tabloları karşılaştırıp, tablodaki tüm veriler eşleşiyorsa doğum tarihi kolonundaki verileri getirtmek istiyorum.

Ömer Bey çok sağolsun "indis" kullanarak yardımcı oldu. Fakat ben bunu makro ile yapmak istiyorum çünkü 200 binden fazla satırım var.


Konunun detayı ekli dosyamda mevcut. Yardımlarınıza çok ihtiyacım var.

Şimdiden teşekkür ederim.

 

[halit3]

bu kodu denermisiniz

Sub aktar()
sut = WorksheetFunction.CountA(Worksheets("ANASAYFA").Range("b2:b65000")) + 2
sat = WorksheetFunction.CountA(Worksheets("durum").Range("A2:A65000")) + 2
deg1 = ""
deg2 = ""
deg3 = ""
For i = 2 To sut
deg1 = Worksheets("ANASAYFA").Cells(i, 2).Value
deg2 = Worksheets("ANASAYFA").Cells(i, 3).Value
deg3 = Worksheets("ANASAYFA").Cells(i, 4).Value
deg4 = ""
deg5 = ""
deg6 = ""
For j = 2 To sat
deg4 = Worksheets("durum").Cells(j, 1).Value
deg5 = Worksheets("durum").Cells(j, 2).Value
deg6 = Worksheets("durum").Cells(j, 3).Value
If deg1 & deg2 & deg3 = deg4 & deg5 & deg6 Then
Worksheets("ANASAYFA").Cells(i, 1).Value = Worksheets("durum").Cells(j, 4).Value
End If
Next j
Next i
MsgBox "işlim tamam"
End Sub

 

[hrryet]

Emeğinize sağlık. Harikasınız.

Tam istediğim şeyi yapıyor. Çok çok teşekkür ederim.

Saygılarımla.

 

[halit3]

iyi çalışmalar