داله تحضر قائمة بالغياب من جدول التحضير

[ALMAQHOR]

السلام عليكم 

لكل الاعضاء اجمل تحية

احتاج داله تجيب قائمة بالغياب فيه الاسم و التاريخ من جدول تحضير بناء على وجود غياب (A) 

ارفقت لكم مثال

 

وشكرا سلفا 

مثال.xlsx

[عبدالله بشير عبدالله]

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

 

الكود

Sub ExtractAbsentees()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim outputRow As Long
    Set ws = ThisWorkbook.Sheets("SHEET1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column
    outputRow = 5
    For i = 5 To lastRow
        For j = 4 To lastCol
            If ws.Cells(i, j).Value = "A" Then
                ws.Cells(outputRow, 15).Value = ws.Cells(i, 2).Value
                ws.Cells(outputRow, 16).Value = ws.Cells(4, j).Value
                outputRow = outputRow + 1
            End If
        Next j
    Next i
End Sub

الملف

الغياب.xlsb

[محمد هشام.]

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

اظافة للكود المقترح من طرف الأستاد @عبدالله بشير عبدالله جزاه الله خيرا 

الحل بالمعادلات 

الخلية (O5)  لجلب الأسماء بناء على وجود غياب (A) 

=IFERROR(INDEX($B$5:$B$8, SMALL(IF($D$5:$H$8="A", ROW($B$5:$B$8)-ROW($B$5)+1), ROW(A1))), "")

الخلية (P5) لجلب تواريخ الغياب 

=IFERROR(INDEX($D$4:$H$4, SMALL(IF(INDEX($D$6:$H$8, MATCH(O5,
 $B$6:$B$8, 0), 0)="A", COLUMN($D$4:$H$4)-COLUMN($D$4)+1), COUNTIF($O$5:O5, O5))), "")

 

مثال .xlsx