2 Dosya KArşılaştırmak

Katılım
30 Mayıs 2009
Mesajlar
2
Excel Vers. ve Dili
excel 2016
Merhaba

Elimde 1 mail listesinin yer aldığı excel dosyası var. 2. dosyada ise bu listeden ayrılmak isteyenlerin listesi var. İsteğim 1. listeden ayrılmak isteyenleri bulup tek seferde silmek. Nasıl yapabilirim acaba ?:hey:
 

Mustafa MUTLU

Destek Ekibi
Destek Ekibi
Katılım
24 Temmuz 2008
Mesajlar
1,586
Excel Vers. ve Dili
Ofis 2013 TR 32 Bit
E-posta listenizin, Sayfa1 A sütununda olduğunu varsayalım,
Silineceklerde Sayfa2 A sütununda olsun,
(Koddan sütun harflerini değiştirebilirsiniz.)

Aşağıdaki kodu bir modüle yada sayfanın kod bölümüne yapıştırın.
kolay gelsin

Kod:
Sub SILINECEKLER()
Dim MTL, MSTF

For MSTF = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).RowFor
    For MTL = 2 To Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
        If Sheets("Sayfa1").Cells(MSTF, "A") = Sheets("Sayfa2").Cells(MTL, "A") Then
        Sheets("Sayfa1").Cells(MSTF, "A") = ""
        End If
    Next MTL
Next MSTF
MsgBox " E-posta silme işlemi tamamlanmıştır..", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"
End Sub
 
Katılım
30 Mayıs 2009
Mesajlar
2
Excel Vers. ve Dili
excel 2016
Teşekkürler
 
Son düzenleme:
Üst