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

بارك الله فيك أستاذنا الفاضل سليم وبعد إذنك لإثراء الموضوع يكون الاختيار النوع والقسم من الخلايا H2 و I2 ويتم كتابة الكود التالي في الخلية G7 =I2 وعند النقر على Run وكانت الخلية I2 فارغة تظهر رسالة " يجب إدخال القسم في الخلية و يتوقف عمل الكود Moujahed 2013.xlsm

اخي الكريم الاجازة السنوية : 30 يوم في الشهر : (30/12) يوم في اليوم : (30/(30/12)) يوم تاريخ اخر اجازة : 01/01/2019 المعادلة كالتالي X = "تاريخ اخر اجازة" مدة العمل الأيام DateDiff("D"; [x] ;now()) الشهور DateDiff("M"; [x] ;now()) السنوات DateDiff("YYYY"; [x] ;now()) ===================================== المعادلة الاجازة المستحقة حسب اشهر العمل الفعلية هي DateDiff("M";[X];Now()) * (30/12) الاجازة المستحقة حسب أيام العمل الفعلية هي DateDiff("D";[X];Now()) * ((30/12)/30) الاجازة المستحقة حسب سنوات العمل الفعلية هي DateDiff("YYYY";[X];Now()) * 30

استبدل اسم الصفحة الى Salim ( لحسن نسح الكود ولصقه بدون مشاكل اللغة العربية) ثم نفذ هذا الكود Option Explicit Dim sh As Worksheet Dim Rg As Range, cel As Range Dim my_formula '+++++++++++++++++++++++ Sub hid_Rows() Application.ScreenUpdating = False show_all For Each cel In Rg.Columns(2).Cells my_formula = _ Application.CountA(cel.Resize(, 4)) If my_formula = 0 Then cel.EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub show_all() Set sh = Sheets("Salim") Set Rg = sh.Range("B4").CurrentRegion Rg.EntireRow.Hidden = False End Sub الملف مرفق Yesk.xlsm

جرب هذا الملف في حال تريد كل الطلاب من نفس الصف (ذكر + أنثى) اترك الخلية H2 فارغة واضغط الزر Run Moujahed 2013.xlsm

استسمحك اخي الفاضل ..لكنه ليس صعب على جهابذة الموقع ...العمل انجزته بالمعادلات لكنه ليس عملي ولا يستجيب لزيادة عدد الموردين ...يتسع ل20 مورد وانا اريد كود يقوم بالتقرير لمئات من الموردين