تحويل معدلات إلى أكواد

[elkareee]

السلام عليكم ورحمة الله وبركاته

رجاءا من أعضاءنا وأستاذتنا الكرام مساعدتي في تحويل  دالات ( vlookup - sumifs - countifs ) إلى أكواد Vba لحل مشكلة ثقل الشيت 

مرفق جزء من الشيت الأصلي لأن الشيت الأصلي به شيتات كثيرة وبيانات أكثر من ذلك بكثر فرجاءا المساعدة حتي يتم نقل الأكواد إلى الملف الأصلي Test.xlsx

[محي الدين ابو البشر]

عليكم السلام ورحمة الله وبركاته

تفضل أخي الكريم

Sub test()
With Sheets("يومية الحضور والإنصراف").Range("B4:C" & Sheets("يومية الحضور والإنصراف").Cells(Rows.Count, 1).End(xlUp).Row)
.Formula = "=IFERROR(VLOOKUP($A:$A,Table9,COLUMN(),0),"""")"
.Value = .Value
End With
With Sheets("رصيد الأجازات").Range("B3:D" & Sheets("رصيد الأجازات").Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IFERROR(VLOOKUP($A:$A,Table9,COLUMN(),0),"""")"
.Offset(, 3).Resize(, 1).Formula = "=IFERROR(IF(DATEDIF([@[تاريخ التعيين]],$D$1,""D"")/30>3.1,""يستحق"",""""),"""")"
.Offset(, 5).Resize(, 1).Formula = "=IF([@[معادلة الرصيد]]=""يستحق"",$O$1+[@[معالجة الرصيد]],0)"
.Offset(, 6).Resize(, 1).Formula = "=[@[الرصيد المرحل]]+[@[رصيد 2023]]"
.Offset(, 7).Resize(, 1).Formula = "=(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A3,'يومية الحضور والإنصراف'!$H:$H,""أجازة"")+(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A3,'يومية الحضور والإنصراف'!$H:$H,""أجازة مجمعة"")))"
.Offset(, 8).Resize(, 1).Formula = "=(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A4,'يومية الحضور والإنصراف'!$H:$H,""أجازة عارضة""))"
.Offset(, 9).Resize(, 1).Formula = "=IF(E3=""يستحق"",$N$1-[@[ عارضة]],0)"
 .Offset(, 10).Resize(, 1).Formula = "=(([@[إجمالي الرصيد المستحق]]-([@[ سنوي]]+[@[ عارضة]]+[@[تسوية نقدي]])))-[@[باقي رصيد العارضة]]"
.Offset(, 11).Resize(, 1).Formula = "=([@[باقي رصيد السنوي ]]+[@[باقي رصيد العارضة]])"
 With .Resize(, 12)
 .Value = .Value
 End With
End With
End Sub

 

[elkareee]

وعليكم السلام ورحمة الله وبركاته

أولا أحب أشكر حضرتك على سرعة الرد أستاذنا محي الدين أبو البشر

ثانيا هو كده بيعمل على الشيت كله عند الإستدعاء هل ينفع في حالة اني ضفت موظف جديد يسمع أتوماتيك من غير استدعاء

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

برجاء المساعدة من خبراءنا

 

تم تعديل يناير 24, 2023 بواسطه elkareee

[محمد يوسف ابو يوسف]

السلام عليم 

اخي

جرب المرفق Test.xlsm

[elkareee]

ألف شكر يافندم تم عمل المطلوب

[محمد يوسف ابو يوسف]

اخي elkareee

ليس انا صاحب افضل اجابة وإنما صاحب افضل اجابة  هو الاستاذ  محي الدين ابو البشر

فيرجي.. اعطاء كل زي حق حقه

وفقنا الله واياكم الي ماهو خيراً