Benzersizleri bul

[nadirornek]

A sutununda olupta B sutununda olmayanları C sutununa macro ile yazdırabilirmiyiz.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Listele()
    Dim X As Long, Say As Long, Satir As Long
    
    Satir = 2
    Range("C2:C" & Rows.Count).ClearContents
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, 1) <> "" Then
            Say = WorksheetFunction.CountIf(Range("B:B"), Cells(X, 1))
            If Say = 0 Then
                Cells(Satir, 3) = Cells(X, 1)
                Satir = Satir + 1
            End If
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[nadirornek]

Teşekkürler.

 

[nadirornek]

A ve B sutunlarına fazla isim girildiğinde karışık olarak C sutununa yazıyor.Kodta değişiklik yapabilirmiyiz.