[حل شده] سوال در مورد smgbox

[ali.maghsodi58]

با سلام و عرض ادب
در فایل ضمیمه ماکرویی وجود داره که کار اون پاک کردن داده ها است و این ماکرو شامل smgbox است که در smgbox ددکمه های ok و cancel وجود داره ولی وقتی دکمه cancel رو میزنم باز هم ماکرو اجرا میشه . می خواستم لطف کنید و این ماکرو را اصلاح کنید بطوریکه وقتی دکمه cancel زده شد دیگه اجرا نشه .
پیشاپیش سپاسگزارم.

[generalsamad]

با سلام
این کد را تست کنید

Sub del()
Result = MsgBox("DELET DATA!!!", vbYesNo + vbQuestion, "DANGER")
If Result = vbYes Then
    Range("B3:AF14").Select
    Selection.ClearContents
    Range("A1").Select
Else
    MsgBox "انصراف"
End If
End Sub 

[ali.maghsodi58]

بسیار سپاسگزارم.