تسجيل الغياب والحضور بتاريخ ووقت محين بنظام الفصل والاحصاء السنوي!

[bouallati]

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

المشاركة الأولى في هذا الملتقى المبارك

فكرة البرنامج:

الورقة بها أكثر من قسم(فصل أو مستوى)

باستخدام خاصية الفلترة من جدول جميع الطلاب بمختلف مستوياتهم =>

1. نختار القسم المراد تسجيل الغيابات فيه
2.  تسجيل الغيابات (بحرف "غ" للغائب)والحضور (تترك الخانة فارغة للحاضر)
3. وترحّل الغيابات إلى جدول "stat" في ورقة "احصاء الغيابات" فيظهر التاريخ كاملا باسم اليوم ووقت تسجيل الغيابات ( ) # إذا لم يكن هناك غياب يسجل التاريخ فقط#

في هذا البرنامج: 

1. ورقة واحدة لتسجيل الغيابات لجميع المستويات أو الأقسام باستعمال خاصية الفلترة ويرحّل فقط القسم المفلتر
2. ورقة واحدة لاحصاء الغيابات لجميع المستويات أو الأقسام
3. يمكن إحصاء عدد الغيابات (لكل طالب) بين تاريخين يحددهما المستخدم
4. يمكن اضافة وحذف أسماء الطلاب من القائمة الاسمية 

فعسى أن تساعدوني في انجازه وفق هذا النموذج

تقبلوا مني أسمى عبارات التقدير والاحترام

الغيابات والحضور.xlsx

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit
Private Fltr_range As Range, I_range As Range
Private EHsaa As Worksheet, Tasj As Worksheet
Private lr_EHsaa%, lr_Tasj, m%
'===============================
Sub my_filter()
 Set EHsaa = Sheets("احصاء الغيابات")
 Set Tasj = Sheets("تسجيل الغيابات")
 lr_EHsaa = EHsaa.Cells(Rows.Count, 2).End(3).Row
 lr_Tasj = Tasj.Cells(Rows.Count, 2).End(3).Row
 Set Fltr_range = Tasj.Range("B6:E" & lr_Tasj)
 Set I_range = EHsaa.Range("T1:T6")
lr_EHsaa = IIf(lr_EHsaa = 3, 4, lr_EHsaa + 1)
Dim i%
 For i = 1 To I_range.Rows.Count
  Call Filter_FOR_Me(Fltr_range, 3, EHsaa.Range("T" & i))
 Next
 EHsaa.Range("b3").Select
 Application.CutCopyMode = False
 Fltr_range.AutoFilter
End Sub
'=============================================
Sub Filter_FOR_Me(rg As Range, n, St)

 rg.AutoFilter , field:=n, Criteria1:=St
 rg.Offset(1).Resize(rg.Rows.Count - 1).Copy
 EHsaa.Range("B" & lr_EHsaa).PasteSpecial xlValues
 m = EHsaa.Cells(Rows.Count, 2).End(3).Row + 1
 lr_EHsaa = m + 1
End Sub

الملف مرفق

Abscence.xlsm

[Ali Mohamed Ali]

بارك الله فيك وزادك الله من فضله استاذ سليم كود ممتاز