تجميع عدة ملفات فى ملف واحد

[أبوبسمله]

اود اختصار هذا الكود حتى يتثنى لى سحبه على كام العمود بدل ما انا بعدل حقل حقل 

=SUM('C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-7-2013.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-8-2013.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-9-2013.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-10-2013.xlsx]الطوابع'!$C$3;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-11-2013.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-12-2013.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-1-2014.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-2-2014.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-3-2014.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-4-2014.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-5-2014.xlsx]الطوابع'!$C$10;'C:\Users\Nada\AppData\Roaming\Microsoft\Excel\[T-6-2014.xlsx]الطوابع'!$C$10)

[ياسر خليل أبو البراء]

أخي الفاضل أحمد المعادلة لا تني شيئاً بدون ملف مرفق ..

[أبوبسمله]

اهلا اخى ياسر 

مرفق ملف به ملفات اكسل تست 1 الى 4 وسوف اقوم بتجميعهم فى all قمت بادارج الكود يدوى ولكن طويل وعاندى ملفات كثيره اود اختصار الكود ان امكن 

ثانيا لما بقف على اول خانه واسحب السهم علشان اسحب الكود مش بيتسحب علشان علامة الدولار والتثبيت فهل ممكن تظبيطها للسحب على باقى العمود

test.rar

[ياسر خليل أبو البراء]

أخي الفاضل جرب الملف التالي ..

يتم وضع الملفات المراد جمع قيمها في مجلد باسم Test في نفس مسار المصنف ..

قم بالنقر على Run لتنفيذ الكود ..

 

Sum Workbooks By YasserKhalil.rar

[أبوبسمله]

استاذى افاضل 

جزاك الله كل خير على سرعة الرد ولى استفساران ؟

انا عندى اكثر من عمود واكثر من صفحه كيف استخدم هذا الكود 

وهل يمكن ان يكون تلقائى بدل الضغط على رن 

[ياسر خليل أبو البراء]

أخي الفاضل تم العمل على الملف المرفق من قبلكم .. يراعى دائماً أن تكون الملفات المرفقة مماثلة للملفات الأصلية ، حتى لا يتشعب الموضوع ..

أمر آخر : هل النقر على زر الأمر مرهق لهذه الدرجة ؟ كيف تريد للكود أن يتم تنفيذه بشكل تلقائي ..

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

أرجو إرفاق ملف بالمطلوب الجديد ويا حبذا لو طرحت موضوع آخر ، تشرح فيه بالتفصيل شكل الملف المرفق وشكل النتائج المرجوة

[أبوبسمله]

جزاك الله كل خير على المتابعه

لو ممكن نكمل ها يبقا كتر الف خيرك مرفق 

ملف التست 

بعد اضافة عمود اخر 

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

 

 

Test.rar

[ياسر خليل أبو البراء]

جرب الملف التالي أخي الفاضل

Sub SumWorkbooks()
    Dim SummarySheet As Worksheet
    Dim FolderPath As String
    Dim FileName As String
    Dim WorkBk As Workbook
    Dim I As Long
    Dim X As Long
    X = 3
    
    Set SummarySheet = ThisWorkbook.Worksheets("Sheet1")
    FolderPath = ThisWorkbook.Path & "\Test\"
    FileName = Dir(FolderPath & "*.xl*")
    
    Application.ScreenUpdating = False
        SummarySheet.Range("A3:B1000").ClearContents
            Do While FileName <> ""
                Set WorkBk = Workbooks.Open(FolderPath & FileName)
                    For I = 3 To 7
                        SummarySheet.Range("A" & X) = SummarySheet.Range("A" & X) + Cells(I, "A").Value
                        SummarySheet.Range("B" & X) = SummarySheet.Range("B" & X) + Cells(I, "B").Value
                        X = X + 1
                    Next I
                X = 3
                WorkBk.Close savechanges:=False
                FileName = Dir()
            Loop
        Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Sum Workbooks V2.rar

[أبوبسمله]

جزاك الله خيرا اخير ياسر 

ساقوم بتظبيط ملف العمل وان شاء الله يظبط بفضل الله ثم بفضلكم 

 

اشكرك من كل قلبى 

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أن تم المطلوب على خير ..

ولكن لي رجاء لديك : عندما تطرح موضوع مستقبلاً إن شاء الله أن يكون الموضوع مفصل وأن يكون الملف المرفق صورة مصغرة من الملف الأصلي وله نفس الشكل والهيئة حتى لا يسهل المساعدة ..

تقبل تحياتي

[صلاح الصغير]

ا / ياسر عذرا

لماذا عند الضغط اكثر من مرة على الزر يضاعف الجمع

[ياسر خليل أبو البراء]

كيف ذلك .. في الكود المرفق مسح للنطاق قبل أن ينفذ الكود .. عدل نطاق المسح فقط .. أو انسخ الكود (أنا عدلته ) لأنه كان فيه غلطة بسيطة .. إنه بيمسح العمود A فقط ..

انسخ الكود الموجود في المشاركة رقم 8 وجرب مرة أخرى وأعلمنا بالنتيجة

[صلاح الصغير]

ا / ياسر تمام 

تم تعديل النطاق

[أبوبسمله]

السلام عليكم 

لاحظت هذه المشكله اخى ياسر حتى فى المرفق رقم 8 

[ياسر خليل أبو البراء]

أخي الكريم

قم بتحميل المرفق مرة أخرى من المشاركة رقم 8 ..

المشكلة كانت أبسط مما تتخيل حرب واحد تم تغييره في السطر الخاص بمسح محتويات النطاق