طلب كود لمسح بيانات نطاقين دفعة واحدة

[عمر أبو صهيب]

جزاكم الله خيرا أساتذتنا الكبار

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

النطاق الأول  D3:AK32

النطاق الثاني AM3:BL32

اسم الشيت res_gen

وأين يوضع الكود

و أحسن الله إليكم مسبقا

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

Sheets("res_gen").Range("D3:AK32,AM3:BL32").ClearContents

 

اين يوضع الكود بصراحة هذا نسبي يعتمد علي متي تريد ان يعمل الكود (بزر-عند الفتح-قبل الغلق-او اي وقت اخر )

 

تحياتي

[عمر أبو صهيب]

جزاك الله خيرا أخي احمد عبد الناصر و على تعاونك و كرمك الحاتمي

[عمر أبو صهيب]

لم أقم بإرفاق ملف لأنني أركز أكثر على مبدأ التعلم و الاعتماد على الذات مع ما يترتب عن ذلك من إزعاج لأساتذة المنتدى ولكن رجائي كبير في كرمهم و سعة صدورهم

فلكم مني كل المحبة و التقدير

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

سؤال ثان هو : هل للكود نفس أداء ماكرو مسجل بالطريقة الاعتيادية ؟

[حمادة عمر]

السلام عليكم

بعد اذن الاخ / احمد عبد الناصر  ... جزاه الله خيرا

 

ضع الكود هكذا في كود الزر المطلوب

Private Sub CommandButton1_Click()
Sheets("res_gen").Range("D3:AK32,AM3:BL32").ClearContents
End Sub

او قم بعمله كماكرو بالطريقة التاليه وربط هذا الكود باي شكل تلقائي تريده

Sub sohaib()
Sheets("res_gen").Range("D3:AK32,AM3:BL32").ClearContents
End Sub

اما بالنسبة للماكرو والكود فهما نفس الشئ بالضبط

ولكن الماكرو له طريقة تقليدية للعمل ولكتابة الكود اما عن طريق كتابة الكود بالطرق الاخري فيمكنك مثلا اختصار لبعض خطوات الماكرو

ولكنه يؤدي نفس الغرض ونفس النتيجة

جزاك الله خيرا

[عمر أبو صهيب]

جزاك الله خيرا أخي حمادة .

قمت باعتماد الحل الثاني على هذا الشكل :

 

و لكن النتيجة خطأ في التطبيق :

 

 

و ترجمة الرسالة و الله أعلم :  the index does not belong to the selection

كما أريد أن ترى الفرق بين الماكرو الثاني المختصر الذي قدمته لي و  الماكرو الأول الذي قمت بتسجيله بالطريقة الاعتيادية و الذي يبدو طويلا ... و هذا يدفعني للتساؤل ألا يؤدي هذا إلى فرق في الأداء و ثقل في البرنامج ؟

[أبو محمد أشرف]

بعد إذن الرائعين 

احمد عبد الناصر

حمادة عمر

هذا المرفق فيه الكود الذي كتباه

clearcontent.rar

clearcontent2.rar