Yazdır butonu

[kesikbey]

Arkadaşlar yazdır butonu sadece g4 hücresinde değer olan sayfaları yazsın, eğer g4 hücresi boş ise yazmadan diğer sayfaya geçsin mümkün mü?

 

[Korhan Ayhan]

Merhaba,

Ben bir satır için örnek veriyorum. Siz diğerlerini bu satıra göre düzenlerseniz.

[COLOR=red]If Sheets("51").Range("G4") <> "" Then[/COLOR] Sheets("51").PrintOut

 

[kesikbey]

korhan bey ilgine tşkrler, kaydet uyarısı veriyor, yazıcı bağlı olmadığı içindir muhtemelen... selamlar

 

[ynmcan]

Arkadaşlar yazdır butonu sadece g4 hücresinde değer olan sayfaları yazsın, eğer g4 hücresi boş ise yazmadan diğer sayfaya geçsin mümkün mü?

Aşağıdaki macroyu kullanabilirsiniz. Yeni sayfa ekledikçe macro bu sayfalarıda otomatikolarak tanır. Yalnız burada dikkat edilmesi gereken bir husus "Gelir" "Gider" "1" "2" "Bilgi" gibi sayfaların "G4" hücresinin boş olmasını sağlamak. yoksa o sayfalarıda yazdırır.

Sub YAZ()


For i = 3 To Sheets.Count

If Sheets(i).Range("G4") <> "" Then Sheets(i).PrintOut
 
Next i

End Sub