• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Toplu Silmek

Belki iki sütunda eş olmayanları bulmak daha mantıklı, böylece yine arıtılmış listeniz olur ve sütunları da direk silmemiş olursunuz, inceler ve arıtılmış listeyi alır kullanırsınız ..

http://s5.dosya.tc/server5/rwc10y/iki_sutunda_da_olmayani_bul_.rar.html

Kod:
Private Sub CommandButton1_Click()
Range("e:e").ClearContents
For Evn = 2 To Range("a65530").End(3).Row
    For x = 2 To Range("c65530").End(3).Row
        If Range("a" & Evn) = Range("c" & x) Then GoTo ayirdim
    Next x
    Range("e" & Range("e65530").End(3).Row + 1) = Range("a" & Evn)
ayirdim:
Next Evn
MsgBox "İki sütunda eş olmayanlar listelendi !"
End Sub
 
Çok teşekkür ederim cems. Çok güzel fikir. Emeğine, aklına sağlık. Sağlıcakla kalın.
 
Geri
Üst