Sub Project_21_EN(ByVal VecType, m, n, m1, n1 As Integer) ' 21_Functions_EN ' Updated: 1/04/24 ' Created by: Ariel R. Becerra (22/11/23) ' Modified by: _________________ ' This is the code of your new project. ' Steps to embed the code to ScienSolar: ' Note 1: The number 21 in the name of this function must match the one in the list of the CONFIG sheet for this project. If not, please correct it. ' Note 2: This code will be integrated into the main code to automate the download of the project. ' Note 3: The formulas and cell values generated here correspond only to the first 30 columns from INICIO to the right in the sheet. All your formulas and values are recommended to be written in these columns. ' Step 1. Go to the CONFIG sheet and add a short name and the number of your new project to the last row in the projects list. ' Step 2. Make sure that the list of projects in CONFIG sheet has the correct ascending numbering. ' Step 4. Open the VBA editor (Alt + F11 in Windows or Fn + Option + F11 in macOS). To avoid mistakes, make sure you only have one workbook open. ' Step 5. On the left, in the project explorer, select a non full module (or add a new one). ' Step 6. Select all the code in this file, copy and paste it at the end of the existing code in the module (or in the new one). ' Step 7. To load the project and to check it in a new sheet, go to the CONFIG sheet and click the New Sheet button, then select the project from the list and click the +Vector button. ' Step 8. Click any XYZ button to get the project in the coordinate system. Enjoy it! ' Visit www.sciensolar.com for news and updates of © ScienSolar. Cells(m1 - 1, n1 + 2).FormulaR1C1 = "3" Cells(m1 + 0, n1 + 2).FormulaR1C1 = "=CONFIG!R3C4" Cells(m1 + 0, n1 + 3).FormulaR1C1 = "800" Cells(m1 + 0, n1 + 6).FormulaR1C1 = "=CONFIG!R3C8" Cells(m1 + 0, n1 + 7).FormulaR1C1 = "1" Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel R. Becerra (22/11/23)" Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4" Cells(m1 + 1, n1 + 3).FormulaR1C1 = "400" Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[6]C[1],C[15]:C[25],10,FALSE)" Cells(m1 + 1, n1 + 5).FormulaR1C1 = "0" Cells(m1 + 1, n1 + 6).FormulaR1C1 = "=CONFIG!R4C8" Cells(m1 + 1, n1 + 7).FormulaR1C1 = "25" Cells(m1 + 2, n1 + 2).FormulaR1C1 = "=CONFIG!R5C4" Cells(m1 + 2, n1 + 3).FormulaR1C1 = "0.5" Cells(m1 + 2, n1 + 4).FormulaR1C1 = "=VLOOKUP(R[5]C[1],C[15]:C[25],11,FALSE)" Cells(m1 + 2, n1 + 5).FormulaR1C1 = "15" Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8" Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0" Cells(m1 + 3, n1 + 0).FormulaR1C1 = "=IF(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m1 + 3, n1 + 3).FormulaR1C1 = "250" Cells(m1 + 3, n1 + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m1 + 3, n1 + 5).FormulaR1C1 = "15" Cells(m1, n1 + 9).FormulaR1C1 = "HELP" Dim HELPtxt As String HELPtxt = "Instructions for creating your own functions manual" & Chr(10) & _ " Initial values:" & Chr(10) & _ " Button -> Advance from one function to the next." & Chr(10) & _ " Button <- Go back to the previous function." & Chr(10) & _ " G14 =0 Value of the function at a point in space," & Chr(10) & _ " The point is indicated in cells A11, B11, C11 for a function f(x,y,z)" & Chr(10) & _ " G14 = 1 Obtain the form of the function in two dimensions (YZ)." & Chr(10) & _ " G14 = 2 Obtain the form of the function in two dimensions (XZ)" & Chr(10) & _ " G14 = 3 Obtain the form of the three-dimensional function f (x,y)" & Chr(10) & _ " G15 If f= f(x,y) indicate in this cell the value of x to observe z= f(y) with x=const." & Chr(10) & _ " " & Chr(10) & _ " How to introduce a new function:" & Chr(10) & _ " In the last row of the table above:" & Chr(10) & _ " 1. In the Label column, type the label that will appear on the z-axis." & Chr(10) & _ " 2. If the function has new constants, define them on the right side of the table, if necessary with their powers in the Power column." & Chr(10) & _ " 3. In the Function column define the function z=f(x,y) using the cells of the values of the respective constants; as the variable x use cell A11 and for the variabley use cell B11. If it only depends on one variable, skip the other." & Chr(10) & _ " 4. In the last two columns, establish the name of the x and y axes respectively." & Chr(10) & _ " 5. Press XYZ to view the result. If the function has a very large or very small scale, adjust the scale by finding the appropriate factor and entering it in the Scale column." & Chr(10) & _ " 6. If you want the equation to appear in the coordinate system, add the equation to the 3DModels sheet and name it (Eq-a), where a is the consecutive number in the equation." & Chr(10) & _ " 7. If your number of functions is more than 12, continue the list consecutively and if necessary delete these instructions, or cut and paste them elsewhere on the sheet." & Chr(10) & _ " 8. You can edit the already existing functions and modify them for your needs." Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt If m = m1 + 0 Then ' vector 2 Cells(m + 3, n + -1).FormulaR1C1 = "1" Cells(m + 3, n + 0).FormulaR1C1 = "=IF(OR(R[4]C[5]=1,R[4]C[5]=4),""Q ( t ) "",IF(OR(R[4]C[5]=2,R[4]C[5]=5),"" I ( t ) "", "" V ( t ) ""))" Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4" Cells(m + 3, n + 3).FormulaR1C1 = "250" Cells(m + 3, n + 4).FormulaR1C1 = "=R[4]C[18]&"" x ""&VLOOKUP(R[4]C[1],C[15]:C[19],2,FALSE)" Cells(m + 3, n + 5).FormulaR1C1 = "15" Cells(m + 3, n + 9).FormulaR1C1 = "SOME VECTORS WERE U N D E R S C A L E D !" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "183" Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[7]C[4]=0,"""",IF(R[7]C[4]=1,""o[5]x=[""&R[8]C[4]&"";""&R[8]C[4]&""]o2[5]y=[0;500]o3[5]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,001654412s"",IF(R[7]C[4]=2,""o[5]x=[0;500]o2[0,1]y=[50;50]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,003033088s"",IF(R[7]C[4]=3,""o[20]x=[0;500]o2[20]y=[0;500]o3[2]z=[0;0]color=[400]origin[cart.]=[0;0;0]tfactor=0,002450715s"",""""))))" Cells(m + 4, n + 12).FormulaR1C1 = "=UPPER(VLOOKUP(R[3]C[-7],C[7]:C[11],5,FALSE))&"" ""&VLOOKUP(R[3]C[-7],C[7]:C[11],2,FALSE)" Cells(m + 4, n + 24).FormulaR1C1 = "FUNCTION'S MANUAL" Cells(m + 5, n + -1).FormulaR1C1 = "85" Cells(m + 5, n + 0).FormulaR1C1 = "1" Cells(m + 5, n + 1).FormulaR1C1 = "0.3" Cells(m + 6, n + 19).FormulaR1C1 = "_____________" Cells(m + 6, n + 20).FormulaR1C1 = "______________________________________________________" Cells(m + 6, n + 24).FormulaR1C1 = "____________________________________________________" Cells(m + 6, n + 28).FormulaR1C1 = "________________" Cells(m + 7, n + -1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 0).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 1).FormulaR1C1 = "=R[1]C" Cells(m + 7, n + 4).FormulaR1C1 = "Equation No." Cells(m + 7, n + 5).FormulaR1C1 = "=R[-5]C[2]+1" Cells(m + 7, n + 21).FormulaR1C1 = " FACTOR:" Cells(m + 7, n + 22).FormulaR1C1 = "=VLOOKUP(RC[-17],C[-3]:C[1],4,FALSE)" Cells(m + 8, n + -1).FormulaR1C1 = "300" Cells(m + 8, n + 0).FormulaR1C1 = "498" Cells(m + 8, n + 1).FormulaR1C1 = "0" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[3]C[3]=0,""<< -- Enter the coordinates of the point to evaluate."","""")" Cells(m + 8, n + 6).FormulaR1C1 = "=IF(R[2]C[-6]>0,""<-- use these cells."","""")" Cells(m + 8, n + 19).FormulaR1C1 = "No." Cells(m + 8, n + 20).FormulaR1C1 = "Label" Cells(m + 8, n + 21).FormulaR1C1 = "Function" Cells(m + 8, n + 22).FormulaR1C1 = "Scale" Cells(m + 8, n + 23).FormulaR1C1 = "Description" Cells(m + 8, n + 24).FormulaR1C1 = "| Constant" Cells(m + 8, n + 25).FormulaR1C1 = "Value" Cells(m + 8, n + 26).FormulaR1C1 = "Power" Cells(m + 8, n + 27).FormulaR1C1 = "Units" Cells(m + 8, n + 28).FormulaR1C1 = "X Axis Label" Cells(m + 8, n + 29).FormulaR1C1 = "Y Axis Label" Cells(m + 9, n + -1).FormulaR1C1 = "0" Cells(m + 9, n + 0).FormulaR1C1 = "0" Cells(m + 9, n + 1).FormulaR1C1 = "=VLOOKUP(R[-2]C[4],C[18]:C[22],3,FALSE)" Cells(m + 9, n + 2).FormulaR1C1 = "<< -- Funci" & ChrW(243) & "n." Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "1" Cells(m + 9, n + 20).FormulaR1C1 = "n_s ()" Cells(m + 9, n + 21).FormulaR1C1 = "=(1/(EXP(RC[4]*R[-1]C[-21]/(R[1]C[4]*R[-1]C[-22]))-1))*R[-2]C[1]" Cells(m + 9, n + 22).FormulaR1C1 = "90" Cells(m + 9, n + 23).FormulaR1C1 = "Bose-Einstein Distribution" Cells(m + 9, n + 24).FormulaR1C1 = "| h" Cells(m + 9, n + 25).FormulaR1C1 = "6.6" Cells(m + 9, n + 26).FormulaR1C1 = "-34" Cells(m + 9, n + 27).FormulaR1C1 = "J s" Cells(m + 9, n + 28).FormulaR1C1 = "T" Cells(m + 9, n + 29).FormulaR1C1 = "w" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "=IF(R[-8]C[6]=RC[24]*R[-2]C[-2],2,1)" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "2" Cells(m + 10, n + 20).FormulaR1C1 = "E(w) " Cells(m + 10, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-2]C[-21]*R[-1]C)*R[-3]C[1]" Cells(m + 10, n + 22).FormulaR1C1 = "0.8" Cells(m + 10, n + 23).FormulaR1C1 = "Average photon energy" Cells(m + 10, n + 24).FormulaR1C1 = "| k_B" Cells(m + 10, n + 25).FormulaR1C1 = "1.38" Cells(m + 10, n + 26).FormulaR1C1 = "-23" Cells(m + 10, n + 27).FormulaR1C1 = "J/ÁK" Cells(m + 10, n + 29).FormulaR1C1 = "w" Cells(m + 11, n + -1).FormulaR1C1 = "6" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "Graph:" Cells(m + 11, n + 5).FormulaR1C1 = "1" Cells(m + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "3" Cells(m + 11, n + 20).FormulaR1C1 = "u (w,T) " Cells(m + 11, n + 21).FormulaR1C1 = "=(R[-2]C*R[-2]C[4]*R[-3]C[-21]^3/(R[1]C[4]^3*PI()^2))*R[-4]C[1]" Cells(m + 11, n + 22).FormulaR1C1 = "0.03" Cells(m + 11, n + 23).FormulaR1C1 = "Average energy spectral density" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 11, n + 26).FormulaR1C1 = "0" Cells(m + 11, n + 27).FormulaR1C1 = "ÁK" Cells(m + 11, n + 28).FormulaR1C1 = "T" Cells(m + 11, n + 29).FormulaR1C1 = "w" Cells(m + 3, n + 1).Interior.Color = "5287936" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "Ec-1" Call AddNewVector End If ' vector ends If m = m1 + 9 Then ' vector 1 Cells(m + 3, n + -1).FormulaR1C1 = "2" Cells(m + 3, n + 0).FormulaR1C1 = "=""Ec-""&R[-5]C[5]" Cells(m + 3, n + 4).FormulaR1C1 = "=VLOOKUP(R[-5]C[1],C[15]:C[25],10,FALSE)& "" =""" Cells(m + 3, n + 5).FormulaR1C1 = "300" Cells(m + 3, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 3, n + 19).FormulaR1C1 = "4" Cells(m + 3, n + 20).FormulaR1C1 = "u (v,T) " Cells(m + 3, n + 21).FormulaR1C1 = "=(8*PI()*R[-3]C*R[-3]C[4]*R[-4]C[-21]^3/(RC[4]^3))*R[-5]C[1]" Cells(m + 3, n + 22).FormulaR1C1 = "0.002" Cells(m + 3, n + 23).FormulaR1C1 = "Planck Formula - Blackbody Energy Spectral Distribution" Cells(m + 3, n + 24).FormulaR1C1 = "| c" Cells(m + 3, n + 25).FormulaR1C1 = "1" Cells(m + 3, n + 26).FormulaR1C1 = "8" Cells(m + 3, n + 27).FormulaR1C1 = "m/s" Cells(m + 3, n + 28).FormulaR1C1 = "T" Cells(m + 3, n + 29).FormulaR1C1 = "v" Cells(m + 4, n + -1).FormulaR1C1 = "1" Cells(m + 4, n + 0).FormulaR1C1 = "200" Cells(m + 4, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 4, n + 19).FormulaR1C1 = "5" Cells(m + 4, n + 20).FormulaR1C1 = "I (v,T) " Cells(m + 4, n + 21).FormulaR1C1 = "=(R[-1]C[4]*R[-1]C/4)*R[-6]C[1]" Cells(m + 4, n + 22).FormulaR1C1 = "0.025" Cells(m + 4, n + 23).FormulaR1C1 = "Black body spectral irradiance" Cells(m + 4, n + 24).FormulaR1C1 = "| A" Cells(m + 4, n + 25).FormulaR1C1 = "1" Cells(m + 4, n + 26).FormulaR1C1 = "0" Cells(m + 4, n + 27).FormulaR1C1 = "m2" Cells(m + 4, n + 28).FormulaR1C1 = "T" Cells(m + 4, n + 29).FormulaR1C1 = "v" Cells(m + 5, n + -1).FormulaR1C1 = "1" Cells(m + 5, n + 0).FormulaR1C1 = "200" Cells(m + 5, n + 1).FormulaR1C1 = "200" Cells(m + 5, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 5, n + 19).FormulaR1C1 = "6" Cells(m + 5, n + 20).FormulaR1C1 = "F(r)" Cells(m + 5, n + 21).FormulaR1C1 = "=(RC[4]*R[1]C[4]*R[2]C[4]/R[-6]C[-21]^2)*RC[1]" Cells(m + 5, n + 22).FormulaR1C1 = "1000" Cells(m + 5, n + 23).FormulaR1C1 = "Electric force - Coulomb's law" Cells(m + 5, n + 24).FormulaR1C1 = "| k_e" Cells(m + 5, n + 25).FormulaR1C1 = "8.99" Cells(m + 5, n + 26).FormulaR1C1 = "9" Cells(m + 5, n + 27).FormulaR1C1 = "Nm^2/C^2" Cells(m + 5, n + 28).FormulaR1C1 = "T" Cells(m + 5, n + 29).FormulaR1C1 = "r" Cells(m + 6, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 6, n + 19).FormulaR1C1 = "7" Cells(m + 6, n + 24).FormulaR1C1 = "| q1" Cells(m + 6, n + 25).FormulaR1C1 = "5" Cells(m + 6, n + 26).FormulaR1C1 = "-3" Cells(m + 6, n + 27).FormulaR1C1 = "C" Cells(m + 7, n + -1).FormulaR1C1 = "=R[-4]C[6]" Cells(m + 7, n + 0).FormulaR1C1 = "=R[-13]C[3]-50" Cells(m + 7, n + 1).FormulaR1C1 = "=R[-13]C[2]*2" Cells(m + 7, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 7, n + 19).FormulaR1C1 = "8" Cells(m + 7, n + 24).FormulaR1C1 = "| q2" Cells(m + 7, n + 25).FormulaR1C1 = "5" Cells(m + 7, n + 26).FormulaR1C1 = "-3" Cells(m + 7, n + 27).FormulaR1C1 = "C" Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")" Cells(m + 8, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 8, n + 19).FormulaR1C1 = "9" Cells(m + 8, n + 24).FormulaR1C1 = "|" Cells(m + 9, n + -1).FormulaR1C1 = "2" Cells(m + 9, n + 0).FormulaR1C1 = "2" Cells(m + 9, n + 1).FormulaR1C1 = "4" Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")" Cells(m + 9, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 9, n + 19).FormulaR1C1 = "10" Cells(m + 9, n + 24).FormulaR1C1 = "|" Cells(m + 10, n + -1).FormulaR1C1 = "1" Cells(m + 10, n + 0).FormulaR1C1 = "0" Cells(m + 10, n + 1).FormulaR1C1 = "1" Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,"" For aditional formula (FA),"","""")" Cells(m + 10, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 10, n + 19).FormulaR1C1 = "11" Cells(m + 10, n + 24).FormulaR1C1 = "|" Cells(m + 11, n + -1).FormulaR1C1 = "1" Cells(m + 11, n + 0).FormulaR1C1 = "0" Cells(m + 11, n + 1).FormulaR1C1 = "1" Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<-- use these cells."","""")" Cells(m + 11, n + 18).FormulaR1C1 = "=IF(R10C7=RC[1],"" ------ >>"","""")" Cells(m + 11, n + 19).FormulaR1C1 = "12" Cells(m + 11, n + 24).FormulaR1C1 = "|" Cells(m + 3, n + 1).Interior.Color = "11892015" Cells(m + 3, n + 1).Font.Size = "11" Cells(m + 3, n + 1).Font.name = "Calibri" Cells(m + 4, n - 1).Value = 1 Cells(m1 + 1, n1 + 1).Value = "" Cells(m1 + 2, n1 - 1).Value = 2 End If ' vector ends If m = m1 + 9 Then Cells(m + 14, n + 18).FormulaR1C1 = "Instructions for creating your own functions manual" Cells(m + 16, n + 18).FormulaR1C1 = "Initial values:" Cells(m + 18, n + 19).FormulaR1C1 = "Button -> Advance from one function to the next." Cells(m + 19, n + 19).FormulaR1C1 = "Button <- Go back to the previous function." Cells(m + 20, n + 19).FormulaR1C1 = "G14 =0 Value of the function at a point in space," Cells(m + 21, n + 20).FormulaR1C1 = "the point is indicated in cells A11, B11, C11 for a function f(x,y,z)" Cells(m + 22, n + 19).FormulaR1C1 = "G14 = 1 Obtain the form of the function in two dimensions (YZ)." Cells(m + 23, n + 19).FormulaR1C1 = "G14 = 2 Obtain the form of the function in two dimensions (XZ)" Cells(m + 24, n + 19).FormulaR1C1 = "G14 = 3 Obtain the form of the three-dimensional function f (x,y)" Cells(m + 25, n + 19).FormulaR1C1 = "G15 If f= f(x,y) indicate in this cell the value of x to observe z= f(y) with x=const." Cells(m + 27, n + 18).FormulaR1C1 = "How to introduce a new function:" Cells(m + 29, n + 18).FormulaR1C1 = "In the last row of the table above:" Cells(m + 30, n + 18).FormulaR1C1 = "1. In the Label column, type the label that will appear on the z-axis." Cells(m + 31, n + 18).FormulaR1C1 = "2. If the function has new constants, define them on the right side of the table, if necessary with their " Cells(m + 32, n + 19).FormulaR1C1 = "powers in the Power column." Cells(m + 33, n + 18).FormulaR1C1 = "3. In the Function column define the function z=f(x,y) using the cells of the values of the respective " Cells(m + 34, n + 19).FormulaR1C1 = "constants; as the variable x use cell A11 and for the variable y the cell B11. If it only depends on one " Cells(m + 35, n + 19).FormulaR1C1 = "variable, skip the other." Cells(m + 36, n + 18).FormulaR1C1 = "4. In the last two columns, establish the name of the x and y axes respectively." Cells(m + 37, n + 18).FormulaR1C1 = "5. Press XYZ to view the result. If the function has a very large or very small scale, adjust the scale by " Cells(m + 38, n + 19).FormulaR1C1 = "finding the appropriate factor and entering it in the Scale column." Cells(m + 39, n + 18).FormulaR1C1 = "6. If you want the equation to appear in the coordinate system, add the equation to the 3DModels sheet " Cells(m + 40, n + 19).FormulaR1C1 = "and name it (Eq-a), where a is the consecutive number in the equation." Cells(m + 41, n + 18).FormulaR1C1 = "7. If your number of functions is more than 12, continue the list consecutively and if necessary " Cells(m + 42, n + 19).FormulaR1C1 = "delete these instructions, or cut and paste them elsewhere on the sheet." Cells(m + 43, n + 18).FormulaR1C1 = "8. You can edit the already existing functions and modify them for your needs." Call BlackWhiteDesk Call PutEqBut End If ' actualizar hoja End Sub