وليد فتحي

أخي في الله إبراهيم ابوليله فعلا موضوع أكثر من رائع وجزاك الله عنا كل خير وجعله في ميزان حسناتك تقبل مروري

أخي الفاضل انا عملت الجزء الأول وهو التسلسل التلقائي جدول_22.rar

اسف اخي ابراهيم ولكن هذا ما فهمته من طلبك

السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل ابراهيم انا حسب على اساس انه يوجد بالورقة الواحده 50 اسم ويمكنك تغيرها من الخانة الملونه باللون الاصفر Book_111.rar

جزاك الله كل خير أخي الحبيب ورزقك بالصحة والعافية

أتفضل أخي أبو حنين معادلة أخري لعد الخلايا التي بها قيم Book_22.rar

السلام عليكم ورحمة الله وبركاته اتفضل اخي الحبيب استخدمت معادلة أخونا الفاضل أبو عبدالله بالاضافة لكود الاخفاء والاظهار Book_11.rar

جزاك الله كل خير أخي الحبيب محمد أبو البراء

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

وعليكم السلام ورحمة الله وبركاته اتفضل اخي الفاضل لعله المطلوب جدول_11.rar

استاذنا الغالي حمادة عمر بارك الله فيك وزادك من علمه

الشكر لله أخي الفاضل

وعليكم السلام ورحمة الله وبركاته ممكن تراجع الموضوع ده أخي الفاضل http://www.officena.net/ib/index.php?showtopic=51999

السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل ما طلبت ترتيب عكسي_11.rar

اخي خالد الرشيدي بارك الله فيك وجعله في ميزان حسناتك

على حسب ما فهمت من كلامك جرب هذه المعادلة كده =IF(E6>=544;159;ROUNDDOWN((SUM(F6:W6)*10%);1)) 2014-2013المرتبات_11.rar

ما شاء الله في كل مرة تبدع أكثر الله يوفقك ملاحظة : أحد الموظفين تأخر في يوم السبت ساعة وفي يوم الأحد ساعة وعشر دقائق المجموع = 2.10 والبرنامج يعطيني 2.17 ليش ؟ وتقبل تحياتي السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل جرب المرفق وعليكم السلام عليكم ورحمة الله وبركاته بسم الله ماشاء الله الله ينور عليك أخي الفاضل جرت التجربة وهذا هو المطلوب بارك الله فيك أشكرك وأشكر بقية الأعضاء الذين بذلوا جهودا رائعة وتقبلوا تحياتي الشكر لله أخي الفاضل والحمد لله انه تم الوصول لطلبك ونحن هنا جميعا أخوة والمنتدي هنا للتعاون

اتفضل اخي الحبيب على اساس ان كلمة السر هي 123 Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then ActiveSheet.Unprotect Password:=123 For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next ActiveSheet.protect Password:=123 Else MsgBox "!! لم يتم التفريغ" End If Application.ScreenUpdating = True Sheets("عام").Select End Sub

ما شاء الله في كل مرة تبدع أكثر الله يوفقك ملاحظة : أحد الموظفين تأخر في يوم السبت ساعة وفي يوم الأحد ساعة وعشر دقائق المجموع = 2.10 والبرنامج يعطيني 2.17 ليش ؟ وتقبل تحياتي السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل جرب المرفق تحويل مجموع الساعات لايام معدل_22.rar

أخي الحبيب أفتح صفحة الكود عن طريق الضغط على Alt+F11 اضغط كليك يمين على المديول المكتوب به الكود سوف تظهر لك قائمة اختر منها Export File واختر مكان الحفظ للمديول وللاستراج مره اخري اضغط كليك يمين مرة اخري واخترImport File

أخي الحبيب يمكن اضافة هذا السطر ببداية الكود ActiveSheet.Unprotect Password :-"كلمة السر" وايضا هذا السطر بنهاية الكود ActiveSheet.protect Password :- "كلمة السر"

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

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

بعد إذنك أستذ فتحي واستاذ أبو حنين ولو أردنا مسح خانة الرقم ونريدعلامة - تظهر في المربعات نستعمل هذا الكود للإفاده لا غير If Range("D6") = "" Then Range("J6:Q6") = "-" تعديل في محله أخي الفاضل الجموعي بارك الله فيك ونفع بك

عليكم السلام ورحمة الله وبركاته بارك الله فيك أخي في الله أبو حنين وجزاك الله كل خير واسكنك الفردوس الاعلي