السلام عليكم: الرجاء من اعضاء المنتدى مد يد المساعدة
هذا ملف اكسل اريد كلما كانت الغيابات 3 ايام متتالية. في اليوم الرابع ترحل الى شيت اشعار1
وهكذا . يعني 3-(today)=
توضيح الصورة اذا غاب يوم25/08/2018 و 26/08/2018و27/08/2018 في يوم 28/08/2018 يرحل الى شيت اشعار 1.
انا استعملت الكود التالي لكن لم يفي بالغرض.
Sub ABSENT_LIST()
'
Dim Q1, Q2, Q3, RR, TR, FR
Q2 = Range("F3")
TR = 6
Range("B6:F99").ClearContents
For RR = 1 To 3
Q1 = Cells(RR, 7)
With Sheets("الغيابات")
For Q3 = 1 To 244
If .Cells(5, Q3) = Q1 Then
For FR = 5 To 999
If .Cells(FR, Q3) = Q2 Then
For FC = 1 To 5
Cells(TR, FC + 1) = .Cells(FR, FC)
Next FC
Cells(TR, 7) = Q1
TR = TR + 1
End If
Next FR
End If
Next Q3
End With
Next
End Sub
ALLA.xlsm