aynı olan hücrelerin birbirini yoketmesi

[aybars]

Merhaba,

Elimde bir muhasebe defter sayfası içeren uzunca bir tablo var. Bu tablonun alacak ve borç kolonu var.Bazı alacak hücresindeki değerlerle bazı borç hücresindeki değerler aynı ama bu iki hücre aynı satırda değil.(ÖR A3 ile B5)
İstediğim şey aynı olan bu değerlerin birbirini götürmesi.Nasıl bir makro yazılabilir?
teşekkürler...

 

[emrexcel123]

örnek dosya

arkadaşım dosya eklersen daha ii yardımcı olabiliriz...

 

[aybars]

bahsettiğim konuyla ilgili dosya

yardımlarınızı bekliyorum, teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub EŞLEŞEN_KAYITLARI_AYIKLA()
    Dim SAY As Long
    For X = [A65536].End(3).Row To 3 Step -1
    If Cells(X, "F") <> 0 Then
    SAY = WorksheetFunction.CountIf([G:G], Cells(X, "F"))
    If SAY > 0 Then
    BUL = [G:G].Find(What:=Cells(X, "F"), LookAt:=xlWhole).Row
    Rows(BUL).Delete
    Rows(X).Delete
    Else
    End If: End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub