Macro İle Koşullu Silme

Katılım
23 Eylül 2004
Mesajlar
91
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.
 
T

TRABLUS

Misafir
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.
 
Katılım
23 Eylül 2004
Mesajlar
91
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.
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
Kod:
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
 
Katılım
23 Eylül 2004
Mesajlar
91
Sayın Alpen,

Teşekkür ederim gönderdiğiniz kod işimi gördü.

Selamlar.
 
Üst