Sub VBARemoveDuplicate1()
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
السلام عليكم
فضلا جرب المعادلة ادناه
=IF(A2<=1250,(A2*2.5%),IF((A2>1250)*OR(A2<2500),((1250)*2.5%)+((A2-1250)*10%),IF(A2>2500,((1250)*2.5%)+((A2-1250)*10%)+((A2-2500)*15%))))
الاخوة الافاضل
كل عام وانتم بخير
عندي ملف وقمت بعمل الكود لكن هناك بعض الامور لم استطيع اكمالها على الكود وهي خمس نقاط حسب الصورة ادناه
رقم 1 وهي عند تنفيذ الامر يتم دمج الخليتين
رقم 2 ياخذ اخر رقم مننفس العمود ويضيف عليه الرقم في العمود E
في السطر الثاني والخاص بنفس اليوم بعد الدمج يجمع الرقم الاعلى مع مقابله في اخر السطر
بعد العملية يتم اضافة سطر فارغ من A:E بعد كل عملية
دمج واضافة سطر-تجربة.xls
عمل رائع اخي الفاضل احمد زمان واضافة حسب مطلوب الاخ
يضاف معادلة صفيف
=IFERROR(INDEX(B$5:B$19;MATCH(1;
((COUNTIF(B4:B$4;B$5:B$19)=0)*(COUNTIF(B$5:B$19;B$5:B$19)>=2));0));"")
او المعادلة
=LOOKUP(2;1/(((COUNTIF($L$4:L4;$B$5:$B$23)=0)*(COUNTIF($B$5:$B$23;$B$5:$B$23)>1)));$B$5:$B$23)
فضلا انظر للمرفق
takrir (2).xlsx
في معادلة الاجمالي يفضل تبديلها للمعادلة ادناه
IF(C5<=720;C5*C4;"انتبه عدد الساعات زاد عن المسموح به وهو 720 ساعه")
بحيث لو تجاوزت عدد الساعات تظهر رسالة تنبيه ..انظر للمرفق وعدل عدد الساعات يدويا وانظر للنتيجة .. مع الشكر
Overtime Calculation Article 107 (1).xlsx