المطلوب شرح الكود

[الشافعي]

 Call MC
    ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value
    ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value
    Do
        ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000
    Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20
        ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000
    'Do
        'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000
    'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20
    'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000
    ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value
   ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value
    MsgBox ("Calculation Completed")
End If

للرفع للرفع للرفع

[حمادة عمر]

السلام عليكم

الاخ الكريم /  الشافعي

بارك الله فيك

بالنسبة للكود وشرحه لا يتتضح الا بملف كمثال ولكن لما ارسلته فهذه نبذه بسيطة

في بداية الكود موجود الدالة call بالسطر

Call MC

وهذا السطر يعني اعطاء امر للكود باحضار الأمر او الكود او الماكرو المسمي لديك بـ MC ليتم تنفيذ الاوامر الخاصه به

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

وكمثال .. السطر الثاني وهو كالتالي :

ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value

فالسطر السابق يعني في الجزء الاول      ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value

انه في هذ الملف ThisWorkbook في شيت العمل Worksheets المسمي بالاسم  Step Up Feature اجعل النطاق او الخلية المحدد H15 وقيمتها  Range("H15").Value 

تســــــــــــــــــــاوي  =

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

اي ان هذا السطر يقصد انه اجعل الخلية H15 في الشيت Step Up Feature = الخلية D15 في الشيت المسمي  Step Up Feature

وهكذا بالنسبة لباقي اسطر الكود ولكن كما ذكرت باختلاف المعادلات والمطلوب منها  ولكن يمكن اختصار هذه الاسطر بطرق اخري اقل واسهل من ذلك .

ارجو ان اكون قد اوضحت لك الصورة كما تريد

تقبل خالص تحياتي

[الشافعي]

جزاك الله الف خير وشكرا لك استاذ حمادة 

هل ممكن تشرح السطراللي بعد كدا 

وشاكر ومقدر لك تفاعلك والله يجعله في ميزان حسناتك 

Do
        ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000
    Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20
        ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000