2 Dosya KArşılaştırmak

[baymutlu]

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]

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

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

 

[baymutlu]

Teşekkürler