Tek Bir Tuş İle Birden Fazla Sayfayı Yazdırmak (Acil)

[teknik]

Tek Bir Tuş Ýle Birden Fazla Sayfayı Yazdırmak (Acil)

Arkadaşlar
Excel de Bir Makro ile Daha doğrusu Kod ile Birden Fazla Sayfayı bir koşu ile nasıl yazdırabiliriz.
Ã?rneğin 21 adet Sayfa var ve her sayfanın çeşitli adları var (Vergi İadesi Gıda1........Gıda11, Giyim1.....Giyim6) gibi ve her sayfanın A4 Hücresi doluysa o sayfaya fiş girilmiş demektir. ve tuşa tıklayınca her sayfanın A4 hücresi dolu olanları yazdırsın A4 hücresi boş olanları yazdırmasın

İlgilenirseniz sevinirim

 

[isakarakus]

şöyle yapsanız işinizi görmez mi,

dolu sayfaları seçin ve yazdır tuşuna basın tümü yazılacaktır.

 

[teknik]

İsa Bey Ben Fırm hazırladım ve excel sayfası arkada gizli olarak kalıyor yani sayfalar gözükmüyor onun için sizin dediğiniz yöntem için sayfayı aktif hale getirmek veya açılışta makroları etkinleştirmemek lazım.
Ama kodla bu olayın olacağını sanıyorum.

 

[ALPEN]

[vb:1:b5f710fa84]For i = 1 To Worksheets.Count
If Worksheets(i).Cells(4, 1) <> "" Then Worksheets(i).PrintOut
Next i[/vb:1:b5f710fa84]

 

[teknik]

Teşekkürler Alpen

Hızır gibi yetiştin. Sağolasın iyi çalışmalar