السلام عليكم: الرجاء من اعضاء المنتدى مد يد المساعدة
 
	هذا ملف اكسل اريد كلما كانت الغيابات 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