عزيزي جواد
هذا المنتدى له الفضل علي قبل أي أحد من الأعضاء لأنني تعلمت منه الكثير بفضل أساتذة هذا المنتدى العظيم
وبالتأكيد إن شاء الله سأشرح لك
---------------------------------------------------------------------------------------------
هذا هو الكود
Sub dddd()
prompt = "هل تريد مسح البيانات"
Command_buttons = vbYesNo + VbMsgBoxRt1Reading
project = MsgBox(prompt, Command_buttons, Title)
If project = vbYes Then
Range("الحضور") = ""
Range("العاملين") = ""
End If
MsgBox ("تم المسح")
End Sub
1- قم بتحديد النطاق المطلوب في كل ورقة
2- قم بتسميت النطاقات بأي أسم تريده
3- قم بكتابة أسم النطاق بدلاً من أسماء النطاقات الموجودة في الكود Range("الحضور") = "" Range("العاملين") = ""
وشكراً .