أريد كود يجمع أربع ماكروات بماكرو واحد

[ibra]

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

نطمع من حضراتكم بمساعدة أخرى وهي كود يجمع أربع ماكروات بماكرو واحد

وأسماء الماكروات(هي module10,module3.module2.module1)

بحيث تعمل الأربعة بكبسة زر واحدة

علما بأن ورقة العمل أسمها (التحليل)

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

[عادل حنفي]

رجاء رفع مثال

[دغيدى]

Sub all()

Application.Run "test1"

Application.Run "test2"

Application.Run "test2"

Application.Run "test4"

End Sub

الأخ الفاضل

تفضل

حيث test4 ، test3 ، test2 ، test1 هى أسماء الماكروات المراد تنفيذها والموضوعة فى module1

تم تعديل يونيو 30, 2011 بواسطه دغيدى

[ibra]

Sub all()

Application.Run "test1"

Application.Run "test2"

Application.Run "test2"

Application.Run "test4"

End Sub

الأخ الفاضل

تفضل

حيث test4 ، test3 ، test2 ، test1 هى أسماء الماكروات المراد تنفيذها والموضوعة فى module1

أشكرك أخي الكريم وبارك الله بجهودك لقد عمل الكود بشكل ممتاز

تم تعديل يونيو 30, 2011 بواسطه ibra

[ياسر الحافظ]

استاذي دغيدي :

حل اكثر من رائع ومستحدث " بالنسبة لي على الاقل "

وفقك الله

ياسر الحافظ " ابو الحارث "

[cat101]

ألا بذكر الله تطمئن القلوب

[دغيدى]

أخى الفاضل / ibra

أخى الفاضل / cat101

شكرا جزيلا

[دغيدى]

أخى وصديقى الحبيب

ياسر الحافظ " ابو الحارث "

يسر الله طريقكم

حفظكم الله من كل شر

الله حارثكم من كل سوء

تم تعديل يونيو 30, 2011 بواسطه دغيدى