الشهابي

أساتذنا الكبار/عبد الله باقشير و جمال دغيدي و أحمد فضيلة ألف ألف مبروك لكم ومبروك لنا كلنا لأنها فرحة لنا جميعا لا تتصوروا مدى فرحة أعضاء هذا الصرح بهذه الترقية فأفضالكم علينا جميعا ليس لها حدود تحياتي وتقديري لكم تلميذكم المحب لكم / الشهابي

أخي العزيز / محمد عوض الكود لايمسح البيانات في الصفحة الرئيسية وإنما يمسح البيانات في الأوراق المرحل لها منعاً للتكرار الذي طلبته لاحظ المرفق Copy of التصليحات2.rar

أخي العزيز / محمد سعيد العمدة تحياتي وتقديري للأخت الفاضلة / أم عبد الله حفظها الله إن دالة (VLOOKUP) فقط تقوم بجلب البيانات من الجدول حسب المعطيات المطلوبة وأما طريقة إلإدخال والتعديل لا يتم إلى في الجدول الرئيسي أو عن طريق الكود البرمجي و أم عن طريق الدالات لا يمكن ذلك لأن الخلية تحتوي على صيغة وليست قيمة حتى تعدل فيها المهم هذا فورم للبحث والإدخال والتعديل للعلامة الكبير أستاذنا عبد الله باقشير أطال الله عمره إن شاء الله يلبي طلبك تقبل تحياتي ادخال وترحيل البيانات.rar

أخي العزيز الأستاذ / محمود الأسيوطي بالنسبة للطريقة أراه منطقية وإن كان هنك صعوبة ممكن عن طريق عملية النسخ من خلية سابقة ثم اللصق بدلا من البحث في القائمة المنسدلة ومن ثم التعديل المهم الملف السابق قمت بالعمل عليه حيث أضفت عمود لتحديد عدد الدوريات حتى يكون الحساب مضبوط ونتجنب إشكالية تكرار الساعة وعدم معرفتها ( صباحاً ) أو ( مساء) سأرفق لك الملف وحاول تطبق عليه ساعات عديدة لمعرفة مدى صحة المعادلات لأنني لم أطبق عليه سواء المعادلات الموجودة أمامك في الملف وإلا فطريقتك الأخيرة هي الصحيحة لأنها تحدد لنا الوقت بشكل صحيح الأخت الفاضلة الأستاذة / أم عبد الله تركيز أخينا محمود الأسيوطي هو على عدد ساعات العمل وساعات الإضافي وأم بالنسبة للتأخير أشار في مشاركة له أننا نتركه أولا وإلا فرأيك صواب حساب عدد ساعات العمل ثم الاضافى 2_4.rar

أخي العزيز / asdwasd بصراحة لم استطع تفهم الملف تبعك لعمل الإحصاء وكيف يمكن معرفة أصحاب العلمي من الأدبي ولا يوجد في الورقة data ما يحدد ذلك كذلك المجموعة الأولى والمجموعة الثاني أرجو التوضيح أكثر والعفو

أخي العزيز / محمد عوض لعل أخي العزيز الأستاذ / محمود الشريف لديه مشاغله للرد عليك وإن شاء الله يتوفر له الوقت للرد عليكم وحسب ما فهمت من مشاركتكم الأخير استبدل كود الترحيل بهذا الكود وإن شاء الله يحقق مطلوبك Sub trheel() Application.ScreenUpdating = False Dim cl As Range, i As Integer For i = 2 To 7 For Each cl In Range("E11:H" & [E10000].End(xlUp).Row) If cl.Value = Sheets(i).Name Then Sheets(i).Range("c2:ap1000").Clear cl.Offset(0, -2).Resize(1, 22).Copy Sheets(i).Range("c" & Sheets(i).[c10000].End(xlUp).Row + 1) End If Next Next End Sub فقط أضفت خاصية مسح البيانات من الأوراق المرحل لها حتى يتم الترحيل إليها مرة أخرى في السطر التالي : Sheets(i).Range("c2:ap1000").Clear تقبل تحياتي وتقديري وتحية خاصة للأستاذ القدير / محمود الشريف

أخي العزيز / زاكي بوشغلام كود الترتيب أبجد هوز لست من فعله بل هذا من أعمال أستاذنا الكبير الخالدي حفظه الله وإن شاء الله يتمكن من شرحه لك ولنا أطال الله عمره بصراحة لم أفهم ماذا تقصد بذلك وأين التكرار يحدث أرفق الملف مع تحديد التكرار الذي تقصده

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

الأستاذ القدير الخلوق / محمود الشريف أولا : أنا لست أستاذ في هذا المنتذى وأن كنت أتقبلها لأنني فعلا مدرساً وتعودنا على سماعها من تلاميذنا بالمدرسة يوميا وأنت لست تلميذ وإنما هذا تواضع منك أنت فأعمالك تشهد لك بأنك نعم الأستاذ وفي الحقيقة كلنا تلاميذ بهذا الصرح الكبير كل يوم نتعلم من بعضنا البعض فجزاك الله خير

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

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

