طلب: جمع المودول Modual في واحد فقط

[مداد_1423]

السلام عليكم

تحية طيبة وبعد

عندي ملف أجمع فيه بيانات من عدة ملفات

المطلوب يا سادة:

أولاً: تجميع شيت المسمى Overtime من كل الملفات في المجلد test

الكود حاليا يجمع كل الشيتات ، وأنا أريد شيت واحد من كل الملفات

 

ثانياً: أيضاً أريد الإبقاء على شيت ALL  بجوار شيت NEP_HR

حالياً عند تجميع الملف يقفز شيت ALL إلى الأخير

 

ثالثاً: تجميع كل الـModual في واحد 

ليكون زر واحد يختصر لي الجميع

 

غفر الله لكل من مرّ هنا ، وجزى الله خيرا من ساعدني  

 

 

 

الملفات بالمرفقات

 

HR.zip

تم تعديل فبراير 16, 2019 بواسطه مداد_1423

[مداد_1423]

للرفع ، وفي الرفع نفع .

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

ويقوم بتجميع جميع الشيتات في جميع الملفات ويضعها في ملف واحد

*ولكن أنا أريد تجميع شيت واحد فقط من كل ملف

*وأريد الأبقاء على شيت ALL الشيت الثاني في الترتيب بجوار شيت Nep_HR

 

أما الطلب الأخير تجميع الأكواد في كود واحد، أتوقع بسيط على أي مبتدئ في الـVBA

 

وللتسهيل: الكود الذي أريد التعديل عليه.

===========================================================

Sub ALL()
    Dim Path As String
    Dim Filename As String
    Dim SH As Worksheet
    Dim X As Long
    X = 1
    Path = ThisWorkbook.Path & "\Test\"
    Filename = Dir(Path & "*.xlsx")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        For Each SH In ThisWorkbook.Sheets
            If SH.Name <> "Nep_HR" And SH.Name <> "ALL" Then SH.Delete
        Next SH
        Do While Filename <> ""
            Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
                For Each SH In ActiveWorkbook.Sheets
                    SH.Copy After:=ThisWorkbook.Sheets(X)
                    X = X + 1
                Next SH
            Workbooks(Filename).Close
            Filename = Dir()
        Loop
    Sheets("Nep_HR").Activate
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

============================

 

تحياتي

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب في الملف المرفق... تركت الأزرار الأربعة للأكواد في الملف (التي يمكن حذفها)... وأنشأت كودا سميته Global_Operations لتنفيذ العمليات الأربعة على التوالي (عمل الأكواد الأربعة) وربطته بزر سميته "تجميع الملفات والبيانات وحذف الأصفار والفراغات"...

بن علية حاجي

Nep_ALL_HR.rar

[أحمد يوسف]

 

بارك الله فيك استاذ بن علية   حل ممتاز

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

بمعنى الضغط له على الإعجاب او الشكر واعتقد ان هذا هو اقل ما تقدمه له

بارك الله فيكم جميعا اساتذتنا الكرام لكم الفضل بعد ربنا فى تعلمنا الإكسيل جعل الله كل هذه الأعمال فى ميزان حسناتكم

 

 

[مداد_1423]

أستاذنا: بن علية حاجي

بارك الله فيك ونفع بعلمك وغفر ذنبك ورزقك من حيث لا تحتسب

كل ما تمنيته في هذا الملف تحقق على يدك

فعلا هذا هو المطلوب

أشكرك أستاذي من الأعماق ولك من خالص الدعاء

وكثر الله من أمثالك ، وجعل ما قدمته في موازين حسناتك

تحياتي يا كبير