كيف ارحل نطاق وجمعه مع نطاق اخر

[atob]

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

اخواني الاعزاء في الملف مايكرو يقوم بترحيل نطاق عبرت عنه بمتغير الى نطاق اخر ايضا عبرت عنه بمتغير

الذي اريده هوعند قيامي بترحيل النطاق الاول او المتغير الاول الي المتغير الثاني ان تنجمع القيم مع قيم المتغير الثاني

واخيرا اشكركم جزيل الشكر والتقدير

____________.zip

[ابو اسامة العينبوسي]

السلام عليكم

استبدل كودك بهذا الكود

Sub copy_1_Values_ValueProperty()
    Lr = Sheets("abc").Range("b4").Value
    For rr = 5 To 18
    Cells(rr, Lr).Value = Cells(rr, 2).Value + Cells(rr, Lr).Value
    Next
End Sub

________Xl0000002.rar

[atob]

اخي ابو اسامه اشكرك جزيل الشكر على جهودك المثمره والله يجزاك عليها كل خير في هذا اليوم الفضيل

لكن الكود يوجد كلمه for وهذه الطريقه لا زالت تسبب تهنيق في الملفات الكبيره

طبعا كودي الموجود في الملف خفيف على هذه الملفات فلو امكن تعديل بسيط على الكود بحيث يجمع القيم السابقه

لاني جربت اضع الجمله الاخيره بهذا الشكل ولكن يظهر لي خطأ

destrange.Value = sourceRange.Value + destrange.Value

واخيرا اشكرك جزيل الشكر