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

[سك بابك]

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

صباح الخير  للجميع

لدي اكثر من 100 ملف اكسل في الادارة بها بيانات للشركة التي اعمل بها

والان طلب مني اضافة حقلين لهذه النماذج في خلايا محددة لجميع الملفات

 

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

WinRAR archive .rarFetching info...

[محي الدين ابو البشر]

ضع هذا المالف في نفس فولدر الملفات التي تريد النسخ إليها

Main.xlsmFetching info...

[سك بابك]

جزاك الله خير استاذي
ولدي تساؤل ان أمكن 
هل بالامكان نسخ بيانات محددة في خليه ونقلها الى خليه في نفس الورقة 
وتنفيذ ذلك على 100 ملف مع العلم أن كل ملف له مسمى مختلف وبيانات الخلية مختلفة

WinRAR archive 01.rarFetching info...

[سك بابك]

السلام عليكم

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

WinRAR archive 01.rarFetching info...

[محي الدين ابو البشر]

نفس الكود السابق

استبدل

         

  wb.ActiveSheet.Range("F10:F11") = a

بـ
           
         

  wb.ActiveSheet .Range("D4") = Range("C2")

  Range("C2").ClearContents

    

[سك بابك]

اكرمك الله ايها الفاضل
جزاك الله خير على ماقدمت 

وشكرا جزيلا