Printout makrosuna koşul ekleme

[imyourfate]

Değerli Hocalarım & Arkadaşlar

Aşağıda kayıt yöntemiyle oluşturulmuş bir yazdır makrosu mevcuttur belirli bir aralığı yazdırmaktadır.Sormak istediğim bu makroya belli hücreler boş ise
''B6,B36,B66,B96'' o sayfayı yazdırma (yazılmasın) eklentisi yapmak istememdir. olursa

Saygılarımla

Sub printpage()
'
' printpage Macro
' Macro recorded 11.12.2012 by .
'

'
Range("A1:R111").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Huseyinkis]

ekteki formul yukarıda belirttiğiniz hücrelerin hepsi boş ise yazdrma işlemini gerçekleştirmez.


Sub printpage()
if Range("b6").value+Range("b36").value+Range("b66").value+Range("b96").value= 0 then exit sub
Range("A1:R111").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[imyourfate]

Küçük bi düzenleme ile mükemmel çalıştı
Teşekkür Ediyorum

Saygılarımla