Kesişen isimler

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
kesişen isimleri makro ile bulmak istiyorum.örnek dosya ektedir
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.
Aşağıdaki kod'u kullanabilirsiniz.
Rich (BB code):
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

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Teşekkürler Ömer bey
 
Üst