كود نقل التركيز الي ملف اكسيل مفتوح مسبقا

[ماجدجلال]

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

ما هو الكود الذي يقوم بنقل ( الانتقال ) التركيز الي ملف اكسيل اخر مفتوح في نفس الوقت ,

وللتوضيح السؤال :

لنفرض انني اود نسخ ولصق بيانات من ملف الي ملف اخري وليكن اسم الملف الاول هو ( 1) واسم الملف الثاني هو (2) , من الطبيعي ان ننقر بالمواس علي ايقونة الملف الاول ثن عمل نسخ ومن ثما ننقر علي ايقونة الملف الثاني ونعمل لصق ,

السؤال كيف اجعل الكود ( الماكرو ) ينتقل بي الي الملف الثاني بعد ان يقوم بعمل نسخ لخلية محددة ,,,

وشكرا لكم ,,,,

[omar elhosseini]

الاخ ماجدجلال

تحياتى لك

يمكنك تسجيل ماكرو يعمل ماتريد ثم تعدل اللازم

وللتوضيح التعليمة اللازمة للانتقال الى الملف الثانى هى

Windows("الملف الثانى.xls").Activate

شاهد المرفق

omar.rar

[ماجدجلال]

نعم استاذ تامر

بارك الله فيك واسعد الله ايامك وجزاك الله كل خير ,,

سؤال : اذا اسم الملف المراد فتحة متغير فكيف يتم تعديل الكود خصوصا مع وجود الصيغة xls

فيكف ذلك ؟

[omar elhosseini]

الاخ ماجدجلال

هذا فعلا ما هو موجود فى المثال السابق المرفق

Sub test2()

MyFile1 = "الملف الاول.xls"
MyFile2 = "الملف الثانى.xls"

Windows(MyFile1).Activate

End Sub

ويمكنك تغير اسم الملف فى المتغير MyFile2 ويمكن عمل ذلك عن طريق تحويل الكود الى داله تعمل منفرده وتمرير اسم الملف اليها شاهد الكود

Sub TestMe()

MyFile = "الملف الثانى"
MyFile = MyFile & ".xls"

ActivateMyFile MyFile

End Sub



Sub ActivateMyFile(MyFile)

Windows(MyFile).Activate

End Sub

شاهد المرفق

omar2.rar

[ماجدجلال]

شكرا لك استاذ تامر

الف شكر , لني احترت في كيفية اضافة xls للمتغير , الا اتضحت الصورة , بارك الله فيك .