جمال حسين رشدان قام بنشر يوليو 31, 2019 مشاركة قام بنشر يوليو 31, 2019 السلام عليكم ورحمة الله وبركاته اعضاء المنتدى المبارك ارجوا النظر في الملف المرفق لعمل ماكرو يحذف كل البيانات في المدي ("d5:f35") في كل الاوراق ماعد الورقة الرئيسية (1) وذلك نظرا لمشقة المسح اليدوي اذا كان الملف يحتوي على اوراق عمل كثيرة وجزاكم الله خيرا مرتيات.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يوليو 31, 2019 أفضل إجابة مشاركة قام بنشر يوليو 31, 2019 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 2 2 رابط هذا التعليق شارك More sharing options...
علي بطيخ سالم قام بنشر يوليو 31, 2019 مشاركة قام بنشر يوليو 31, 2019 ممتاز استاذ سليم دائماً ما نجدك في الخدمة بارك الله لك رابط هذا التعليق شارك More sharing options...
جمال حسين رشدان قام بنشر يوليو 31, 2019 الكاتب مشاركة قام بنشر يوليو 31, 2019 زادك الله علما استاذ سليم وبارك الله فيك هذا هو المطلوب رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يوليو 31, 2019 مشاركة قام بنشر يوليو 31, 2019 أخى الكريم جمال حسين رشدان اذا كان المطلوب تم كما تريد على اكمل حال فلابد من التعبير عن هذا بالضغط على الإعجاب لصاحب هذا الفضل فى حل هذه المشكلة رابط هذا التعليق شارك More sharing options...
جمال حسين رشدان قام بنشر يوليو 31, 2019 الكاتب مشاركة قام بنشر يوليو 31, 2019 استاذ سليم لو الاوراق المطلوب مسح محتوياتها مسماه بأسماء الموظفين هل يمكن استخدام الكود معها وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 31, 2019 مشاركة قام بنشر يوليو 31, 2019 بنعديل بسيط على الكود يمكن عمل هذا رابط هذا التعليق شارك More sharing options...
جمال حسين رشدان قام بنشر يوليو 31, 2019 الكاتب مشاركة قام بنشر يوليو 31, 2019 (معدل) كيف بعد اذنك حضرتك استاذ سليم حاصبيا تم تعديل يوليو 31, 2019 بواسطه جمال حسين رشدان رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 31, 2019 مشاركة قام بنشر يوليو 31, 2019 هات نموذج عما تريد لان الكود سيتعلق بكيفية كتابة الاسماء مثلاً (Employ3,Employ2,Employ1.....) او (محمد ابراهيم محمود.....) من الافضل وضع اسماء الموظفين في جدول خاص في الصفحة الرئيسية في عامود بعيد بعض الشيء لعدم العبث به عن طريق الخطأ مثلاُ العامود ZZ رابط هذا التعليق شارك More sharing options...
جمال حسين رشدان قام بنشر أغسطس 1, 2019 الكاتب مشاركة قام بنشر أغسطس 1, 2019 (معدل) تفضل يا استاذ سليم والملف كنموذج فقط ولكنه قابل للتوسع مستقبلا في عدد صفحات الموظفين مرتيات.xlsm تم تعديل أغسطس 1, 2019 بواسطه جمال حسين رشدان رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 1, 2019 مشاركة قام بنشر أغسطس 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 1 رابط هذا التعليق شارك More sharing options...
جمال حسين رشدان قام بنشر أغسطس 1, 2019 الكاتب مشاركة قام بنشر أغسطس 1, 2019 جزاك الله خيرا استاذ سليم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان