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

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


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

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

لدي يوميا حوالي اكثر من 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

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

  • 2 weeks later...

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

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

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

MASTER.xlsm

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

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

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

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

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

image.png

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

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

image.png.12a2ae9fcc5d5699d46f580419eb744f.png

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

اخي الكريم

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

تحياتي

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

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

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

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

ضع MYFOLDER في C

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

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

 

MyFolder.rar

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

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

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

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") 

بالتوفيق 

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

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

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

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

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

New Microsoft Excel Worksheet.xlsx

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

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

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

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

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

  • 2 weeks later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information