Excelde sayfaları eşleştirme

[EverQuesT]

Merhaba,
Excel dosyasında sayfa1 sayfa2 ve sayfa3 varsayalım. Sayfa2yi A sütununu 4. satırdan itibaren komple tarayıp sayfa1 ile A sütunu 4.satır itibari ile eşleştirecek ve sayfa1 de olmayanları sayfa 3e yazacak. (Sayfa3e tüm a b c d e f ne kadar satır var ise kaydedecek)
http://www.vipmarka.net/ornek.xls adresine bir adet örnek yaptım. Bu şekilde rica ediyorum.

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Sub aktar59()
Dim s1 As Worksheet, s2 As Worksheet, k As Range
Dim i As Long, sonsat1 As Long, sonsat2 As Long, sat As Long
Sheets("Sayfa3").Select
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Range("A4:AS" & Rows.Count).ClearContents
sonsat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row
sat = 4
Application.ScreenUpdating = False
For i = 4 To sonsat2
    If WorksheetFunction.CountIf(s1.Range("A4:A" & sonsat2), s2.Cells(i, "A").Value) = 0 Then
        s2.Range("A" & i & ":AS" & i).Copy Range("A" & sat)
        sat = sat + 1
    End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Eşleşmeyenler aktarıldı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[EverQuesT]

Tam aradığım gibi, ellerinize sağlık.