لزهر مدلل قام بنشر أبريل 26, 2014 قام بنشر أبريل 26, 2014 السلام عليكم أريد تشغيل ماكرو تلقائيا عند التنقل إلى الورقة 2 الملف به عدة ورقات و الماكرو يقوم بنسخ خلايا محددة من ورقة 1 و لصقها في جميع الأوراق مثال يقوم بنسخ A1:F50 و لصقها في جميع الأوراق أي عند فتح الملف أذهب إلى الورقة 1 و أقوم بالتغييرات في خلايا معينة ثم أنتقل إلى ورقة 2 يشتغل الماكرو و يقوم بنسخ و لصق البيانات الكود يجب أن يشتغل مرة واحدة كلما دخلت إلى الورقة 2 مشكورين 1
حمادة عمر قام بنشر أبريل 26, 2014 قام بنشر أبريل 26, 2014 الاخ الكريم / medellel بارك الله فيك برجاء ارفاق ملف للتوضيح اكثر ... وبه بيانات كمثال مثلا .. وتوضيح النقاط التالية مثال يقوم بنسخ A1:F50 و لصقها في جميع الأوراق هل بعد النسخ سيتم اللصق في نفس هذا النطاق في الورقات الاخري ... وهل سيتم اللصق في باقي اوراق العمل جميعها ماعدا ورقة 1 طبعا ؟؟ الكود يجب أن يشتغل مرة واحدة كلما دخلت إلى الورقة 2 ماذا تقصد بهذا ؟؟؟ ...
حمادة عمر قام بنشر أبريل 26, 2014 قام بنشر أبريل 26, 2014 وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520
لزهر مدلل قام بنشر أبريل 26, 2014 الكاتب قام بنشر أبريل 26, 2014 (معدل) أخي الكريم حمادة عمر نعم يقوم بنسخ مثلا A1:F50 و لصقها في جميع الورقات و في نفس النطاق وأيضا سيتم اللصق في باقي اوراق العمل جميعها ماعدا ورقة 1 طبعا أما الإستفسار الأخير فمعذرة فقط أخطأت في التعبير مثلا بعد التعديل في الورقة 1 و عند الدخول إلى ورقة 2 يقوم الماكرو تلقائيا بنسخ و لصق الخلايا في كل الأوراق و في نفس النطاق مرة واحدة فقط المرفق به بيانات من A1:F3 معذرة مرة أخرى أخي الكريم و بارك الله فيكم Book1.rar تم تعديل أبريل 26, 2014 بواسطه medellel
لزهر مدلل قام بنشر أبريل 27, 2014 الكاتب قام بنشر أبريل 27, 2014 أخي أبو عيد السلام عليكم عند الذهاب إلى الورقة 2 تخرج رسالة خطأ و يقوم بتحديد هذا السطر Sheets(i).Range("A1:F3") = Sheets(1).Range("A1:F3").Value
أبوعيد قام بنشر أبريل 27, 2014 قام بنشر أبريل 27, 2014 السلام عليكم أخي العزيز لم يظهر لي أي خطأ فأنا استخدم أوفيس 2010 و 2007 والكود شغال بمجرد فتح الصفحة 2 تنتقل الأرقام إلى كافة الصفحات تحياتي
حمادة عمر قام بنشر أبريل 27, 2014 قام بنشر أبريل 27, 2014 الاخ الكريم / medellel بارك الله فيك وبعد اذن اخي الحبيب / أبوعيد ... جزاه الله خيرا اليك التعديل الطفيف علي كود الاخ / ابوعيد ... قم باستخدام الكود التالي في حدث تنشيط الورقة 2 Private Sub Worksheet_Activate() For i = 2 To Sheets.Count Sheets(i).Range("A1:F50") = Sheets("ورقة").Range("A1:F50").Value Next i End Sub تقبل خالص تحياتي ملفات مرفقة 2003 تشغيل كود عند فتح شيت معين.rar
لزهر مدلل قام بنشر أبريل 27, 2014 الكاتب قام بنشر أبريل 27, 2014 (معدل) أخوتي الكرام أبو عيد و حمادة عمر بارك الله فيكم لقد إشتغل الملف المنزل من أخينا حمادة عمر و بالنسبة لي فأنا أستخدم أوفيس 2010 فرنسي و لا أدري لما لم يشتغل معي كود اخي الفاضل أبو عيد المهم مشكورين إخوتي الكرام و فيه سؤال آخر عندما أريد تطبيق نفس الكود على عديد من الأوراق هل أقوم بنسخ الكود إلى كل صفحة على حدى أم هناك تعديل على الكود الحالي ليشمل باقي الأوراق ثانيا وجدت الكود يطبق كلما دخلت الورقة 2 فهل بالإمكان أن يطبق مرة واحدة فقط و شكرا تم تعديل أبريل 27, 2014 بواسطه medellel
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.