Aradaki farkı bulma

[rufuk]

Selamlar ,

Ekli dosyada 2 ayrı sütün da 2011 yılı ile 2012 yılı arasındaki farkları bulmak (olan yada olmayan/değişen değişmeyen ) istiyorum.
Nasıl yapabilirim?

Yardımınız için şimdiden teşekürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub benzersizler()
Dim sat As Integer
Dim s As Integer
Range("d2:e" & Rows.Count).ClearContents
s = 2
    son = Cells(Rows.Count, "c").End(xlUp).Row
    For sat = 2 To Cells(Rows.Count, "a").End(xlUp).Row
    Set bul = Range("c2:c" & son).Find(Cells(sat, "a"), , xlValues, xlWhole)
        If bul Is Nothing Then
            Cells(s, "d") = Cells(sat, "a")
            s = s + 1
        End If
    Next
    '
s = 2
    son = Cells(Rows.Count, "c").End(xlUp).Row
    For sat = 2 To Cells(Rows.Count, "a").End(xlUp).Row
    Set bul = Range("c2:c" & son).Find(Cells(sat, "a"), , xlValues, xlWhole)
        If Not bul Is Nothing Then
            Cells(s, "e") = Cells(sat, "a")
            s = s + 1
        End If
    Next

End Sub

 

[rufuk]

Cevap için teşekürler , sanırım işlemde bir hata var ,

8542.32.45.00.00 Bu her iki listede varken benzersizlere atmış ,
9008.20.00.00.00bunu iki defa yazmış ,

Saygılar.

Sub benzersizler()
Dim sat As Integer
Dim s As Integer
Range("d2:e" & Rows.Count).ClearContents
s = 2
    son = Cells(Rows.Count, "c").End(xlUp).Row
    For sat = 2 To Cells(Rows.Count, "a").End(xlUp).Row
    Set bul = Range("c2:c" & son).Find(Cells(sat, "a"), , xlValues, xlWhole)
        If bul Is Nothing Then
            Cells(s, "d") = Cells(sat, "a")
            s = s + 1
        End If
    Next
    '
s = 2
    son = Cells(Rows.Count, "c").End(xlUp).Row
    For sat = 2 To Cells(Rows.Count, "a").End(xlUp).Row
    Set bul = Range("c2:c" & son).Find(Cells(sat, "a"), , xlValues, xlWhole)
        If Not bul Is Nothing Then
            Cells(s, "e") = Cells(sat, "a")
            s = s + 1
        End If
    Next

End Sub