muhsar
Altın Üye
- Katılım
- 16 Mart 2019
- Mesajlar
- 262
- Excel Vers. ve Dili
- 2010 tütkçe
- Altın Üyelik Bitiş Tarihi
- 21-03-2029
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
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
Kod:
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