كيفية الترحيل من عدة ملفات لملف واحد فقط نهائي

[عبد الله السعيد]

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

لدي يوميا حوالي اكثر من 20-50 ملف عمل بهم مبيعات عمل الموظفين اليومية ( على نفس شكل والتقسيم والخلايا وكل شيء ) ، واقوم انا دوماُ بفتح كل ملف واخذ مافيه وتنزيله في ملف رئيسي معين نهائي  لكل الموظفين خاص بي انا فقط

هل هناك من طريقة بحيث مثلا  ، اضع كل الملفات اليومية في فولدر واحد ومعهم الملف النهائي  وافتحه واستورد كل الملفات بضغطة زر

مرفق لسيادتكم مثال افتراضي  عبارة عن  3 ملفات عمل مثلا   ،  وملف نهائي اسمه 00

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

 

00.xlsx 01.xlsx 02.xlsx 03.xlsx

[طارق محمود]

السلام عليكم
أخي الكريم
ممكن تراجع هذا الموضوع 

قد يكون هو ماتريد

[نبيل عبد الهادي]

بعد اذن استاذ طارق

المرفقات ...مع ملاحظة 

1- ضع الملفات الفرعية في مجلد باسم MyFolder في القسم c

2- ضع الملف الرئيسي 00.xlsm في اي مكان ترغب فيه بشرط ان لايكون داخل المجلد ضمن الملفات الفرعية

3- يمكن لك تغير مسار الملفات الفرعية دخل المجلد في هذا السطر داخل علامتي ""

Folderpath = "C:\MyFolder\"

 

00.xlsm 01.xlsx 02.xlsx 03 .xlsx

[نبيل عبد الهادي]

تفضل 

ونفس ملاحظاتي في مشاركتي الاخير

master_file.xlsm MyFolder.rar

[حسين مامون]

بعد اذن الاساتذة الافاضل واتراء للموضوع جرب المرفق

قم بفك الضغط وضع المجلد في اي فولدر تريد 

MyFolder.rar

[الرائد77]

تفضل الملف ماستر . بعد الانتهاء من نقل أي  ملف  يرسله الى مجلد ملفات مستوردة 

للامانة الكود منقول

مع تعديلات بسيطة

MASTER.xlsm

[حسين مامون]

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

وكذالك في الملفات الاخرى sheet1

اذا كان غير ذلك في الملف الذي تعمل عليه فهذا فعلا سيسبب في خطأ

تحقق من اسماء الشيتات لديك

ارفع صورة الكود اين يقف عندك

هذه صور عننتيجة بعد تنفيذ الكود

[حسين مامون]

اخي الكريم

ارفع نمودجين للملفات التي ذكرتها  بحيث لايمكن العمل على التخمين وان كان هناك حل سترى نتيجة ذلك من تدخلات اساتذة VBA في المنتذى

تحياتي

[الرائد77]

تم تجريب الملف الآن و يعمل 100/100 . قم بحذف جميع الملفات من مجلد الملفات المستوردة و احذف الملف 00 . من مجلد MYFOLDER 

. و استعمل الملف المرسل بدلا منه.

[الرائد77]

ضع MYFOLDER في C

الملف يعمل بكفاءة عالية

افتح الملف MASTER و قم بجلب الملفات. الكود يعمل بكفاءة عالية.  ربما المشكل عندك في الجهاز

 

MyFolder.rar

[الرائد77]

أخي عبد الله السعيد . 

يمكن أنك تستعمل ملفات أخرى غير المرسلة من طرفك

1- يجب أن تكون الملفات هنا :   C:\MyFolder و اذا كانت ملفاتك في مجلد آخر  غيره في الكود : في هذا السطر

fPath = "C:\MyFolder\" 

2- تأكد من امتداد الملفات 

3-اسم الورقة التي تجلب منها البيانات في الملفات المتعددة ربما ليست SHEET1  غيرها في الكود اذا كنت تستخدم اسم آخر

في هذا السطر

LR = Worksheets("SHEET1").Range("XEY" & Rows.Count).End(xlUp).Row  
      Worksheets("SHEET1").Range("XEY2:XFD" & LR).Copy

4- ربما ورقة العمل في الملف الرئيسي ليست "MASTER"في ملفك الرئيسي . غيرها في هذا السطر 

Set wsMaster = ThisWorkbook.Sheets("Master") 

بالتوفيق 

[عبد الله السعيد]

جزاك الله خيرا  اخي الرائد تم العمل الان بالفعل والحمد لله 

استفسار اضافي على الملف ان امكن لو تسمح 

عند ترحيل ماريد واقوم بعمل الفرز بالعمود الاول A وهو خاص بالاسماء ومابعده  يكون مبالغ وبيانات  ، طبعا يكون هناك صفوف كثيرة خالية من المبالغ مابين الاسم والاخر من المندوبين  ، اريد اضافة فقط كماكرو  عمل فرز ونقل المناديب خلف بعضهم البعض بالترتيب الابجدي ل العمود A ولكن امامهم مبالغ فقط وبيانات في كل الاعمدة الباقية 

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

New Microsoft Excel Worksheet.xlsx

[الرائد77]

تفضل أخي عبد الله السعيد

ترجيل الى ورقة عمل جديدة و ترتيب ابجدي للاسماء

New Microsoft Excel Worksheet.xlsm

[عبد الله السعيد]

في انتظار اجابتك اخي الرائد لو تكرمت ، جزاك الله خيرا ، واعتذر عن الاطالة عليك

لو امكن اضافة الكود الأخير على الملف المرسل لكم  

ومعرفة اسباب المشاكل التي تظهر لي في الملف الاول 

[الرائد77]

ارسل الملف الخاص بك و ان شاء الله اعدله

[عبد الله السعيد]

اريد دمج الملفين في ملف واحد اذا تكرمت اخي الفاضل 

 

MyFolder.rar New Microsoft Excel Worksheet.xlsm

تم تعديل أبريل 8, 2020 بواسطه عبد الله السعيد