Çıktı almak için seçenek

[GursoyC]

Merhaba,
Bir sayfaya atadığım "çıktı al" makro düğmem var. Bu düğmeye bastığımda 4 kopya olarak belli bir alanın çıktısını alıyorum.
Yapmak istediğim şey "AS16" ücresinde "Bu sayfanın yazdırma işlemi yapılmıştır!" yazıyorsa çıktı al düğmesine bastığımda "Emin misiniz?" diye sorması ve evet ve iptal şeklinde 2 seçenek sunması.
Makroma eklemem gereken kodlar neler, yardımcı olur musunuz.

Teşekkürler.

Düğmemdeki makro şu şekilde:

ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True, _
IgnorePrintAreas:=False
Range("AS16").Select
ActiveCell.FormulaR1C1 = "Bu sayfanın yazdırma işlemi yapılmıştır!"
Range("AS16").Select

 

[Haluk]

Merhaba;

Aşağıdaki gibi birşey deneyebilirsiniz;

If Range("AS16").Text = "Bu sayfanın yazdırma işlemi yapılmıştır!" Then
    x = MsgBox("Emin misiniz?", vbYesNo)
    If x = vbYes Then
        'Yazdırma kodlarınız buraya
    Else
        Exit Sub
    End If
End If

 

[GursoyC]

Teşekkür ederim Haluk bey, gayet güzel çalışıyor.
Saygılar,