أرجو المساعدة في ملف اكسل خاص بتسجيل الغيابات

[Habib25130]

كيفية ملأ أسماء الغائبين تلقائيا في ملف اكسل لتسجيل الغيابات اليومية 

الحضور والغياب.xlsx

[lionheart]

Sub Test()
    With Sheet1
        Sheet2.Range("C15").CurrentRegion.Offset(1).Clear
        .[J2].Formula = Replace("='#'!D3<>""""", "#", .Name)
        .[A2].CurrentRegion.AdvancedFilter 2, .[J1:J2], Sheet2.[C15:H15]
        .[J2].Clear
    End With
End Sub

 

[أ / محمد صالح]

إذا كان المطلوب بالمعادلات فيمكنك وضع هذه المعادلة في الخلية D16

=IFERROR(INDEX(التعداد!B$3:B$17,SMALL(IF(التعداد!$D$3:$D$17<>"",ROW($1:$15)),$C16)),"")

ثم سحب مقبض التعبئة لأسفل ثم إلى اليسار مع تغيير تنسيق عمودي التاريخ

بالتوفيق 

[mohamed elhabib]

 

بارك الله فيك وربي يوفقك 

[أ / محمد صالح]

جميعا بإذنه تعالى