حضور وغياب فيه كود ترحيل + ومطلوب كشف للغياب

[alliiia]

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

أعزائي الأساتذة الكرام 

الله يسعد أيامكم

 

عندي هذا الملف: 

أحتاج عند ترحيل الغياب إلى شيت2 

يتم عرضه على أيام الشهر في الشيت 3

وهذه صورة للمطلوب عمله

 

طبعا استخدمت معادلات لكن الملف يصير بطيء جدًا، وحتى وقت الترحيل يأخذ وقت، لذلك أريد كود يقوم بعمل هذه العملية بضغطة زر

 

 

كود الحضور والغياب - باقي الكشف.xlsm

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

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

جرب هذا الكود

Sub AbsData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, i As Long, j As Long
Dim C As Range, Name As String, dat
Set ws = Sheets("Sheet2")
Set Sh = Sheets("Sheet3")
LR = Sh.Range("C" & Rows.Count).End(3).Row
i = 8
Do While i <= LR
Name = Sh.Range("C" & i)
For Each C In ws.Range("C2:C20")
j = 4
Do While j <= 34
If C.Value = Name And C.Offset(0, 1) = "غ" _
And C.Offset(0, 2) = Sh.Cells(7, j) Then
Sh.Cells(i, j) = "غ"
End If
j = j + 1
Loop
Next
i = i + 1
Loop
End Sub

 

تم تعديل مارس 18, 2023 بواسطه ابراهيم الحداد

[alliiia]

ما أجملك وأروعك يا حبيبي أستاذ ابراهيم، سلمت يداك، وجزاك الله خيرا.