Döngüsüz süzme yapmak

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerinde "M" sütununda sonucu "sıfır" olan satırları kod ile gizlenmesini istiyorum ancak döngüsüz olarak, Bu kodu sayfada tablo resimli menüde işaretlediğim döngü yapan kod ile değiştirmek istiyorum, Yardımcı olursanız sevinirim. İşleriniz kolay gelsin.

 

[halit3]

bu işini görürmü
araçlar/seçenekler/sıfırdeğerleri

işaretini kaldırınız.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak döngü dışında normal filtreleme yöntemini kullanabilirsiniz. Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SIFIRLARI_SÜZ()
    Application.ScreenUpdating = False
    Range("B3").AutoFilter
    Range("B3").AutoFilter Field:=12, Criteria1:="<>0"
    Application.ScreenUpdating = True
End Sub