Macro İle Koşullu Silme

[muratnazli]

Macro Ýle Koşullu Silme

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.