2 listedeki farkı bulmak

[serkanım]

Merhaba
2 ayrı listedeki verileri karşılaştırarak farkları ayrı bir sutuna sıralamak istiyorum.Dosya içerisine açıklama yazdım.Böyle bişey yapılabilirmi?
Acil olarak yardımlarınızı bekliyorum.
Teşekkür ederim..

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Bul_Yaz()
 
    Dim sat1 As Long, sat2 As Long, i As Long, c As Range
    Dim say1 As Integer, say2 As Integer, d As Range, art As Byte
 
    Range("H2:I" & Rows.Count).ClearContents
 
    sat1 = 2: sat2 = 2
    For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            Set c = Range("G:G").Find(Cells(i, "C"), , xlValues, xlWhole)
            If Not c Is Nothing Then
                art = 0
                If Cells(i, "B") = "" Then art = 1
                say1 = Cells(i + art, "B").End(xlDown).Row - Cells(i + 1, "B").Row
                art = 0
                Set d = Range("E:E").Find(Cells(i, "A"), , xlValues, xlWhole)
                If Cells(d.Row, "F") = "" Then art = 1
                If Not d Is Nothing Then
                    say2 = Cells(d.Row + art, "F").End(xlDown).Row - (d.Row + art)
                End If
                If say1 <> say2 Then
                    Cells(sat2, "I") = Cells(i, "C")
                    sat2 = sat2 + 1
                End If
            Else
                Cells(sat1, "H") = Cells(i, "C")
                sat1 = sat1 + 1
            End If
        End If
    Next i
 
End Sub

.