Sıfırlı satırları geçici olarak gizleyip yazdırma

[abcd_efe]

Merhaba arkadaşlar. ekte küçük bir dosya var. E sütunundaki sıfır olanları bir süreliğine göstermeden listeyi yazıcıya yazdırıp daha sonra sıfırların da gözüktüğü ilk hale nasıl dönülebilir yardımcı olursanız sevinirim. Şimdiden teşekkür ederim.

 

[mustafaine1]

Ornegi inceleyiniz, bir toggle ile goster gizel daha mantikli sanki..

 

[levo26]

Ornegi inceleyiniz, bir toggle ile goster gizel daha mantikli sanki..

Merhaba,

Toggle butonu nasıl oluşturuyoruz?

 

[mustafaine1]

google dan arayip buldum size bir toggle button

 

[levo26]

Denetim araç kutusundan buldum. Teşekkürler.

 

[Necdet]

Merhaba,

Suz yöntemi de uygulanabilir.

Sub Yazdir()
    Range("A4").AutoFilter Field:=5, Criteria1:="<>0", Operator:=xlAnd
    ActiveSheet.PrintPreview
    Selection.AutoFilter
End Sub

koddaki PrintPreview i PrintOut olarak düzeltirseniz doğrudan yazıcıdan listeyi alır sonra tekrar eski haline gelir.

 

[hilmi0707]

Gizle Göster Komutu da verilebilir.

Sub Düğme14_Tıklat()
'
' Düğme14_Tıklat Makro
' Makro zambak tarafından 11.06.2010 tarihinde kaydedildi.
'

'
Range("5:5,6:6,7:7,9:9,12:12,13:13,15:15,17:17").Select
Range("A17").Activate
ActiveWindow.SmallScroll Down:=3
Range("5:5,6:6,7:7,9:9,12:12,13:13,15:15,17:17,19:19,20:20,21:21").Select
Range("A21").Activate
Selection.EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.EntireRow.Hidden = False
ActiveWindow.SmallScroll Down:=-6
Range("A4").Select
End Sub