دمج اكواد

[الشيباني1]

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

دمج كودين.zip

[الشيباني1]

للرفع جزاكم الله خير الجزاء

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

السلام عليكم

اخي الفاضل

صعب ان يتم تتبع الكودين دون مرفق

[الـعيدروس]

السلام عليكم

استخدم هذا الكود حطه في موديول جديد

وخصص له زر

Public Sub CAL_C()

Call kh_copy_Formula4

Call kh_copy_Formula5

End Sub

[الشيباني1]

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

دمج كودين.zip

[الـعيدروس]

اطلع على المرفق

دمج كودين1.rar

[الشيباني1]

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

[الشيباني1]

اخواني الاعزاء لا زلت منتظرا لأني لن يخيب بأذن الله ظني

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

السلام عليكم

تم

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

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

For i = 1 To 2

With Sheets(i)

.Select




End With

Next

جرب المرفق

دمج كودين1.rar

[الشيباني1]

استاذنا العزيز حل ذكي ورائع وبديع جزاك الرحمن كل خير ولكن كيف تم ذلك وان اردت استخدامه في ملف آخر كيف وما الذي سأعدل فيه ارجو المساعده مع الامتنان

[عبدالله باقشير]

السلام عليكم

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

alidroos

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

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

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

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

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

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

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

Option Explicit


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

Sub kh_C_Formula()

ورقة1.kh_copy_Formula

ورقة2.kh_copy_Formula


End Sub

تفضل المرفق

دمج كودين.rar

[الشيباني1]

استاذنا الكبير تحية ملؤها الاحترام والتقدير اشكركم جدا على هذا الابداع و ادامكم الرحمن لنا مرجعا