عمل كشوف بالطلاب المتجاوزن لعدد محدد من ايام الغياب

[allaoua10]

السلام عليكم: الرجاء من اعضاء المنتدى مد يد المساعدة

هذا ملف اكسل اريد كلما كانت الغيابات 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