2 excel sayfasını nasıl karşılaştıracam

[yukselim]

elimde bir excel dosyası var bunun 2 sayfası var bu sayfalarda kişiler var ben birinci ve ikinci sayfada aynı kişi varsa bunu 3.sayfaya nasıl yazdıracam çok uğraştım olmadı. ektedir.

 

[Orion1]

Dosyanız ektedir.
TC kimlik No lara göre yapıldı..

Sub mukerrer()
Dim s1 As Worksheet, s2 As Worksheet
Dim i As Long, sat As Long, sat1 As Long, sat2 As Long
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Sheets("Sayfa3").Select
Range("A2:E65536").ClearContents
sat = 2
sat1 = s1.Cells(65536, "A").End(xlUp).Row
sat2 = s2.Cells(65536, "A").End(xlUp).Row
For i = 2 To sat1
    If WorksheetFunction.CountIf(s2.Range("A2:A" & sat2), s1.Cells(i, "A").Value) > 0 Then
        Range("A" & sat & ":E" & sat).Value = s1.Range("A" & i & ":E" & i).Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Mükerrere kayıtlar aktarıldı" & vbLf _
& "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[yukselim]

çok teşekkür ederim..

 

[Orion1]

çok teşekkür ederim..

Rica edrim.