محتاج معادلة أو كود لاستخراج تاريخ الغياب

[ehabaf2]

السلام عليكم الاساتذة الافاضل اهل الخبرة

بعد اذن حضراتكم

عندى شيت حضور و غياب المعلمين

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

مرفق ملف للتوضيح

و لكم جزيل الشكر الاساتذة الافاضل 

ياريت لو مفيش معادلة أو كود تنفذ المطلوب اي حد يكتب لى انه مينفعش تنفيذ المطلوب لعدم الانتظار طويلا

اكرر شكرى لحضراتكم

غياب يومية.xlsx

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub Get_AbsDay()
Dim ws As Worksheet, LR As Long
Dim I As Long, C As Range, x As Integer
Dim A As String, B As String, Kod As String
Dim p As Integer, q As Integer
Set ws = Sheets("Sheet1")
ws.Range("R8:U8") = ""
ws.Range("R10:U10") = ""
 '---------------------
LR = ws.Range("B" & Rows.Count).End(3).Row
Kod = ws.Range("N6").Value
p = 17
q = 17
A = "أ"
B = "غ"
I = 2
Do While I <= LR
If ws.Cells(I, 1) = Kod Then
ws.Range("N8").Value = ws.Cells(I, 2).Value
x = ws.Cells(I, 1).Row
For Each C In ws.Range(ws.Cells(x, 3), ws.Cells(x, 10))
If C.Value = A Then
p = p + 1
ws.Cells(8, p).Value = ws.Cells(2, C.Column).Value
ElseIf C.Value = B Then
q = q + 1
ws.Cells(10, q).Value = ws.Cells(2, C.Column).Value
End If
Next
End If
I = I + 1
Loop
End Sub

 

[ehabaf2]

السلام عليكم استاذ ابراهيم الحداد

الف الف شكر لمرورك الكريم و مساعدة حضرتك 

الكود يعمل و يستخرج التواريخ

و لكن لا يرتبط بالفترة الزمنيه المحدد يعني بيستخرج كل التواريخ للمعلم المستعلم عنه

و انا محدد مثلا فترة محددة مش كل الفترة فهل ممكن يلتزم بالفترة المحددة

اكرر شكرى لحضرتك

 

 

تم تعديل سبتمبر 13, 2023 بواسطه ehabaf2

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

عليكم السلام

عسى

غياب يومية.xlsm

[ehabaf2]

الاستاذ الفاضل محى الدين ابو البشر

الف شكر لحضرتك

الكود يعمل و ينفذ المطلوب 

الف الف شكر لحضرتك 

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

زادكم الله من علمه و فضله و حفظكم بحفظه

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

بارك الله