(YARDIM) Excel de Yazdırma Makrosuna Koşul Ekleme

[MaliMuavin]

Merhabalar
Arkadaşlar ben yazdırma komutlu buton yaptım ama, evet dediğimde yazdırsın hayır dediğinde işlemi iptal etsin böyle bir şey yapmak istiyorum.
Lütfen bana yardımcı olabilir misiniz.?
Şimdiden teşekkürler.
ve bu koşulun makrolara işlenmesi hakkında sizden yardım istiyorum.

Bendeki Kod budur;

Private Sub CommandButton1_Click()
MsgBox "Dikkat Tüm Boş Alanlarıda Yazdırabilir.!!", vbCritical

Dim sat As Long

sat = [A:K].Find("*", , , , xlByRows, xlPrevious).Row

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & sat
ActiveSheet.PrintOut


End Sub

 

[PLİNT]

Merhaba
Aşağıdaki mavi satırları değiştirip/ekleyerek deneyin.

[SIZE="2"]Private Sub CommandButton1_Click()
[COLOR="Blue"]sor = MsgBox("Dikkat Tüm Boş Alanlarıda Yazdırabilir.!!" & vbCrLf & "Yazdırılsınmı?", vbYesNo)
If sor = vbNo Then Exit Sub[/COLOR]
Dim sat As Long

sat = [A:K].Find("*", , , , xlByRows, xlPrevious).Row

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & sat
ActiveSheet.PrintOut

End Sub[/SIZE]

 

[MaliMuavin]

çok teşekkür ederim sağolun işlem gerçekleşti