دمج الملفات

[Alttear]

السلام عليكم

اخواني الكرام .. لدي العديد من الملفات واريد نسخ جميع الخلايا الى ملف واحد ( مع الحفاظ على الكومنت الذي بداخلها )

الملف الاول AAA

الملف الثاني

AAA (2)

الملف الثالث

AAA (3) وهكذا

اريد دمجها لتصبح في ملف واحد

شكرا

[Alttear]

up

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

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

أين الملف المرفق المعبر عن الطلب ..؟

مع وضع بعض النتائج المتوقعة ليسهل على الأخوة الأعضاء تقديم المساعدة المطلوبة

[Alttear]

تمام استاذي الكريم

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

 

Merge.rar

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

جرب الكود التالي (للملفات التي تبدأ الرقم 30) ، ونفس الكود مع الملفات التي تبدأ بـ 40 (التغيير في الرقم فقط)

Sub LoopClosedWBs()
    Dim strPath     As String
    Dim strFile     As String
    Dim wbk         As Workbook
    Dim wsh         As Worksheet
    Dim col         As Long
    
    Application.ScreenUpdating = False
        ActiveSheet.Cells.Clear
        strPath = ThisWorkbook.Path & "\Data\"
        strFile = Dir(strPath & "30*.xls*")
        col = 1
        
        Do While strFile <> ""
            Set wbk = Workbooks.Open(strPath & strFile)
            Set wsh = wbk.Worksheets(1)
            
            wsh.Range("A1:A2").Copy ThisWorkbook.Sheets(1).Cells(1, col)
            col = col + 1
            
            wbk.Close SaveChanges:=False
            strFile = Dir
        Loop
    Application.ScreenUpdating = True
End Sub

يمكن أن يظهر معك خطأ بسبب أسماء بعض الملفات (30 WithNewWord و 30 WithWord) حيث حرف الـ i خطأ ويتسبب في ظهور خطأ فقم إصلاح أسماء الملفات قبل تنفيذ الكود

الكود لن ينسخ البيانات بنفس الترتيب الذي أرفقته ، وإذا أردت أن يرتب بنفس الترتيب قم بإعطاء أرقام متسلسلة للملفات بعد الرقم 30 مثلاً  30_001 و 30_002 وهكذا

تقبل تحياتي

[Alttear]

تمام استاذي العزيز

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

هل يمكن جعل Col مساوية لاخر Col مضاف اليها 1

شكرا

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

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

حاول تطلع على الموضوع التالي لربما يفيدك وهو كيفية إيجاد رقم آخر عمود 

الرابط من هنا

[Alttear]

بصراحة حاولت و لم انجح بتصحيحعا

فضلا لا امرا .. هلا تفضلت بالتعديل عليها

و ان امكن جعل النطاق واسع لاكثر من ملف

كان نقول الملف الاول 30 الثاني 50 ... و يقوم بخفظها تلقائيا

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

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

تقبل اعتذاري