اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

الردود الموصى بها

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

=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

  • Like 1
رابط هذا التعليق
شارك

استاذى افاضل 

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

ملف التست 

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

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

 

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

أخي الكريم

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information