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

[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]

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

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

تم تعديل يناير 29 بواسطه B.kadri

[محمد هشام.]

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

تم تعديل يناير 29 بواسطه محمد هشام.

[B.kadri]

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

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

 

Book1.xlsx

[B.kadri]

مساء الخير

تكرماً احد يقدر يوصل للنتائج بكود 

اكون له من الشاكرين 

[B.kadri]

اهلاً أخ حسونة 

صباح الخير 

الموضوع مكرر ولكن لم يتم الرد بالحل 

خالص الشكر للجميع ،،،

[أبوعيد]

السلام عليكم

أحاول فهم مشكلتك وأتمنى الوصول لحل

تم تعديل فبراير 5 بواسطه أبوعيد

[B.kadri]

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

اهلا اخي ابو عيد

الفرع في الأقسام 4 مرات لانه في الصف مكرر على الكمية والقيمة للسنتين

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

 

خالص شكري لك 

تم تعديل فبراير 5 بواسطه B.kadri

[أبوعيد]

تمام بدأت افهم , لكن هناك مشكلة

في القسم ا يوجد 7 فروع 

بينما أنت في الملخص كتبت 5 فقط . لماذا ؟

إذا كان الخطأ منك فأرجو أن تعدل البيانات اليدوية التي كتبتها في الملخص وترسلها مرة أخرى

 لأنه من خلال الملخص أفهم ماذا تريد من البيانات

تم تعديل فبراير 5 بواسطه أبوعيد

[B.kadri]

ليس خطأ ولكن عدد الفروع سوف يزيد وبالتالي اريد الكود يقرأ اي اضافة لفروع اخرى  على بقية الاعمدة بنفس التنسيق .
انا في الملخص اختصرت 5 فروع عينه فقط ولكن المفترض جميع الفروع 

تم تعديل فبراير 5 بواسطه B.kadri

[أبوعيد]

تمام , يعني كدة بحسب الملف الذي أرفقته فإن كل قسم يتكون من 7 فروع 

وأنت في الملخص كتبت 5 فقط اختصارا , والصحيح كان عليك أن تكتب 7

صح كده ؟

[B.kadri]

صحيح 

[أبوعيد]

تمام , طبعا ممكن يكون أكثر من 7 وأنا فاهم هذا الشيء

انتظرني لعلي أحل ولو جزء من المشكلة

[B.kadri]

تمام بإنتظارك

يعطيك العافية 

تم تعديل فبراير 5 بواسطه B.kadri

[أبوعيد]

الله يعافيك

قمت بعمل تغيير بسيط بسيط بسيط جدا في الملف

وهو أنه في كل قسم يوجد في الأعلى فرع1 , فرع1 , فرع1 , فرع2 , فرع2 , فرع2  الخ الخ الخ

فأنا قمت بوضع الارقام فقط بدون كلمة فرع 

هكذا : 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 3 , 3 , 3 الخ الخ

هذا هو التغيير الذي قمت به فقط حتى يتماشى مع المعطيات التي فرضتها في الكود

طريقة العمل كالآتي :

افتح ورقة ملخص

اضغط الزر (ملخص) في الأعلى

 

وأي أخطاء تظهر أعلمني بها

 

تقبل تحياتيتجربة 1.xlsm

تجربة 1.xlsm

[B.kadri]

أشكرك جزيل الشكر أ. أبو عيد على مجهودك وتعاونك وتعبك 

جربت الملف ممتاز جداً وشغال الكود وبالنسبة للتعديل سهل ويمكن الاستغناء عن اسماء الفروع 
اذا في اخطاء سأبلغك بها .

الله يجزاك خير ويكتب اجرك أخي ،،

[أبوعيد]

حياك الله أخي 

تغيير آخر نسيت أن أذكره لك

وهو أني جعلت البيانات في جميع الصفحات تبدا من السطر 3 ويكون العنوان في السطر2

أمر مهم جدااااااااااا

في كل قسم (ورقة اكسل) لابد أين يكون آخر عمود في كل ورقة فيه رقم الفرع (مثلا 18) إذا كان لديك 18 فرع

إذا أردت أن تضع عمود في نهاية كل قسم (مثلا عمود اسمه المجموع) هنا سيحدث خلل في الكود

لأن الكود مبني على أن آخر عمود فيه رقم يمثل رقم الفرع 

وفي النهاية عندما كنت أشتغل على ملفك لفت نظري أن حجمه كبير بينما البيانات فيه قليلة 

لذلك قمت بتقليل حجمه هنا , وهذا آخر ما تم تعديله على ملفك 

يعني أذا كانت لديك بناناتك الأصلية في ملف خارجي فيجب أن تعمل نسخ للبيانات من ملفك الأصلي ثم لصق قيم في الملف المرفق أدناه

انتبه : نسخ ثم لصق قيم وليس لصق عادي

تقبل تحياتي

 

برنامج أبوعيد.xlsm

تم تعديل فبراير 6 بواسطه أبوعيد