isim eşleme

[birader]

merhaba değerli hocalarım.eklediğim dosyada sayfa 1 ve sayfa 2 deki tablolarda bulunan aynı isimleri başka bir sayfada yan yana eşlemesini yapmak istiyorum.nasıl yapabilirim.teşekürler..

 

[Orion1]

Dosyanız ektedir.

Sub eslesenler()
Dim sat1 As Long, sat2 As Long, sat3 As Long, s1 As Worksheet, s2 As Worksheet
Sheets("EŞLEŞENLER").Select
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
sat1 = s1.Cells(65536, "B").End(xlUp).Row
sat2 = s2.Cells(65536, "B").End(xlUp).Row
sat3 = 2
For i = 2 To sat1
    If WorksheetFunction.CountIf(s2.Range("B2:B" & sat2), s1.Cells(i, "B").Value) > 0 Then
        Cells(sat3, "A").Value = sat3 - 1
        Cells(sat3, "B").Value = s1.Cells(i, "B").Value
        sat3 = sat3 + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Eşleşenler aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub