Toplu Silmek

[baydeniro]

Merhaba Arkadaşlar,

A sütununda bulunan ürünlerden C sütununda yazılı olanlarla eşleşmeleri halinde topluca silinmeleri mümkün mü ?

Örnek dosya linki : http://s5.dosya.tc/server5/1l8e2n/_TOPLUCA_SIL.xls.html

 

[cems]

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

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

 

[baydeniro]

Çok teşekkür ederim cems. Çok güzel fikir. Emeğine, aklına sağlık. Sağlıcakla kalın.