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

[acemituncay]

A ile b'yi karşılaştır, aynı olanları c'ye, farklı olanları d'ye yaz yapamıyorum yardımlarınızı bekliyorum.!

Arkadaşlar aşağıdaki kodlarda eksiklik var galiba hata veriyor




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

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub Listele()
Application.ScreenUpdating = False
Range("C:D").ClearContents
sat = 1
For i = 1 To [A65536].End(3).Row
    If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "a")) = 1 Then
        Cells(sat, "c") = Cells(i, "a")
        sat = sat + 1
    End If
Next i
sat1 = 1
For i = 1 To [A65536].End(3).Row
    If WorksheetFunction.CountIf(Range("B:B"), Cells(i, "a")) = 0 Then
        Cells(sat1, "d") = Cells(i, "a")
        sat1 = sat1 + 1
    End If
Next i
sat2 = [D65536].End(3).Row + 1
For i = 1 To [A65536].End(3).Row
    If WorksheetFunction.CountIf(Range("A:A"), Cells(i, "b")) = 0 Then
        Cells(sat2, "d") = Cells(i, "b")
        sat2 = sat2 + 1
    End If
Next i
Application.ScreenUpdating = True
End Sub

.

 

[alvares6630]

selam hocalarım bu kodlar ile ben hücrelerde örneğin a hücresi ile b hücresini kıyaslarken a hücresinde "Alinin Notları",b hücrsinde "Notları Ali" şeklinde olursa nasıl bir kod ile işin içinden çıkabilirim yada b hücresine ben kelimeleri tanımlasam olurmu.

 

[Ömer]

Merhaba,

Veri yapısını görmekte fayda var. Tüm verileriniz bu şekilde ters mi?