Sifir DeĞerlerİn Yazicidan Çikmamasi

[ANTALYA 01]

Merhabalar

Ekteki Çalışmada Daha iyi anlattım M Sütununa Göre Rakam olmayan Satırların Yazıcıdan çıkmasını istemiyorum.Çünkü Sayfa uzun 2 Sayfa Oluyor normalde M Sütununa göre değer girildiğinde 1 Sayfada Çıktı alınabilir.Benim isteğim Gizli formüller bozulmadan Özellikle F Sütununda Gizli Bilgi var.
Sayfaya eklenecek Bir makro Düğmesi ile M Sütununa Bakarak Değer olmayan satırları yazıcıdan çıkmamasını sağlamak ekteki örnekte Yazıcıdan Çıkacak B3-B9-B16-B23-B30-B43-B51 Değerleri

 

[N.Ziya Hiçdurmaz]

Araçlar seçenekler sıfır değerleri kutucuğundaki işareti kaldırıp tamam deyiniz.

 

[ANTALYA 01]

D

Merhaba

Denedim olmadı.Sıfır değerler yok oldu sayfada fakat yazıcıdan yinede çıkıyor.Belirttiğim aralık

 

[ANTALYA 01]

D

Merhaba

Bu belirttiğim aralıkta M sütunundaki Değerler Boşsa Gizlenipte yazıcıdan çıktı alınabilen kodda olabilir.

 

[AS3434]

Sayın ANTALYA 01

Yazdırma alanını belitmemişsiniz. Aşağıdaki kodları deneyin.

Sub Makro1()
For i = 46 To 174
If Cells(i, 13) = 0 Or Cells(i, 13) = "" Then Rows(i).EntireRow.Hidden = True
Next
[a1:v183].PrintPreview 
[COLOR=green]' bu hali önizleme. Yazdırmak için PrintPreview kısmını PrintOut yapın.[/COLOR]
Rows.EntireRow.Hidden = False
End Sub

 

[ANTALYA 01]

D

Çok ama çok teşekkür ederim.tam istediğim gibi olmuş

 

[mesudiye_052]

Hücreleri biçimlendir ile de yapabilirsiniz
mesela A1 hücresine gelin
menüden Biçim menüsü Hücreleri seçiniz
Sayı katagorisinden isteğe uyarlanmış
oradanda Tür kutucuğuna aşağıdaki ifadeyi girip tamam deyiniz
[>0]0;