لدي ملف اكسل فيه 1000 صفحة في كل صفحة عنوان و جدول وصورة اريد عمل مايكروا يجمع كل المعلومات في ملف وورد

[MsTaNs]

السلام عليكم ورحمة الله وبركاتة لدي ملف اكسل فيه 1000 صفحة

 

في كل صفحة يوجد عنوان في خليه I5

ويوجد في نفس الصفحة جدول B2:H9

ويوجد فيها ايضاً صورة اسمها "Picture 1"

 

اريد مايكروا يقوم بفتح ملف وورد ويضع بيانات الصفحة الاولى ثم الثانية ثم الثالثة...... الخ

 

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

 

وشكرا لكم مقدما

[طارق محمود]

السلام عليكم

 

الأخ العزيز 

الأفضل دائما أن ترفق مثالا

ولكن كهدية لك في أولي مشاركاتك

المرفق به الورقة "Master" بالإضافة لأربع ورقات بها البيانات للتجربة

الورقة "Master"  بها زر بالضغط عليه يجمع البيانات من الشيتات ميعها ولو أكثر من ألف

ثم تنسخ هذه الورقة مرة واحدة للورد

تفضل المرفق

تجميع بيانات.zip

[ابو الآء]

بارك الله فيك مهندس طارق

[MsTaNs]

شكرا لك يا مهندس طارق ويوجد مثال في المرفقات

 

 

EX.rar

[طارق محمود]

تفضل المرفق

EX2.rar

[مجدى يونس]

الباشمهندس طارق محمود

رمضان كريم وكل عام وانت بخير

[طارق محمود]

السلام عليكم

أخي الحبيب / مجدي يونس

وأنت وكل الأحباب بخير وصحة وسعادة

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

[MR.EXCEL]

السلام عليكم

 

استاذ طارق يظهر خطاء عند الكود

 

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

[MR.EXCEL]

استاذ طارق بارك الله فيك تم حل المشكلة الكود سليم تماما جزاك الله خيرا

[MsTaNs]

جزاكم الله الفردوس الأعلى من الجنه

 

كم أنتم رائعون