elkareee قام بنشر يناير 24, 2023 مشاركة قام بنشر يناير 24, 2023 السلام عليكم ورحمة الله وبركاته رجاءا من أعضاءنا وأستاذتنا الكرام مساعدتي في تحويل دالات ( vlookup - sumifs - countifs ) إلى أكواد Vba لحل مشكلة ثقل الشيت مرفق جزء من الشيت الأصلي لأن الشيت الأصلي به شيتات كثيرة وبيانات أكثر من ذلك بكثر فرجاءا المساعدة حتي يتم نقل الأكواد إلى الملف الأصلي Test.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر يناير 24, 2023 أفضل إجابة مشاركة قام بنشر يناير 24, 2023 عليكم السلام ورحمة الله وبركاته تفضل أخي الكريم 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 6 رابط هذا التعليق شارك More sharing options...
elkareee قام بنشر يناير 24, 2023 الكاتب مشاركة قام بنشر يناير 24, 2023 (معدل) وعليكم السلام ورحمة الله وبركاته أولا أحب أشكر حضرتك على سرعة الرد أستاذنا محي الدين أبو البشر ثانيا هو كده بيعمل على الشيت كله عند الإستدعاء هل ينفع في حالة اني ضفت موظف جديد يسمع أتوماتيك من غير استدعاء ولو سمحت ينفع شرح الكود علشان انا خبرتي مش كبيرة قوي برجاء المساعدة من خبراءنا تم تعديل يناير 24, 2023 بواسطه elkareee رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 السلام عليم اخي جرب المرفق Test.xlsm 3 رابط هذا التعليق شارك More sharing options...
elkareee قام بنشر يناير 29, 2023 الكاتب مشاركة قام بنشر يناير 29, 2023 ألف شكر يافندم تم عمل المطلوب رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 29, 2023 مشاركة قام بنشر يناير 29, 2023 اخي elkareee ليس انا صاحب افضل اجابة وإنما صاحب افضل اجابة هو الاستاذ محي الدين ابو البشر فيرجي.. اعطاء كل زي حق حقه وفقنا الله واياكم الي ماهو خيراً 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.