Farklı Sütunlardaki verileri KARŞILAŞTIRMA, EŞLEŞMEYENLER'i bulma

[ERMAN SAYINALP]

Merhaba,

Ekte gönderdiğim ÖRNEK TABLO'da olduğu gibi, Konu Başlığı aynı olan Sütunlardaki Verileri Karşılaştırma yapmak, Aynı Olanlar için herhangi bir uyarıya gerek olmaksızın, Farklı Olanlar için FARKLI olanı (Eşleşmeyeni), Listelemek yada İşaretlemek gibi bir işleme ihtiyacım var.

Formülle yapılması tercihimdir.

Yardımlarınızı rica ederim.

 

[Ömer BARAN]

Merhaba.
Kullanıcı adınız böyle daha iyi oldu. (Bu konudaki fikrimi biliyorsunuz)

Sorunuz aslında biraz tereddüt içeriyor (tarih faktörü yok sayılmış).
Aşağıdaki kod'u kullanabilirsiniz.
.

[FONT="Arial Narrow"]Sub mutabakat_brn()
Set wf = Application.WorksheetFunction: brn = [A65536].End(3).Row
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Range("A5:C" & brn).Sort [A4], xlDescending: Range("E5:G" & brn).Sort [E4], xlAscending
Range("B5:B" & brn).Copy [H5]: Range("F5:F" & brn).Copy [I5]
Range("C5:C" & brn).Copy [J5]: Range("G5:G" & brn).Copy [K5]
For satır = 5 To brn
    If wf.CountIf(Range("I:I"), Cells(satır, "H")) = 1 Then
        sat = wf.Match(Cells(satır, "H"), Range("I:I"), 0)
            Cells(satır, "H") = "": Cells(sat, "I") = "": End If
                If wf.CountIf(Range("K:K"), Cells(satır, "J")) = 1 Then
            sat = wf.Match(Cells(satır, "J"), Range("K:K"), 0)
        Cells(satır, "J") = "": Cells(sat, "K") = "": End If
Next: Columns("H:K").EntireColumn.AutoFit
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "BİTTİ"
End Sub[/FONT]

 

[ERMAN SAYINALP]

Teşekkür...

Ömer bey'cim,

İlginize teşekkür ederim. Tarihleri bilerek işlem dışı bıraktım. Bu çalışma için gerekli görmedim. Ancak gelecekte, benzer bir uygulama için ihtiyaç duyulabilir, bu bakımdan, o yönde de bir yardımınız olursa sevinirim. Makro'dan ziyade, Formül/Fonksiyon çözümü çok daha işime yarayacak. İlginizi bekliyorum.

Selamlar....