yazdır makrosu

[muhsar]

aşağıdaki kod ile D9 hücresi dolu ise mesaj kutusu çıkıyor ve evet deyince yazdırıyor,

yapmak istediğim yada bana lazım olan d9 hücresi boş değil ise direk olarak 1 nüsha yazdırması(d 9 boş ise hata verecek yani ilk mesaj bölümü kalacak)

kod düzenlemede yardımcı olursanız sevinirim

Sub Yaz()
if [D9] = "" then
msgbox "Hata var"
exit sub
end if
mesaj = MsgBox("Yazdırmak için = EVET " & Chr(10) + Chr(13) & "Baskı Önizleme İçin = HAYIR" & Chr(10) + Chr(13) & "Diğeri de İPTAL zaten", vbYesNoCancel + vbQuestion, "Sayfa Yazdırılsın mı?")
If mesaj = vbCancel Then Exit Sub
If mesaj = vbYes Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End If
If mesaj = vbNo Then
ActiveWindow.SelectedSheets.PrintPreview
End If

End Sub

 

[ASLAN7410]

Merhaba

Sub Yaz()
If [D9] = "" Then
MsgBox "Hata var", vbInformation, "UYARI"
Exit Sub
End If

If [D9] <> "" Then
ActiveWindow.SelectedSheets.PrintOut copies:=1
MsgBox "1 adet yazdırıldı.", vbInformation, "UYARI"
End If
End Sub

 

[muhsar]

Merhaba

Sub Yaz()
If [D9] = "" Then
MsgBox "Hata var", vbInformation, "UYARI"
Exit Sub
End If

If [D9] <> "" Then
ActiveWindow.SelectedSheets.PrintOut copies:=1
MsgBox "1 adet yazdırıldı.", vbInformation, "UYARI"
End If
End Sub

çok teşekkür ederim elinize sağlık

 

[ASLAN7410]

İyi geceler.
Rica ederim.