Karşılaştır ve olmayanları listele

[ipkins]

arkadaşlar sütun 1 de bulunan değerlerle sütun 2 de bulunan değerleri karşılaştırmak ve benzersiz olanları sütun 3 de listelemek istiyorum. örnek bir dosya ekliyorum bu dosyada formüllerle yapılmış hali var fakat bunu makro ile yapma imkanımız bulunurmu. sütun1 ve sütun 2 karşılaştırılacak ve sütun 2 de olmayan fakat sütun1 de olanlar sütun3 de listelenecek. yardımcı olacak arkadaşlara şimdiden çok teşekkürler.

 

[Ömer]

Merhaba,

Sub OlmayanıListele()
son = [A65536].End(3).Row
Range("C3:C65536").ClearContents
sat = 3
For i = 3 To son
    If WorksheetFunction.CountIf(Range("B3:B" & son), Cells(i, "A").Value) _
    = 0 Then
        Cells(sat, "c") = Cells(i, "a")
        sat = sat + 1
    End If
Next i
End Sub

Bu şekilde deneyin..

.

 

[ipkins]

ellerinize ve bilginize sağlık tam işimi gördü fakat veriler çoğaldıkça yavaş çalışıyor. ama işimi tam gördü istediğim buydu çok teşekkür ederim. yavaş çalışmasına bir çözüm üretilebilirmi.

 

[schahi]

Yukarıdaki koda ilaveten, A veya B Sutundaki Mükerrer verileri, C Sutununda bir kere nasıl yazdırabiliriz..

 

[Ömer]

Bu şekilde kullanabilirsiniz..

Sub OlmayanıListele()
son = [A65536].End(3).Row
Range("C3:C65536").ClearContents
sat = 3
For i = 3 To son
    If WorksheetFunction.CountIf(Range("B3:B" & son), Cells(i, "A").Value) _
    = 1 And WorksheetFunction.CountIf(Range("A3:A" & i), Cells(i, "A").Value) _
    = 1 Then
        Cells(sat, "c") = Cells(i, "a")
        sat = sat + 1
    End If
Next i
End Sub

.