Formül sonucu sıfır olanları yazdırma

[86126]

Sub düğme1_tıklat()
Sheets(5).PrintOut
Sheets(6).PrintOut
Sheets(7).PrintOut
Sheets(8).PrintOut
Sheets(9).PrintOut
Sheets(10).PrintOut
Sheets(11).PrintOut
Sheets(12).PrintOut
Sheets(13).PrintOut
Sheets(14).PrintOut
Sheets(15).PrintOut
Sheets(16).PrintOut
Sheets(17).PrintOut
Sheets(18).PrintOut
Sheets(19).PrintOut
Sheets(20).PrintOut
Sheets(21).PrintOut
Sheets(22).PrintOut
End Sub

arkadaşlar elimde yuarıdaki şekilde ilgili sayfaları yazdırma komutu var. ancak benim istağim bu yazdırılan sayfalarda formüller var formül sonucu 0 harici değer olanları yazdırmasını istiyorum. yani tüm sayfada değişik hücrelerde formüller mevcut eğer tüm formül sonuçları sıfır ise yazdırmasın, eğer bir formül sonucu bir ve yukarı ise yazdırsın

 

[metinozlu]

if sheets(Sheets(5)).range("a1")>0 then
Sheets(5).PrintOut
else
end if

formül a1 de ise her fayfa için kodlaman gerekir.

 

[Ali]

yani tüm sayfada değişik hücrelerde formüller mevcut eğer tüm formül sonuçları sıfır ise yazdırmasın

Araçlar-Seçenekler-Görünüm-Sıfır Değerleri onay kutucuğunu kaldırmanız işinizi görür mü?

 

[86126]

teşekkür ederim, formüller sayfanın A sutunu ile AZ sutunu arasında yaklaşık 100 satırlık alanda

 

[86126]

Alİ KardeŞ Sİzede TeŞekkÜrler Mevzu O DeĞİl. FormÜl Sonucu Sifir Olanlari Yazciya GÖndermesİn.

 

[zafer]

Merhaba

Sayfalarınızın A1 hücresine toplam alın sonra aşağıdaki makroyu deneyin A1 eğer 0 ise sayfayı yazmaz değilse yazıcıya gönderir.

Sub yaz()
sayfa = Sheets.Count
For A = 1 To sayfa
ad = Sheets(A).Name
Sheets(ad).Select
If [a1] <> 0 Then Sheets(ad).PrintOut
Next
End Sub

 

[86126]

arkadaşlar teşşekür ederim. burada ilgili sayfa isimlerini nereye yazağım. ayrıca bu makroyu yazdır butonunamı atayacağım.

 

[zafer]

Merhaba

0 olamayan bütün sayfaları yazdırır.

yazdığım kodları dosyanızın kod (Alt+F11 basın ) sayfasına yeni bir modül açarak (insert menüsü Module seçiniz)kopyalayınız.sonra sayfanızda yeni bir buton yaratıp üzerinde iken sağ mouse basıp makro ata seçeneğinden yaz makrosunu seçiniz.

 

[86126]

zafer bey teşekkür ederim senin bu formüle göre çalışma dosyasındaki bütün sayfaları yazdırıyor. benim isteğim ilk ferdiğim sayfalarda bunu uygulamak. bu şekilde yardımcı olursanız sevinirim.

 

[zafer]

Merhaba

Adlar isminde yeni bir sayfa açın A sütununa 1. satırdan başlayarak Yazdırmak istediğiniz sayfaların isimlerini tam olarak girin.
Bu size yeni bir sayfa açtığınızda makronun içine sayfa ismi ilave etmeden kısa yoldan işlem görmesi içindir.

Aşağıdaki kodları çalıştırın.

Sub yaz()
son = Sheets("adlar").Cells(65536, 1).End(xlUp).Row
For a = 1 To son
ad = Cells(a, 1)
Sheets(ad).Select
If [a1] <> 0 Then Sheets(ad).PrintOut
Next
End Sub

İkinci bir yolda yazdıracağınız sayfa isimleri sıra takip ediyorsa aşağıdaki makroyu kullanın.
Tavsiyem 1 makrodur.

Sub yaz()
For a = 5 To 22
Sheets(a).Select
If [a1] <> 0 Then Sheets(a).PrintOut
Next
End Sub

 

[86126]

arkadaşlar ilginiz için teşekkür ederim.