اذهب الي المحتوي
أوفيسنا

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


elkareee
إذهب إلى أفضل إجابة Solved by محي الدين ابو البشر,

الردود الموصى بها

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

رجاءا من أعضاءنا وأستاذتنا الكرام مساعدتي في تحويل  دالات ( 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

 

  • Like 6
رابط هذا التعليق
شارك

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

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

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

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

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

 

تم تعديل بواسطه elkareee
رابط هذا التعليق
شارك

اخي elkareee

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

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

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

 

 

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information