تعديل كود مسح

[jawad80]

السلام عليكم

ارجوا من الاخوة الخبراء مساعدتي بتعديل الكود ادناه ليقوم بمسح نطاقين مختلفين من الخلايا في اوراق متعددة

 

ولكم الشكر

 

 

Sub Button1_Click()
prompt = "هل تريد مسح البيانات؟انتبه لا يوجد تراجع عن المسح!!"
Command_buttons = vbYesNo + VbMsgBoxRt1Reading
project = MsgBox(prompt, Command_buttons, Title)
If project = vbYes Then
    Range("B4:E13").Select
On Error GoTo 1
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
1:
    Range("A1").Select

End If
End Sub

مثال2.rar

[Akram Galal]

أخي جواد

تفضل المطلوب

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

سيتم مسح الخلايا من A2:B17 في الورقة اسماء العاملين

وسيتم مسح الخلايا من A3:B18 في الورقة الحضور اليومي

مسح نطاقين.rar

[jawad80]

شكراً لك اخي اكرم وبارك الله فيك ولكن هل بالامكان التعديل على النطاق لتوسيعة مثلاً في كلا الورقتين وكيف

تحياتي لك

[Akram Galal]

عزيزي جواد

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

حتي أتمكن من تنفيذ المطلوب

[jawad80]

اخي العزيز شكراً للرد

ليس لدي عمل معين في مصنف اكسل وانما اريد ان اتعلم فقط فأن شرحت لي ذلك اكون ممتن لك جداً حيث اني اجد في هذا المنتدى امور وخفايا خاصة بالاوفس غاية في الروعة وذلك بفضلك والاعضاء الاخرين فيولد ذلك لدي حماس في ان اصبح مثلكم وان اصبحت فبفضلكم

هذا ولك خالص شكري وتقديري ...

[Akram Galal]

عزيزي جواد

هذا المنتدى له الفضل علي قبل أي أحد من الأعضاء لأنني تعلمت منه الكثير بفضل أساتذة هذا المنتدى العظيم

وبالتأكيد إن شاء الله سأشرح لك

---------------------------------------------------------------------------------------------

هذا هو الكود

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("العاملين") = ""

وشكراً .