أخي العزيز / حيان علاء الدين وبعد الحل الرائع الذي قدمه أخي الحبيب الأستاذ / محممود الشريف شرف الله قدره وأعلى منزلته وبشهادة أستاذنا الكبير مجدي يونس حفظه الله ولكن هذا حل قد أعددته سابقاً فأحببت أن أشارك أخي الأستاذ محمود به وبعد اذنه طبعا من خلال الكود التالي : Sub Add_row() Application.ScreenUpdating = False Application.Calculation = xlManual For x = 2 To 6001 Step 2 Range("A" & x).EntireRow.Insert Next x Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub For x = 2 To 6001 Step 2 غير الرقم في السطر السابق حسب عدد الصفوف المراد الإضافة فيها بالضعف فتلاحظ الرقم عندك (6001) لأنه عند الإضافة سيزيد صف وباتالي سيزيد رقم الصف الآخر المراد الإضافة بعده أو على الأصح في هذه احالة قبله ابتدأ من الصف ( 2) إدراج صفوفو في نطاق.rar

أخي العزيز / shaerhamada وبعد اذن الأساتذة الكرام محمد أبو البراء وأم عبد الله وما دام الأرقام عندك في العمود (A ) متسلسلة فالأفضل لك أن تكتب في الأعمد المطلوب جلب أرقام الجلوس فيها في الصفين الأول والثاني يدويا بدون معادلة وتسحبها إلى الأسفل وهذا لن يؤثر على المعادلات في العمود المجاور ( أعمدة الدرجات ) اكتب في السطر الأول 1 2 3 4 5 وفي السطر الثاني 6 7 8 9 10 ثم حدد الصفين بكل الأعمدة واسحبها لأسفل وإن كنت تريد الحل بالمعادلات فحل الأستاذة الفاضلة أم عبد الله ما شاء الله فيه الكفاية لاحظ المرفق ومرفق آخر شرح فديو صامت للطريقة help.rar سحب وإفلات.rar

الأخت الفاضلة الكريمة الأستاذة / أم عبد الله ألف ألف مبروك على هذه الترقية المستحقة 100 % وما نراه من أعمال وردود في هذا الصرح العظيم شاهد على ذلك وإن شاء الله سوف تترقين إلى أفضل من ذلك بإذن الله أتمنى من الله العلي القدير أن تكون كلها حياتك رقي في رقي وسمو في سمو وفرح في فرح والله يحفظك ويحفظ أولادك ويبارك فيهم ومبروك لابنتك نجاحها وتخرجها من كلية الطب تقبلي تحياتي وتقديري

