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

[محمد7788]

عندى ملف وعملت ماكرو لازالة بيانات عمود معين واريد ان اضيف للماكرو رسالة تحذير قبل البدء فى الحذف فكيف افعلها؟

عذرا استاذى الملف المرفق به زر باسم شيت بيانات وداخل هذه الصفحة زر مسح البيانات متصل بماكرو باسم clear 

المطلوب انى عندما اضغط على زر مسح البيانات يعطينى رسالة تحذيرية قبل تنفيذ الامر

برنامج التنسيق تعديل14.xlsm

[Ali Mohamed Ali]

تفضل هذا هو الكود

Sub clear()
kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo)
        If kk = vbYes Then
Range("b11:C300").ClearContents
Range("J11:k300").ClearContents
End If
End Sub

 

برنامج التنسيق تعديل14.xlsm

[محمد7788]

جزاك الله خيرا استاذ على 

طلب اخر بعذ اذنك كيف اقوم بعمل زر انهاء وخروج من البرنامج؟

 

[Ali Mohamed Ali]

تفضل

Sub exit_end()
For Each w In Application.Workbooks
 w.Save
Next w
Application.Quit
End Sub

وهذا كود أخر ايضا يلبى طلبك

Sub testSave()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub