Hücre değeri boşsa Yazdırma

[alirizapekbilir]

A1 hücresinin değeri boşsa yazdırsın. doluysa "hata var" mesajı ile işlemi iptal etsin. nasıl yapabiliriz acaba. normal yazdırabiliyorum ama koşullu yapamıyorum. kodlar için yardımınızı rica ediyorum.

Sub Yaz()

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

 

[Muzaffer Ali]

Merhaba.

Sub Yaz()
if [A1] <> "" 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

 

[alirizapekbilir]

Teşekkür ederim çok sağolun

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar.

 

[alirizapekbilir]

Hocam başka bir sorum olacak yine bu konu ile alakalı. J4 hücresinde isim listem var veri doğrulama ile çağırıyorum yazdırıyorum. sonra diğer ismi seçip tekrar yazdırıyorum. 150 kişilik liste. her yazdırdığımda listedeki diğer kişinin gelmesini nasıl sağlarım böyle birşey mümkünmü. dolayısıyla hızlı hızlı yazdırma imkanım olur.

 

[Muzaffer Ali]

Dosyanız üzerinde yapmak istediklerinizi gösterin ve buraya ekleyin üzerinde bakalım.

 

[alirizapekbilir]

Hocam dosyayı ekledim Günlük Çal.Çiz. sayfası
parolalarım 61