Onay isteyen mesaj kutusu

[xternet]

Merhaba arkadaşlar.
Bazı sayfaları yazdıran bir makro kodum var. İsteğim: kod çalıştırıldığında bir mesaj kutusu açılması ve uyarı notu ile beraber "devam" ve "iptal" seçeneklerinin olması. Eğer iptal seçilirse kod devam etmeyecek. Devam seçilirse kod çalışacak. Kod aşağıda. İlgili notu nasıl ve nereye eklemeliyim.

Sub defter_yazdir_1_sayfa_1()
On Error GoTo son
For i = 1 To 20
If i <= Range("AL49").Value Then
[AP43] = i
ActiveSheet.PrintOut copies:=1
End If
Next
son:
MsgBox "yazma işlemi sona erdi."
End Sub

 

[overfatih]

Aşağıdaki gibi bir değişiklikle istedğiniz olur umarım...

Sub defter_yazdir_1_sayfa_1()
[COLOR=red]a = MsgBox("Uyarı Notunu Buraya Giriniz...", vbOKCancel, "Köprüden Önce Son Çıkış")[/COLOR]
[COLOR=red]If a = vbOK Then[/COLOR]
On Error GoTo son
For i = 1 To 20
If i <= Range("AL49").Value Then
[AP43] = i
ActiveSheet.PrintOut copies:=1
End If
Next
son:
MsgBox "yazma işlemi sona erdi."
[COLOR=red]Else[/COLOR]
[COLOR=red]MsgBox "İptal tuşuna bastınız. Kod çalışmaz"[/COLOR]
[COLOR=red]End If[/COLOR]
End Sub

 

[xternet]

M&#252;kemmel Say&#305;n overfatih. Zihninize sa&#287;l&#305;k.
&#304;yi &#231;al&#305;&#351;malar.

 

[overfatih]

Mükemmel Sayın overfatih. Zihninize sağlık.
İyi çalışmalar.

elimizden geldiğince...
iyi çalışmalar

 

[baydeniro]

Merhaba. Eski bir konu ancak çok faydalandım, sayın overfatih çok teşekkür ederim.