أستاذي الأفاضل أ / حسين مامون و أ / علي محمد علي و أ / مجدي يونس و أ /a.kawkab
أشكرك لمروك العطر
بارك الله فيكم
و أ /a.kawkab إضافة رائعة بارك الله فيك
السلام عليكم ورحمة الله وبركاته
زملائي وأخوتي الأفاضل
محاولة مني بعمل فورم بحث وإضافة وتعديل في كل أوراق العمل
اختيار اسم ورقة العمل عن طريق كمبوبوكس
بعد ذلك متاح لك البحث والإضافة في اسم ورقة العمل المختارة
كل الليبل التي أمام التكست بوكسات التي يوضع فيها البيانات التي سوف سيتم إضافتها أو ترحيلها
تأخذ اسماءها من الصف الخامس من ورقة العمل النشطة في حالة إذا تم فتح الفورم
وإليكم الملف
فورم بحث وإضافة وتعديل في كل أوراق العمل.xlsm
بارك الله فيك أستاذنا الفاضل المبدع أستاذ سليم
بعد إذنك
لإثراء الموضوع استخدمت هذه المعادلة
=IF(COUNTIF($D2:$AH2;"ع")<=$C2;TRUE;FALSE)
حتى إذا حدث نسيان تسجيل يوم عارضة لشخص يتم حساب كل العارضة المسجلة
Dawam.xlsx
أستاذ / sam_farh
بالفعل الملف به ما تريد أنه عند فتحه على أي جهاز يختفي الشريط وإذا أغلق الملف وفتحه مرة أخرى يختفي
لأنه الكودي يشتغل في حدث ThisWorkBook عند الفتح
ولإثراء الموضوع
جرب هذا بإذن الله يفي الغرض
Hide.xlsm
بارك الله فيك أستاذنا الفاضل علي محمد علي
وبعد إذنك
أرى أن يتم أيضا الكود في حدث ThisWorkBook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
show_menu
End Sub
حتى يعود الإكسيل للوضع الافتراضي بعد غلق هذا الملف
فعندما يتم فتح ملف آخر لا يجد الشريط مخفى ويحدث هذا الأمر على الأكثر في إصدرات الأوفيس القديمة
Hide.xlsm
معذرة للتأخير على الرد
جرب هذا لعله يفي الغرض مع مرعاة أنه تم إضافة كود لإعادة الترقيم وكود لحذف الصف بشرط أن يكون الخلية في العمود B فارغة خارج الفورم
والفورم يقوم باستدعائهم تلقائيًا وهذان الكودان موجوان في Module1
ht.xlsm
بعذ إذن الأستاذ عبدالله الصاري
هذا الجزء لا داعي لكتابته في الكود
Or Cells(i, 116).Value = "غ")
حيث أن النتيجة إما ناجح أو دور ثاني كما أن العمود 116 ليس عمود الترحي
وتم جعل ورقة الصف تكون نشطة قبل البدء بالكود
المصنف1.xlsb
أتقدم بخالص الشكر والتقدير والعرفان لإدارة المنتدى على هذه الثقة وإن شاء الله نعمل دائمًا معًا لأكثر من الواجب ليظل رقي ورفعة هذا المنتدى
أساتذتى الأفاضل وإخوتي الأحباء الأستاذ مجدي يونس والأستاذ علي محمد والأستاذ حسين مأمون والأستاذ عبدالله الصاري بارك الله فيكم ولكم بمثل ما دعوتم أحبتي في الله