yazdır koşullar sağlanmazsa iptal

[mehteroglu1]

seçili hücreleri yazdırmak için bir makro hazırladım ve yazdırlılacak sayfada eksiklik varsa yazdırmıyor ama
benim sorunumu bu makroda yazdır tuşuna basılınca yazdırıp diğer alt satıra geçiyor eğer hücre eksikliği varsa yazdır tuşuna basınca "SAYFADA EKSİK BİLGİ OLDUĞUNDAN YAZDIRILAMADI"diyip alt satıra geçmesini istemiyorum
aksi taktirde yazdırdıktan sonra alt satıra geçsin bu sorunuma yardımcı olursanız sevinirim saygılarımla

Sub yaz1()

'
' ocak1 Macro
' Macro recorded 25.09.2004 by M.TEYFİK MEHTEROĞLU
'

'
ActiveWorkbook.Activate
If [d39] = "" Or [h41] = "" Then
MsgBox "SAYFADA EKSİK BİLGİ OLDUĞUNDAN YAZDIRILAMADI"

Else
Range("B243").Select

ActiveWindow.Selection.PrintOut copies:=1, collate:=True
End If

ActiveWorkbook.Activate

Range("d53").Select

 

[Mahmut Kök]

MsgBox "SAYFADA EKSİK BİLGİ OLDUĞUNDAN YAZDIRILAMADI" satırının altına
Exit sub

yazmayı deneyin.

 

[mehteroglu1]

teşekkürler oldu

çook teşekkür ederim saygılarımla sağolun