iki sayfayı karşılaştırıp eşleşenleri karşısına yazdırma

[durhan]

Arkadaşlar ekli dosyada; Sayfa1 deki TC numaraları ile Sayfa2 deki TC numaraların karşılaştırıp eşleşenleri Sayfa2 deki TC numaralarının karşısına yazmasını istiyorum. Ancak nasıl bir formül uygulayacağımı bilemedim. İlgilenen arkadaşlara teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sh As Worksheet, sat1 As Long, sat2 As Long, i As Long
Dim k As Range
Set sh = Sheets("Sayfa1")
Sheets("Sayfa2").Select
Range("C:E").Clear
sat1 = Cells(Rows.Count, "B").End(xlUp).Row
sat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To sat1
 Set k = sh.Range("A2:A" & sat2).Find(Cells(i, "B").Value, , xlValues, xlWhole)
 If Not k Is Nothing Then
    sh.Range("B" & k.Row & ":C" & k.Row).Copy Range("C" & i)
    Set k = Nothing
 End If
Next i
Set sh = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & _
        "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
    
End Sub

 

[durhan]

Sayın Orion1; elinize sağlık işimi gördü, teşekkürler

 

[durhan]

Sayın Orion1, tam istediğim gibi olmuş, elinize sağlık

 

[Orion1]

Sayın Orion1; elinize sağlık işimi gördü, teşekkürler

Sayın Orion1, tam istediğim gibi olmuş, elinize sağlık

Rica ederim.iyi çalışmalar.