مسح خلايا معينة من جميع اوراق العمل دقعة واحدة لماكرو

[جمال حسين رشدان]

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

اعضاء المنتدى المبارك

ارجوا النظر في الملف المرفق لعمل ماكرو يحذف كل البيانات في المدي ("d5:f35") في كل الاوراق ماعد الورقة الرئيسية (1)

وذلك نظرا لمشقة المسح اليدوي اذا كان الملف يحتوي على اوراق عمل كثيرة وجزاكم الله خيرا

مرتيات.xlsm

[سليم حاصبيا]

1- قم بتسمية الورقة الرئيسية بغير رقم مثلاً  "main_sheet" او اي اسم تختاره

2-قم بتسمية الأوراق التي ترغب بمسح النطاق منها بالارقام  مثلاً   "1"   "2"   "15 " الخ..

نفذ هذا الماكرو      (ستلاحظ الاوراق التي يحتوي اسمها على كلمات  لا يتعاطى معها الماكرو)

الماكرو

Option Explicit

Sub del_Ranges()
Dim my_Srting$: my_Srting = "D5:F35"
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Name Like "#*" Then
     sh.Range(my_Srting).ClearContents
    End If
 Next
End Sub

الملف مرفق كنموذج

MOURATABAT.xlsm

[علي بطيخ سالم]

ممتاز استاذ سليم دائماً ما نجدك في الخدمة بارك الله لك

[جمال حسين رشدان]

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

[أحمد يوسف]

أخى الكريم جمال حسين رشدان

اذا كان المطلوب تم كما تريد على اكمل حال

فلابد من التعبير عن هذا بالضغط على الإعجاب لصاحب هذا الفضل فى حل هذه المشكلة

[جمال حسين رشدان]

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

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

[سليم حاصبيا]

بنعديل بسيط على الكود يمكن عمل هذا

[جمال حسين رشدان]

كيف بعد اذنك حضرتك استاذ سليم حاصبيا

تم تعديل يوليو 31, 2019 بواسطه جمال حسين رشدان

[سليم حاصبيا]

هات نموذج عما تريد 

لان الكود سيتعلق بكيفية كتابة الاسماء مثلاً (Employ3,Employ2,Employ1.....)   او   (محمد    ابراهيم    محمود.....)

من الافضل وضع اسماء الموظفين في جدول خاص في الصفحة الرئيسية في عامود بعيد بعض الشيء لعدم العبث به عن طريق الخطأ

مثلاُ العامود ZZ

[جمال حسين رشدان]

تفضل يا استاذ سليم والملف كنموذج فقط ولكنه قابل للتوسع مستقبلا في عدد صفحات الموظفين

مرتيات.xlsm

تم تعديل أغسطس 1, 2019 بواسطه جمال حسين رشدان

[سليم حاصبيا]

الكود

Option Explicit

Sub del_Ranges()
Dim my_Srting$: my_Srting = "D5:F35"
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Name Like "موظف#*" Then
      sh.Range(my_Srting).ClearContents
    End If
 Next
End Sub

 

[جمال حسين رشدان]

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