liste karşılaştırma

[ersoy_2000]

merhaba
çalışma kitabının içinde bulunan
sheet1 A sütünunda da olup da sheet2 A sütünunda olmayan kodları karşılaştırmak istiyorum nasıl yapabilirim.
teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub b()
Dim sat As Integer
Dim son As Integer
Sayfa3.[a2:ıv65536].Clear
Sayfa2.[a1:a65536].Copy Sayfa1.[ıv1]
s = 2
    son = Sayfa1.Cells(65536, "a").End(xlUp).Row
    For sat = 2 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("ıv1:ıv" & son), Sayfa1.Cells(sat, "a")) = 0 Then
            Range(Sayfa1.Cells(sat, "a"), Sayfa1.Cells(sat, "b")).Copy Sayfa3.Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

 

[ersoy_2000]

verdiğiniz kod işimi gördü teşekkür ederim.
Bu işlemin her zaman kullanabileceğim bir kısa yolu varmı?office 2007 kullanıyorum.
teşekkür ederim.