Macro Ýle Koþullu Silme

[muratnazli]

Merhaba!

Aþaðýdaki "stok" adlý örnek dosyada A:A sütununda içeriði "SARF FÝÃžÝ ve TOPTAN SATIÞ ÝRSALÝYESÝ" olmayan satýrlarý macro ile nasýl silebilirim.
Yardýmcý olursanýz sevinirim.


Selamlar.

[xxrt]

Ben dosyayý indiremedim.Varmý indirebilen.

[TRABLUS]

Süz'den yapmak istediðin A sütunu aç ve Sarf Fiþini iþaretle sadece Sarf fiþi olanlar çýkýnca Satýr rakamlarýnda o satýrý komple bloklayýp sað tuþ ve sil iþlemiyle yapabilirsin.

[muratnazli]

Sayýn Trablus,

Ýlginize teþekkür ederim fakat ben bu silinecek satýrlarý excel'in yerleþik fonksiyonlarýný kullanarak deðil, kod sayfasý içerisinde kod ile silinmesini istiyorum. Çünki mevcut kod sayfama ekleyeceðim.

Selamlar.

[ALPEN]

Sub sil()
For i = Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Trim(Cells(i, 1)) <> "SARF FÝÞÝ" And Trim(Cells(i, 1)) <> "TOPTAN SATIÞ ÝRSALÝYESÝ" Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i
End Sub

[muratnazli]

Sayýn Alpen,

Teþekkür ederim gönderdiðiniz kod iþimi gördü.

Selamlar.