تلخيص الاوراق في ورقة واحدة مع عكس البيانات في الصف الاول في الاوراق الى العمود الاول في الملخص

[B.kadri]

السلام عليكم  
اخواني 

احتاج كود أو دالة تقرأ جميع البيانات من الاوراق حسب الاقسام ويكون الفرع في العمود الاول بدلاً من الصف الاول في الاوراق وتتكرر البيانات حسب كل فرع وكل قسم

ولكم جزيل الشكر مقدماً ،،

Book1.xlsx

[محمد هشام.]

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

جرب هل هدا ما تقصده 

Option Explicit
Sub CopyData()
   
    Dim lastRow&, tmp&, i&, Counter&
    Dim WS As Worksheet, OnRng As Variant
    Dim SrWS As Worksheet: Set SrWS = Sheets("ملخص")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    SrWS.Range("A5:F" & SrWS.Rows.Count).ClearContents
    tmp = 5: Counter = 1
    
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> SrWS.Name Then
            OnRng = WS.Range("A3:E" & WS.Cells(WS.Rows.Count, 1).End(xlUp).Row).Value
            For i = 1 To UBound(OnRng, 1)
                If OnRng(i, 1) <> "" Then
                    SrWS.Range("A" & tmp).Value = "فرع " & Counter
                    SrWS.Range("B" & tmp).Resize(1, UBound(OnRng, 2)).Value = Application.Index(OnRng, i, 0)
                    tmp = tmp + 1
                End If
            Next i
            Counter = Counter + 1
        End If
    Next WS
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

Book1 V1.xlsb

[B.kadri]

يعطيك العافية اخي محمد 
باقي تكرار جميع الفروع مع جميع الاقسام واحضار بيانات الاعمدة المتبقية في الجدول بناء على ذلك 
وليس كل فرع مع قسم واحد 

ولك جزيل الشكر على تفاعلك الدائم وتعاونك مع الجميع 🌷

تم تعديل الأربعاء at 20:36 بواسطه B.kadri

[محمد هشام.]

هل ممكن ارفاق عينة للنتائج المتوقعة لمزيدا من التوضيح ؟

تم تعديل الأربعاء at 20:56 بواسطه محمد هشام.

[B.kadri]

اسعد الله صباحك اخ محمد 

مرفق النتائج المتوقعة لبيانات مختصرة مع توضيح اكثر للمطلوب .

 

Book1.xlsx