Excel'de sütun karşılaştırılması

[grdlsv]

Mrb. Google ve siteniz üzerinden yaptığım araştırmalara rağmen excelde yapmak istediğim bir işlemi beceremedim. Ekte gönderdiğim excelde ana veri ve karşılaştırılacak verilerin karşılaştırılmasını istiyorum. Koşullu biçimlendirme ve makro kodları ile yapamadım. Amacım;

1. a sütunundaki veriler ile b sütunundaki verilen karşılaştırılması ve aynı olan verilerin c sütununa yazılması,
2. a sütunundaki veriler ile b sütunundaki verilen karşılaştırılması ve a sütununda olup b sütununda olmayan verilerin d sütununa yazılması,
3. a sütunundaki veriler ile b sütunundaki verilen karşılaştırılması ve a sütununda olmayıp b sütununda olan verilerin e sütununa yazılması,

Yapmak istediğim verilerdeki tek sıkıntı verilerin 2011/2020, 2011/202 vb şeklinde olması. Yani rakamlar arasında / işaretinin olması sanırım benim yapmak istediğim şeye engel olmakta ama çözümü varsa yardımlarınızı bekliyorum. Teşekkürler.

sütun karşılaştırma.7z

View and download from Yandex Disk

yadi.sk

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub dosyalar()
sonA = Cells(Rows.Count, "A").End(3).Row
sonB = Cells(Rows.Count, "B").End(3).Row
For a = 2 To sonA
    If WorksheetFunction.CountIf(Range("B1:B" & sonB), Cells(a, "A")) = 0 Then
        yeniD = Cells(Rows.Count, "D").End(3).Row + 1
        Cells(yeniD, "D") = Cells(a, "A")
    Else
        yeniC = Cells(Rows.Count, "C").End(3).Row + 1
        Cells(yeniC, "C") = Cells(a, "A")
    End If
Next
For b = 2 To sonB
    If WorksheetFunction.CountIf(Range("A1:A" & sonA), Cells(b, "B")) = 0 Then
        yeniE = Cells(Rows.Count, "E").End(3).Row + 1
        Cells(yeniE, "E") = Cells(b, "B")
    End If
Next
End Sub

Sorularınızda paylaştığınız örnek dosyalarınızda mümkün oldukça her durumu gösteren en az bir örnek olmasına gayret göstermenizi tavsiye ederim.

 

[grdlsv]

Yardımınız için teşekkür ediyorum. Kodu düğmeye aktararak yaptım ve oldu.