excel veri karsılastırma

[albatros26]

arkadaslar

sayfa 1 de 1 sutunda ad ve 2ci sutunda ise soyad listesi var
sayfa2 de ise karısık bir ad soyad listesi var aynı şekilde onlarda sutun seklinde ad ve soyad şeklinde
ve sayfa3 var sayfa3 içi boş sayfa1 deki ad ve soyad'ları
sayfa 2 de varsa sayfa 3 e yazdırmak istiyorum 2 sutun şeklinde

Yardımcı Olucak Arkadas Varmı Acaba ?

 

[albatros26]

yardımlarınızı bekliyorum arkadaslar

 

[Murat OSMA]

Dosyanızı ekleyin lütfen...

 

[albatros26]

Ekledim Hocam Gerekli Yere Yazdım

 

[Orion1]

Dosyanız ektedir.
Öğrenci no larına göre listeliyor.

Sub devamsızlık59()
Dim s1 As Worksheet, s2 As Worksheet, k As Range
Dim sat1 As Long, sat2 As Long, sat3 As Long, i As Long
Sheets("Kurtarılacak").Select
Application.ScreenUpdating = False
Range("A5:G" & Rows.Count).ClearContents
Set s1 = Sheets("Liste")
Set s2 = Sheets("DEVAMSIZ ÖGR.")
sat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
sat2 = s2.Cells(Rows.Count, "C").End(xlUp).Row
sat3 = 2
For i = 5 To sat2
    Set k = s1.Range("A2:A" & sat1).Find(s2.Cells(i, "C").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Range("A" & sat3 & ":G" & sat3).Value = s2.Range("A" & i & ":G" & i).Value
        sat3 = sat3 + 1
    End If
    Set k = Nothing
Next i
Set s1 = Nothing
Set s2 = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName

End Sub