Değeri sıfır olan satırları Döngü kullanmadan gizleme

[orrhankaya]

Değeri sıfır olan hücrelere ait satırları Döngü kullanarak gizleyebiliyorum.
Makroyu sayfa aktifleşince çalıştırıyorum. Bu ise çok çabuk gerçekleşmiyor.
Boş olan satırların gizlenmesiyle ilgili sitenizdeki kodu inceledim. Bu kodu değeri sıfır olanları gizlemesi şeklinde değiştiremedim.
Bu konuda yardımcı olacaklara şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Boş olan satırların gizlenmesiyle ilgili sitenizdeki kodu inceledim. Bu kodu değeri sıfır olanları gizlemesi şeklinde değiştiremedim.

Bu kodu verirmisiniz?

 

[Ayhan Ercan]

sorunuzda anladığım kadarıyla sıfır değerlerinin görünmemesini istiyorsunuz. eger doğru anladıysam şöyle bişey yapabilirsiniz,makroya da gerek yok.
Araçlar>Seçenekler ordanda alt kısıma bak " sıfır değerleri" kutucuğun işaretini kaldır.
artık hiç bir sıfır değeri görünmeyecektir....

 

[orrhankaya]

Sayın Leventm
İstediğiniz kod aşağıdadır.
İlginize teşekkür ederim.

Bu kod boşları önce gösterip ardından gizliyor.
Ben sıfır olanları gösterip gizlemesini istiyorum. Döngü kullanmadan.

Sub boslarigizle()
Range("A4:A30").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
Range("A4:A30").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[Levent Menteşoğlu]

Değeri sıfır olanlar için yukarıda verdiğiniz kodu kullanamazsınız, aşağıdaki kodu deneyin.

Not:Bu tip silme ile ilgili kod örneklerinide mutlaka dosyanızın bir kopyası üzerinde deneyin.

[vb:1:64069e17ae]Sub sil()
Range("A1").AutoFilter Field:=1, Criteria1:="0"
Rows("2:65536").Delete
Range("A1").AutoFilter
End Sub
[/vb:1:64069e17ae]

 

[orrhankaya]

Sayın Leventm
Kullandığım ve yaptığım bütün dosyalarda, değeri sıfır olan sütunları gizlemek için otomatik süzü kullanıyorum. Ã?nce tümünü sonra boş olmayanları süzdüğümde işimi görüyor. Bunun makrosunu Worksheet.Activate olayına bağladım. Yıllardır bunu böyle kullandım. Dosyayı farklı kaydederken bazen İstemediğim yerlerde Süz işaretleri beliriyor.

Otomatik Süzde bu sorun oluyor.
Döngülerde işlem uzuyor. Arayışım bu nedenle idi.
İlginize teşekkür ediyorum.