نجوم المشاركات

السلام عليكم تفضل التعديل Sub kh_Merge() Dim LR As Long, i As Long, ii As Long, iii As Long LR = Range("A" & Rows.Count).End(xlUp).Row On Error GoTo 1 Application.ScreenUpdating = False Range("A1:E" & LR).Sort Columns(1), xlAscending For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, "a")) > 1 Then Range("A" & i) = "" ii = ii + 1 Else If ii Then With Range("A" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = 2 End With With Range("E" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = 2 End With End If ii = 0 End If Next For i = 1 To LR If Len(Range("A" & i)) Then iii = iii + 1 Range("E" & i).Value = iii End If Next 1: Application.ScreenUpdating = True End Sub في امان الله

السلام عليكم Sub kh_Merge() Dim LR As Long, i As Long, ii As Long LR = Range("A" & Rows.Count).End(xlUp).Row On Error GoTo 1 Application.ScreenUpdating = False Range("A1:E" & LR).Sort Columns(1), xlAscending For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, "a")) > 1 Then Range("A" & i) = "" ii = ii + 1 Else If ii Then With Range("A" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = xlTop End With Range("E" & i).Resize(ii + 1, 1).Merge End If ii = 0 End If Next 1: Application.ScreenUpdating = True End Sub في امان الله

السلام عليكم أهل ومرحبا بك أخي الكريم تفضل المرفق ، إن شاء الله يكون هو ماتريد 2013-2.rar

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

السلام عليكم مبدأ فكرة الكود ليس بفكرتي للامانة انما صادفني وانا اتجول في النت والكود اساسا ليس له فائدة عملية وانما هي جمالية اكثر في المرفق تجدون الطريقة ارجو ان ينال اعجابكم تحريك الاشكال داخل الاكسل.rar

السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك جزاك الله خيرا

السلام عليكم الاستاذ العملاق / جمال عبد السميع -- ملك المعادلات بارك الله فيك تستحقها عن جدارة وتأخرت بالنسبة لك كثيرا ولكن كل شئ بآوان ... فادارة منتدانا الراائع تحسب كل شئ ولا تضييع مجهود احد ابدا ... وتحسن الاختيار دائما وعلي فكرة سما بتسلم علي محمود قوي جزاك الله خيرا

أستاذى ( أسلام الشيمى ) شكرا أستاذى على مرورك وكلماتك بارك الله فيك

السلام عليكم أخي الكريم // حسام طلبك في المرفقات ان كان هناك اي تعديلات لا تترد في طلبها ووفقنا الله واياك الي خير مع ملاحظة (المنصرف - المتبقي) يستخدم مع عرض بيانات القرار لكن في التعديل والاضافة قمت بايقافهما لانك قمت بتعيين معادلات لحساب قيمة المنصرف والمتبقي قرارات.rar

السلام عليكم الحمد لله أن وجدت ماتريد بالنسبة للمثلث الأصفر ، لابأس فلن يضر وقد أحسنت بتجاهله

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

السلام عليكم أخي الكريم تفضل المرفق نسخ معادلة2.zip

السلام عليكم الأخت الفاضلة المرفق حسب آخر تعديل وأضفت قليلا أنك يمكنك إخفاء الأعمدة (الحمراء) وإظهارها فقط عند الحاجة بضغط علامة (-) (+) العلوية بغرض إخفاء مالايلزم في الطباعة مثلا وحسب آخر تعديل أضفت لون (أزرق فاتح) للحالات التي تم تطبيق هذا الوضع الأخير عليها وهي بالترتيب إسم 008 بالصف 76 إسم 009 بالصف 77 إسم 004 بالصف 85 إسم 007 بالصف 88 إسم 010 بالصف 91 إسم 013 بالصف 94 إسم 011 بالصف 105 إسم 001 بالصف 108 لاحظي أن في هذا الوضع الأخير ستبقي الشريحة ظاهرة كما هي (3 مثلا) ولكن ستتغير معاملاتها في المعادلات إلي ماستكون عليه بعد خصم 15 دقيقة تفضلي المرفق تأخيرات الموظفين4.rar

السلام عليكم أخي العزيز لم أنساك صبر جميل