A ile b'yi karşılaştır, aynı olanları c'ye, farklı olanları d'ye yaz

[karapardus23]

A ile b'yi karşılaştır, aynı olanları c'ye, farklı olanları d'ye yaz

Sub bul()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(1), Cells(a, 2).Value) = 0 Then
e = WorksheetFunction.CountA([d2:d65536]) + 1
Cells(e + 1, 4) = Cells(a, 2).Value
End If
If WorksheetFunction.CountIf(Columns(2

makroyu çalıştıramadım.
hatalı yeri nerede? Yardım ederseniz memnun olurum.

 

[Necdet]

Merhaba,

Farklı ise iki hücre farklı olacaktır, bu durumda D ye hangi hücre yazılacak?


Ben her iki durumda da A sütununu yazdırdım. Siz kendinize uyarlayınız.

Sub Karşılaştır()
Dim i As Long
For i = 2 To [A65536].End(3).Row
    If Cells(i, "A") = Cells(i, "B") Then
        Cells(i, "C") = Cells(i, "A")
    Else
        Cells(i, "D") = Cells(i, "A")
    End If
Next i

 

[baydeniro]

Sayın Necdet Yeşertener, paylaşım için teşekkürler.