الملف مرفق والزر جاهز ومابقي إلا الكود . لا تحرمونا بارك الله فيكم .

[zoom10]

السلام عليكم ورحمة الله وبركاته

برفقه مصنف به العديد من الأوراق والمطلوب إضافة كود في الزر الموجود في الصفحة الرئيسية لمسح جميع بيانات الأوراق دون إستثناء .

ملاحظة بسيطة : سبق وطرحت الموضوع في رد على بعض المواضيع المشابهة ولكن لم أجد تجاوب . فقلت أنزله كموضوع أساسي لأهمية الموضوع لدي .

بارك الله في جهودكم ونفع بكم .

Book8.rar

[عبد الفتاح كيرة]

عليكم السلام و رحمة الله تعالى و بركاته

استخدم الكود

Sub clearSheets()

For i = 2 To 19

Sheets(i).Range("c11:l36").ClearContents

Next i

End Sub

تم تعديل فبراير 14, 2011 بواسطه kemas

[zoom10]

أشكرك أخي kemas على ردك ولكن إريد الكود يمسح فقط البيانات التي في الجدول فقط .

ياليت تعدل الكود بحيث يقوم بتحديد الجدول فقط ويترك العنوان والتوقيع إذا أمكن وشكرا

[عبد الفتاح كيرة]

تم التعديل فى ردى السابق

[zoom10]

يعجز اللسان عن الشكر .

الله يبارك فيك ويرزقك من حيث لاتحتسب .