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

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

برجاء من حضراتكم مساعدتى عند الوقوف على اسم معين والضغط على زر معين يتم فتح الفورم نببيانت هذا الشخص ولكم جزيل الشكر فورم ادخال و تعديل مرن.rar

جرب المعادلة التالية =SUMPRODUCT((WEEKDAY(B2)={4,5,6})*{3,2,1})+B2 اضافة ايام.rar

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

فكرة الكود انه ياخذ قيمة اي خلية بمجرد الوقوف عليها بداية من العمود الثالث و الصف الخامس و ان تكون خلية واحدة . Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 2 Then If Target.Row > 4 Then If Target.Cells.Count = 1 Then x = Target.Value End If End If End If End Sub ثم عند مسح قيمة اي خلية بداية من العمود الثالث و الصف الخامس و ان تكون خلية واحدة يقوم القود بوضع القيمة المحتجزة(X من الكود الاول) في الصفحة الاخرى ويغير لون الخلية الاصلية . If Target.Column > 2 Then If Target.Row > 4 Then If Target.Cells.Count = 1 Then If IsEmpty(Target) Then Target.Interior.ColorIndex = 16 Sheet2.Cells(Target.Row, Target.Column) = x End If End If End If End If بالفعل يمكن تعديل الكود ليشمل اكثر من خلية دفعة و احدة باسخدام Array . وخبراء المنتدي ممكن يفيدونا في ذلك. تحياتي

السلام عليكم جرب المرفق تحياتي الجمع عن طريق لون الخلية+.rar