ALMAQHOR قام بنشر أكتوبر 19 مشاركة قام بنشر أكتوبر 19 السلام عليكم لكل الاعضاء اجمل تحية احتاج داله تجيب قائمة بالغياب فيه الاسم و التاريخ من جدول تحضير بناء على وجود غياب (A) ارفقت لكم مثال وشكرا سلفا مثال.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله بشير عبدالله قام بنشر أكتوبر 19 أفضل إجابة مشاركة قام بنشر أكتوبر 19 وعليكم السلام ورحمة الله وبركاته الكود 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 5 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر الأحد at 02:32 مشاركة قام بنشر الأحد at 02:32 وعليكم السلام ورحمة الله تعالى وبركاته اظافة للكود المقترح من طرف الأستاد @عبدالله بشير عبدالله جزاه الله خيرا الحل بالمعادلات الخلية (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 3 رابط هذا التعليق شارك More sharing options...
ALMAQHOR قام بنشر الأحد at 12:39 الكاتب مشاركة قام بنشر الأحد at 12:39 (معدل) شكرا لكم اثريتم سؤالي لكن استاذ محمد @محمد هشام. دالة الاسماء تعمل جيدا على قوقل شيت لكن كيف اجعل الداله الاخرى تعمل على جوجل شيت و عذرا للإطاله وجدت الحل و شكرا لكم تم تعديل الأحد at 12:44 بواسطه ALMAQHOR وجدت الحل 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان