رسالة تحذير او تاكيد

[bachiri401]

السلام عليكم

اخواني في المنتدى حفظكم الله وادام عليكم الصحة والعافية 

اريد كود رسالة تاكيد قبل تنفيذ كود مسح البيانات الموجود في الملف المرفق وبارك الله فيكم

رسالة تاكيد.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

هل هدا ما تقصده 

Sub Macro1()
Msg = MsgBox("تفريغ البيانات ؟", vbYesNo, "تأكيد")
    If Msg <> vbYes Then Exit Sub
    
    Application.ScreenUpdating = False
    [D5:K18].ClearContents
    Application.ScreenUpdating = True
  
End Sub

 

تم تعديل يونيو 22 بواسطه محمد هشام.

[bachiri401]

بارك الله فيك هذا هو المطلوب 

اذا كان هناك اكواد بطريقة اخرى ايضا ساكون من الشاكرين