خي العزيز الأستاذ / محمد الأسيوطي أولا : ما رأيك في الملف الأخير الذي أرسلته واتبعت فيه طريقة الأستاذة الفاضلة أم عبد الله بالمشاركة ( 18# )من خلال تنسيق الخلايا تنسيق ( رقم ) ثانياً : هناك مشكلة ستواجهنا في الحساب اذا استمر العامل لأكثر من 14 ساعة مثلاً سيتكرر رقم ففي الدورية الأولى سيكون من 7 إلى 9 وبما أنه لا توجد ما يدل على أن الساعة (9) مساء سيتم التعامل معها على أن هذه الساعة (9 ) صباحاً وأن الموظف عمل فقط لمدة ساعتين في الدورية الأولى لا بد في هذه الحالة من تحديد الساعة ( صباحاً) أو ( مساء ) ومادام أن الشيت يحتوي على ثلاث دوريات واستمر العامل من 7 صباحاً إلى 11 ليلاً لماذا لا تحسب كل دورية مستقلة في موضعها من الشيت واعذرني أخي العزيز على هذه الاستفسارات لأننا نريد أن نصل معاً ومع الأخوة الكرام إلى الحل الأمثل إن شاء الله

أخي العزيز / / ۩◊۩ أبو حنين ۩◊۩ فعلا الشكر موصول لعلامتنا الكبير الأستاذ / عبد الله باقشير حفظه وبارك الله فيه صاحب الأعمال المميزة دائماً وجزاك الله خير على كلماتك الطيبة

أخي العزيز الأستاذ / محمد الأسيوطي قبل البدء في العمل على حسب المدخلات الأخيرة التي وضعتها لدي بعض الاستفسارات في الوردية الأولى كيف أعرف أن العامل اشتغل ورديتين أو وردية فمثلا بدأ العمل الساعة ( 7 ) صباحا وانصرف من العمل الساعة (9 ) مساءً هل احسب الزمن من الساعة (3) مساء إلى ( 9) ضمن إضافي الوردية الأولى أو من ساعات عمل الوردية الثانية في الوردية الثانية لو استمر العامل إلى الساعة (4) صباحاً كيف نعرف أن الساعة (4) صباحاً أو (4) مساء وقد كتبت (4) فقط والشيء الآخر هل ممكن حسابها ضمن ساعات الوردية الثالثة اعتبار أنه عمل ورديتين فالحل الأمثل هو ما تفضلت به الأخت الكريمة من تغير تنسيق إدخال الوقت والتنسيق المناسب يختار من مخصص ( hh:mm AM/PM ) وبالتالي سيسهل التعامل ونستطيع الوقت الصباحي من المسائي هذا والعفو

الأخت الكريمة الأستاذة / أم عبد الله الطريقة التي استخدمتيها في الملف الثاني ( حساب عدد ساعات العمل ثم الإضافي 1 ) ممتازة جدا ً وذلك من خلال توحيد تنسيق الخلايا جميعهن ( رقم ) هذا الأمر الذي غاب عن إدراكنا ولكن لم يغب عن إدراك أمثالكم أيتها الأستاذة الفاضلة وبالتالي يتم الحساب بمعادلات بسيطة كما تفضلتي بهن أختي الكريمة ونبعد عن التعقيدات في المعادلات كما فعلت أرى أن حلك هو الأنسب ويبعدنا عن التعقيدات وقد طبقت طريقة حلك على الملف الأخير الذي أرسله الأخ العزيز الأستاذ / محمد الأسيوطي حساب عدد ساعات العمل ثم الاضافى 2.rar

أخي العزيز / زاكي بوشغلام هذا شرح فديو للتنسيق الشرطي للصفوف الفارغة شرح التنسيق الشرطي لإخفاء الصفوف الفارغة.rar

أخي العزيز الأستاذ / محمد الأسيوطي هذه محاولة بعد المطلوبات الأخيرة لعلها تفي بالغرض مع بعض التعديلات في تنسيق الخلايا حساب عدد ساعات العمل ثم الاضافى2.rar

أخي العزيز / محمد الشريف شرف الله قدركم وأعلى منزلتكم أسعدني مروركم الكريم جزاكم الله كل خير

أخي العزيز / Ahmed Elbeshlawy كنت أريد منك تحديد موضع القيمة التي تحددها كحد للإتمان المهم لو نفترض أن حد الإتمان موجود في العمود (H) قمت بعمل لك تنبيه في العمود (G) بأنه تجاوز الحد وكذلك في العمود (F) إجمالي المستحق تنبيه بالتنسيق الشرطي لا حظ المرفق عملاء.rar

أخي العزيز / ۩◊۩ أبو حنين ۩◊۩ هذا كود لأستاذنا القدير / عبد الله باقشير حفظه الله قد طلبته منه منذ فترة طويلة مع بعض التغيرات والإضافات القليلة ليتناسب مع مطلوبك إن شاء الله يحقق لك ذلك تقبل تحياتي TIST1.rar

أحي العزيز / الأستاذ محمد الأسيوطي وكما أشارت الأستاذة الكريمة / أم عبد الله وكذلك الأستاذ الكبير / حمادة باشا أنه لا بد من تحديد وقت يكون مسموح به للتأخير وقد تكون هماك شروط وتجاوزات لابد ممن الإشارة إليها أرفق لك الملف الأول وقد عدلت المعادلات بحيث يتم الحساب على النحو الآتي : 1- يتم حساب الإضافي الذي قبل بدء الدوام زايد الإضافي بعد الدوام وذلك بشرط أن يكون وقت الحضور قبل بدء الدوام ووقت الإنصراف بعد نهاية الدوم حتى لايحسب وقت إضافي من ساعات العمل الأصلية 2- يتم حساب ساعات العمل فقط التي بعد بدء الدوم المحدد إلى نهاية الدوام المحدد وتم وضع شرط إذا تقدم في الحضور قبل الدوام يحسب الوقت فقط من بدء الدوام الرسمي لأن الوقت الذي قبل الدوام سوف يحسب مع الإضافي ونفس الطريقة بالنسبة لنهاية الدوام لا يحسب الوقت الذي بعد الدوام الرسمي لأنه محسوب مع الإضافي أيضا وفي حالة أن يكون الحضور قبل الدوام والإنصراف بعد الدوام يحسب الدوام الرسمي فقط وه (8 ساعات ) المحددة في الوردية أرجو الإطلاع على الملف وإبداء الراي منكم ومن الأخوة الأساتذة الكرام حساب عدد ساعات العمل ثم الاضافى 1.rar

الأخت الكريمة الأستاذة / أم عبد الله تسعدنا مشاركتك معنا ورأيك سديد ولا غبار عليه نعم هنك احتساب لساعات العمل كما أن هناك حساب للوقت الإضافي بعد الدوام وأما لو هناك وقت إضافي قبل الوقت المحدد لبدء الدوام يتم احتسابه مع ساعات العمل ولكن يمكن احتسابه في معادلة مستقلة وفعلا ستكون النتيجة خظأ في حالة وقت الإنصراف أقل من وقت نهاية الدوام وإن شاء الله سوف اعدل المعادلات حتى تكون النتائج صحيحة إن شاء الله ولكن عند توفر الوقت إن شاء الله تدلون بدلوكم أنتم واخونا محمد الأسيوطي أو أحد من إخواننا الأعضاء أكرمكم الله جميعاً والعفو