Kesişen isimler

[kemalist]

kesişen isimleri makro ile bulmak istiyorum.örnek dosya ektedir

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u kullanabilirsiniz.

Sub E_DE_OLANLAR_KALSIN()
For d = Cells(Rows.Count, "D").End(3).Row To 4 Step -1
    Set bul = [E:E].Find(Cells(d, "D"))
    If Cells(d, "D") = "" Or bul Is Nothing Then: Cells(d, "D").Delete Shift:=xlUp
Next
End Sub

 

[kemalist]

Teşekkürler Ömer bey