Msgbox makroları

[BilgiSayım07]

Sizden bir makro örneği istiyorum. msgbox kullanırken tamam ve iptal opsiyonları olacak. Tamam opsiyonu seçildiğinde aynı mesaj tekrar gelecek. İptal opsiyonu eçildiğinde ise farklı bir msgbox dosyası yazdırılacak. Bana yardımcı olur musunuz.

 

[Muzaffer Ali]

Merhaba.

Sub Test()
Yinele:
    If MsgBox("Tamama basınca bu mesaj tekrar eder.", vbOKCancel) = vbOK Then
        GoTo Yinele
    Else
        MsgBox "İptale bastınız."
    End If
End Sub

 

[BilgiSayım07]

Tesekkür ederim