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

[حازم هادي]

السلام عليكم ورحمة الله وبركاته الإخوة الأحباء

للأسف أنا متابع جيد لكني مشارك سيء

وكنت احتاج مساعدة ملحة في ماكرو جزاكم الله كل خير وجزاء المساعدة دعوة بظهر الغيب من أراضي الحجاز ( متوجه للعمرة خلال أيام )

---

 

الموضوع : 

 

لدي فولدر به مجموعة من أوراق العمل WorkBooks كل ورقة تحتوي علي مجموعة متعددة ومتنوعة ومختلفة من الشيتات Sheets ببيانات متغيرة في كل شيت لكنها متجانسه

 

• مثال :
• ورك بوك بإسم Ta1 يحتوي علي 55 شيت
• ورك بوك بإسم Ta2 يحتوي علي 60 شيت
• ورك بوك بإسم BA1 يحتوي علي 78 شيت ... إلخ

المشكلة :

 

احتاج ماكرو يقوم بنسخ محتويات كل شيت من كل ورك بوك في الفولدر ويقوم بلصقهم اسفل بعضهم (  في ورقة عمل جديدة يقوم الماكرو بتكوينها ) بحيث يسهل الفلترة لاحقاً علي تلك البيانات ..

 

---

 

لتسهيل التخيل قمت برفع فولدر به عينة من ورقات العمل التي اعمل عليها  بإسم : 

Balance.rar

 

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

sample tafrida.rar

 

ولكم جزيل الشكر في حالة المساعدة أم لا :)

Balance.rar

sample tafrida.rar

تم تعديل يونيو 8, 2015 بواسطه حازم هادي

[حازم هادي]

أما من مساعدة جزاكم الله كل خير :)