عمل رسالة تحذيرية ( ظهور رسالة تفيد (بأنك على وشك الحذف ( نعم) (لا) ) )

[monm]

انفذ ماكرو بالضغط على زر ليقوم بمسح عدة خلايا ولكن اريد ظهور رسالة تفيد (بأنك على وشك الحذف ( نعم) (لا) ) كيف يتم عمل هذا

[دغيدى]

Sub YES_NO_cancel()

YesNoCancel = MsgBox("مهلا   هل تريد مسح كل التوزيعات . ؟", vbYesNoCancel + vbCritical, "من فضلك   ...   انتبه ")

Select Case YesNoCancel

Case vbYes

مسح

Case vbNo

Exit Sub

Case vbCancel

Exit Sub

End Select

End Sub

Sub مسح()

	Range("c7:ac166").ClearContents

	Range("c168:ac217").ClearContents

	Range("b7").Select

End Sub

تفضل اخى الفاضل وغير المدى المراد مسح محتوياته بما يتلاءم معكم

[monm]

ايه العظمة دى كلها وايه الابداع ده والتمكن ده كلمة شكر والله ماتكفى ربنا يجزاكم حسنات لأنكم تفرجون الكروب والهموم عن المبتدئين