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

[عبدالرحمن بدوى]

السلام عليكم ورحمة الله وبركاته

إخوانى الأفاضل تحية طيبة وبعد

فى الملف المرفق يوجد 3 ملفات اكسل

reference وهو الملف المصدر الذى اريد تصدير البيانات منه وهو موجود على الجهاز فى المسار (E:\)
 

وفيه مجموعة من المنتجات x,y,z......

وامام كل منتج مجموعة من البيانات الخاصة للعض الاختبارات مثل basic weight , color ...

وفى كل اختبار مجموعة من البيانات مثل method , Unit .....

والملفين الاخرين هما عبارة عن ملفات للمنتجاتproduct x , product y

والملفات product x , product y موجودة كالتالى

product x  فى المسار E:\Update\x

product y فى المسار E:\Update\y

وفى كل ملف من الملفاتproduct x , product y  مجموعة من ورقات العمل كل واحدة باسم اختبار معين (weight , air , color)

وبداخل كل شيت البيانات الخاصة بكل اختبار مثل method , unit , speed .....

 

بعد الشرح الجمييل ده المطلوب هو

كود ماكرو فى ملف reference بالضغط عليه يقوم بتحديث البيانات الموجودة فى product x , product y

بمعنى انه كود الماكرو الموجود فى reference بالضغط عليه سيتم تحديث البيانات فى الملف product x

فى شيت weight يتم تحديث البيانات

method , area , unit كما هى بالجدول الموجود فى reference

وهكذا فى باقى الشيتات

وهكذا فى الملف product Y

 

وشكرا

Update.rar

[عبدالرحمن بدوى]

السلام عليكم ورحمة الله وبركاته

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

' Export_Data Macro
'

'
    Range("F10").Select
    Selection.Copy
    Workbooks.Open Filename:="E:\Update\x\Productx.xlsx"
    Sheets("weight").Select
    Range("G7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Reference.xlsm").Activate
    Range("F11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Productx.xlsx").Activate
    Range("G10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Reference.xlsm").Activate
    Range("F12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Productx.xlsx").Activate
    Range("G13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

وهو يعمل بشكل جيد

فهل من طريقة لتبسيطة لأن كل هذا الكود هو لتحديث شيت واحد فقط فى ملف واحد

وأنا فعليا أريد تنفيذ ذلك فى حوالى 40 ملف اكسل ويحتوي كل منهم على متوسط 7 شيتات تقريبا

فاريد تبسيط لهذا الكود أو اختصار له

وجزاكم الله خيرا

[amer_g2003]

هذا الموضوع ذو أهمية قصوى

نرجو منكم التفاعل مع الأستاذ عبدالرحمن بدوى

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

أواجه نفس المشكلة...

كيف أعمل ماكرو يقوم بمهام متعددة كالآتي:

إلغاء دمج مجموعة خلايا ثم...

نسخ خلايا معينة إلى خلية جوارها ثم...

حذف أعمدة معينة ثم...

نسخ خلايا معينة إلى خلية تحتها ثم...

حذف صفوف معينة ثم...

دمج خلايا معينة ثم...

توسيط بيانات الخلايا ثم...

إجراء تنسيق معين

 

ببساطة:

هل يوجد موضوع في المنتديات يشرح الماكرو باستفاضة؟

 

[عبدالرحمن بدوى]

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

فانا لم اقم بكتابة هذا الكود إنما قمت بتسجيل الماكرو وهو من كتب هذا الكود

لكنى أريد فقط تبسيطه لأنى سأقوم بمهام كثيرة

[amer_g2003]

شكرا أخي عبد الرحمن