كود ترحيل بيانات من شيت الى شيت اخر

[allaoua10]

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

 

 

 

 

 

scroll bar with Vlookup1.xlsx

[احمدزمان]

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

ماهو المطلوب

 

[allaoua10]

الترحيل من صفحة الغيابات الى صفحة اشعار1

يعني ترحيل التلاميذ الذين عندهم حرف غ امامهم الى شيت اشعار1 بعد 3 ايام

[احمدزمان]

السلام عليكم

تم عمل كوود

Sub ABSENT_LIST()
'
Dim Q1, Q2, Q3, TR, FR
Q1 = Range("D3")
Q2 = Range("F3")
TR = 6
    Range("B6:F99").ClearContents
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
                TR = TR + 1
                End If
            Next FR
        End If
    Next Q3
End With

End Sub

فقط ادخل التاريخ ثم اضغط زر بيان الغياب

 

ALLA.xls

[allaoua10]

مشكور بارك الله فيك .الكود يعمل تمام . لكن اريد ترحيل التلاميذ الغائبون 3 ايام من الغياب يعني تلميذ غاب يوم 01/10/2017 و 02/10/2017ووو

03/10/2017  في يوم 04/10/2017 يرحل الى القائمة . حسب تغيير التاريخ في الاعلى . وشكرا

[احمدزمان]

ان شاء الله

[احمدزمان]

السلام عليكم

تفضل

 

ALLA.xls

[allaoua10]

شكرا جزيلا . ولكن لااريد ان يتكرر الاسم . بل اريد اذا غاب التلميذ 3 ايام يسجل  الى صفحة اشعار1

اذا غاب يوم لايرحل يومين لايرحل 3 ايام يرحل في اليوم الرابع