[quote='atoykan' pid='188401' dateline='1668281037']
Sub DeleteRowsWithSpecificText()
ActiveCell.AutoFilter Field:=2, Criteria1:="Mid-West"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete
End Sub
[
Teşekkürler ancak bu kod verilerin tamamını siliyor yada filtreleyip gizliyor benim yapmak istediğim SIFIR BAKİYELİ satırların Silinmesi işlemi,
YADA örneğin Hesap numarası yazmam koşulu ile sadece belirttiğim hesap numaralarının bulunduğu satırlar silinsin.
Adı Soyadı:
Er.... Şa....
Yaşı:
63
Konum:
İstanbul
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
05/12/2022,01:21
Cevapla