اذهب الي المحتوي
أوفيسنا

دمج اكواد


الردود الموصى بها

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

دمج كودين.zip

رابط هذا التعليق
شارك

اخواني الاعزاء مع شكري وامتناني لم يرحل الزر المنشأ حسب الكود الاخير سوى ورقة واحده ارفق ملفا يتضمن كودين في ورقتين ارجو المساعده بزر امر واحد يجمع العمليتين معا مع التقدير

دمج كودين.zip

رابط هذا التعليق
شارك

اخي الكريم تحية طيبه مع شكري وامتناني الكود الجديد لا يرحل سوى ورقة الوارد اما ورقة الصادر فلم ينفذ عليها المطلوب من الكود ارجو التفضل بالتجربة مع التقدير

رابط هذا التعليق
شارك

السلام عليكم

تم

إضافة هذا السطور الى احد الاكواد

ليتم تنفيذ نفس الكود على الورقتين


For i = 1 To 2

With Sheets(i)

.Select




End With

Next

جرب المرفق

دمج كودين1.rar

رابط هذا التعليق
شارك

السلام عليكم

الشكرواصل لاخواني

alidroos

عبدالله المجرب

تطور ملحوظ في اعمالهما

بارك الله فيهما

ولاثراء الموضوع

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

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

ثم تعمل كود في موديل يجمع الكودين

Option Explicit


'  كود يجمع الكودين

Sub kh_C_Formula()

ورقة1.kh_copy_Formula

ورقة2.kh_copy_Formula


End Sub

تفضل المرفق

دمج كودين.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information