Sub Project_23_ES(ByVal VecType, m, n, m1, n1 As Integer) ' 23_Bateria_ES

   ' Updated: 5/04/24
   ' Created by: Ariel Becerra (23/02/24)
   ' Modified by: _________________
   ' This is the code of your new project.
   ' Steps to embed the code to ScienSolar:
   ' Note 1: The number 23 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 = "1"
            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 = "15"
            Cells(m1 + 0, n1 + 8).FormulaR1C1 = "Ariel Becerra (23/02/24)"
            Cells(m1 + 1, n1 + 1).FormulaR1C1 = "A14"
            Cells(m1 + 1, n1 + 2).FormulaR1C1 = "=CONFIG!R4C4"
            Cells(m1 + 1, n1 + 3).FormulaR1C1 = "680"
            Cells(m1 + 1, n1 + 4).FormulaR1C1 = "=CONFIG!R4C6"
            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 = "1"
            Cells(m1 + 2, n1 + 4).FormulaR1C1 = "L"
            Cells(m1 + 2, n1 + 5).FormulaR1C1 = "0"
            Cells(m1 + 2, n1 + 6).FormulaR1C1 = "=CONFIG!R5C8"
            Cells(m1 + 2, n1 + 7).FormulaR1C1 = "0"
            Cells(m1 + 3, n1 + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")"
            Cells(m1 + 3, n1 + 1).FormulaR1C1 = "BatteryOff"
            Cells(m1 + 3, n1 + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m1 + 3, n1 + 3).FormulaR1C1 = "=CONFIG!R6C5"
            Cells(m1 + 3, n1 + 4).FormulaR1C1 = "V (POTENCIAL DENTRO DE LA BATER�A)"
            Cells(m1 + 3, n1 + 5).FormulaR1C1 = "0"
       Cells(m1, n1 + 9).FormulaR1C1 = "HELP"
       Dim HELPtxt As String
       HELPtxt = "HELP Comment:" & Chr(10) & _
"     1. To create new projects, press the +Vector button without selecting any project in the project list." & Chr(10) & _
"     2. To load an existing project, select a project from the list and then press +Vector" & Chr(10) & _
"     3. To export a new project, press the Get Code button. The code will be saved on your PC in the same directory where this file is located." & Chr(10) & _
"     " & Chr(10) & _
"     If necessary, use this comment to create your own HELP comment for your project. To do this, simply replace this text with your own (Right Click, Edit Comment) and avoid special characters." & Chr(10) & _
"     After pressing Get Code, your comment will be updated and saved in the same txt file as your project and will be uploaded after the project appears in ScienSolar.To include the new project in ScienSolar, perform the following steps:" & Chr(10) & _
"     a) Open the txt file where the project was saved; b) copy all the contents of the file and paste it in the VBA Editor of the Excel file ScienSolar; b) add the project name and number to the list on the CONFIG sheet; a) Verify that the number is correlative and that it agrees with the project header number, if not modify it in the header or in the list as necessary;" & ChrW(211) & "" & Chr(10) & _
"     " & Chr(10) & _
"     Right click to delete or edit this comment." & Chr(10) & _
"     " & Chr(10) & _
"     For documentation on ScienSolar, please visit www.sciensolar.com. ScienSolar was designed for 3D physics modeling in MS Excel.It is normal that for some projects it takes time to load it in the sheet, it depends on the number of objects in your project and the performance of your PC."
       Cells(m1, n1 + 9).Comment.Text Text:=HELPtxt


      If m = m1 + 0 Then ' vector 12
            Cells(m + 3, n + -1).FormulaR1C1 = "1"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-1]C[7]=0,""BatteryOff"",""BatteryOn"")"
            Cells(m + 3, n + 1).FormulaR1C1 = "BatteryOff"
            Cells(m + 3, n + 2).FormulaR1C1 = "=CONFIG!R6C4"
            Cells(m + 3, n + 3).FormulaR1C1 = "=CONFIG!R6C5"
            Cells(m + 3, n + 4).FormulaR1C1 = "V (POTENCIAL DENTRO DE LA BATER" & ChrW(205) & "A)"
            Cells(m + 3, n + 5).FormulaR1C1 = "0"
            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 = "200"
            Cells(m + 4, n + 2).FormulaR1C1 = "FEM - Funcionamiento de la bater" & ChrW(237) & "a "
            Cells(m + 4, n + 12).FormulaR1C1 = "MODELO DE FUNCIONAMIENTO DE LA BATER" & ChrW(205) & "A DE PLOMO"
            Cells(m + 4, n + 24).FormulaR1C1 = "BATER" & ChrW(205) & "A DE PLOMO Y FEM"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 24).FormulaR1C1 = "CONSERVACI" & ChrW(211) & "N DE LA CARGA"
            Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||C" & ChrW(193) & "LCULO DE MASA DE H2SO4|||||||||"
            Cells(m + 7, n + -1).FormulaR1C1 = "0"
            Cells(m + 7, n + 0).FormulaR1C1 = "100"
            Cells(m + 7, n + 1).FormulaR1C1 = "360"
            Cells(m + 7, n + 2).FormulaR1C1 = "DATOS INICIALES:"
            Cells(m + 7, n + 21).FormulaR1C1 = "INTRODUCCI" & ChrW(211) & "N"
            Cells(m + 8, n + 2).FormulaR1C1 = "Capacidad de la bater" & ChrW(237) & "a"
            Cells(m + 8, n + 4).FormulaR1C1 = "C (Ah) ="
            Cells(m + 8, n + 5).FormulaR1C1 = "100"
            Cells(m + 8, n + 21).FormulaR1C1 = "La bater" & ChrW(237) & "a de plomo es un dispositivo que almacena energ" & ChrW(237) & "a el" & ChrW(233) & "ctrica en forma de energ" & ChrW(237) & "a qu" & ChrW(237) & "mica. En "
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "2"
            Cells(m + 9, n + 2).FormulaR1C1 = "Carga inicial de la bater" & ChrW(237) & "a:"
            Cells(m + 9, n + 4).FormulaR1C1 = "Q (C)  ="
            Cells(m + 9, n + 5).FormulaR1C1 = "=R[-1]C*3600"
            Cells(m + 9, n + 21).FormulaR1C1 = "una bater" & ChrW(237) & "a recargable la energ" & ChrW(237) & "a el" & ChrW(233) & "ctrica que se le suministra del exterior se utiliza para completar"
            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 + 2).FormulaR1C1 = "Masa molar del H2 SO4:"
            Cells(m + 10, n + 4).FormulaR1C1 = "m (g/mole) ="
            Cells(m + 10, n + 5).FormulaR1C1 = "98"
            Cells(m + 10, n + 21).FormulaR1C1 = "una reacci" & ChrW(243) & "n qu" & ChrW(237) & "mica y convertir unos compuestos qu" & ChrW(237) & "micos en otros de mayor energ" & ChrW(237) & "a qu" & ChrW(237) & "mica. "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "Carga del electr" & ChrW(243) & "n"
            Cells(m + 11, n + 4).FormulaR1C1 = "q_e  ( C ) = "
            Cells(m + 11, n + 5).FormulaR1C1 = "1.6E-19"
            Cells(m + 11, n + 21).FormulaR1C1 = "Cuando la bater" & ChrW(237) & "a est" & ChrW(225) & " cargada, al cerrar el circuito, la energ" & ChrW(237) & "a qu" & ChrW(237) & "mica se convierte de nuevo en "
            Cells(m + 3, n + 1).Interior.Color = "16746932"
            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 = "SO4-"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 9 Then ' vector 11
            Cells(m + 3, n + -1).FormulaR1C1 = "2"
            Cells(m + 3, n + 0).FormulaR1C1 = "SO4-"
            Cells(m + 3, n + 1).FormulaR1C1 = "SO4-"
            Cells(m + 3, n + 2).FormulaR1C1 = "N" & ChrW(250) & "mero de Avogadro:"
            Cells(m + 3, n + 4).FormulaR1C1 = "N_A ="
            Cells(m + 3, n + 5).FormulaR1C1 = "6.02E+23"
            Cells(m + 3, n + 21).FormulaR1C1 = "energ" & ChrW(237) & "a el" & ChrW(233) & "ctrica y se producen las reacciones inverrsas.  En este modelo se pueden estudiar la ley "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 1).FormulaR1C1 = "=""o[20]x=[20;20]o2[""&R[36]C[2]&""]y=[""&R[34]C[2]&"";""&R[35]C[2]&""]o3[40]z=[""&R[-6]C-100&"";""&R[-6]C-100&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01171875s"""
            Cells(m + 4, n + 2).FormulaR1C1 = "RESULTADOS:"
            Cells(m + 4, n + 21).FormulaR1C1 = "de conservaci" & ChrW(243) & "n de la carga y el funcionamiento de la bater" & ChrW(237) & "a como una FEM."
            Cells(m + 5, n + -1).FormulaR1C1 = "2"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 2).FormulaR1C1 = "N" & ChrW(250) & "mero de electrones"
            Cells(m + 5, n + 4).FormulaR1C1 = "n ="
            Cells(m + 5, n + 5).FormulaR1C1 = "=R[-5]C/R[-3]C"
            Cells(m + 6, n + 2).FormulaR1C1 = "No. de mol" & ChrW(233) & "c. de de H2SO4 "
            Cells(m + 6, n + 4).FormulaR1C1 = "N(H2SO4) ="
            Cells(m + 6, n + 5).FormulaR1C1 = "=R[-6]C/R[-4]C"
            Cells(m + 6, n + 21).FormulaR1C1 = "Oprima el bot" & ChrW(243) & "n <<-- para poner en posici" & ChrW(243) & "n inicial la simulaci" & ChrW(243) & "n y >>  para iniciar la simulaci" & ChrW(243) & "n."
            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 + 2).FormulaR1C1 = "N" & ChrW(250) & "mero total de moles:"
            Cells(m + 7, n + 4).FormulaR1C1 = "X (moles) ="
            Cells(m + 7, n + 5).FormulaR1C1 = "=R[-1]C/R[-4]C"
            Cells(m + 8, n + -1).FormulaR1C1 = "20"
            Cells(m + 8, n + 0).FormulaR1C1 = "200"
            Cells(m + 8, n + 1).FormulaR1C1 = "260"
            Cells(m + 8, n + 2).FormulaR1C1 = "Masa  de H2SO4 requerida:"
            Cells(m + 8, n + 4).FormulaR1C1 = "M (g) ="
            Cells(m + 8, n + 5).FormulaR1C1 = "=R[-7]C*R[-1]C"
            Cells(m + 8, n + 21).FormulaR1C1 = "CONSERVACI" & ChrW(211) & "N DE LA CARGA:"
            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 = "|||||||||||||||||||||||||||||||||||||||||||||||||||"
            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 + 21).FormulaR1C1 = "Cuando se cierra el circuito, en el interior de la bater" & ChrW(237) & "a, en las paredes del electrodo negativo "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            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 + 21).FormulaR1C1 = "sucede la siguiente reacci" & ChrW(243) & "n qu" & ChrW(237) & "mica: "
            Cells(m + 3, n + 1).Interior.Color = "16731466"
            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 = "H+"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 18 Then ' vector 10
            Cells(m + 3, n + -1).FormulaR1C1 = "3"
            Cells(m + 3, n + 0).FormulaR1C1 = "H+"
            Cells(m + 3, n + 1).FormulaR1C1 = "H+"
            Cells(m + 3, n + 2).FormulaR1C1 = "|||||||DIFERENCIA DE POTENCIAL  ENTRE BORNES||||||"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 1).FormulaR1C1 = "=""o[40]x=[-20;25]o2[""&R[31]C[2]&""]y=[""&R[29]C[2]&"";""&R[30]C[2]&""]o3[40]z=[""&R[-15]C-120&"";""&R[-15]C-40&""]color=[8]origin[cart.]=[0;100;0]tfactor=0,01640625s"""
            Cells(m + 4, n + 2).FormulaR1C1 = "DATOS INICIALES:"
            Cells(m + 4, n + 27).FormulaR1C1 = "(Eq-36-1)"
            Cells(m + 5, n + -1).FormulaR1C1 = "5"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 2).FormulaR1C1 = "Potencial de referencia"
            Cells(m + 5, n + 4).FormulaR1C1 = "V_o ="
            Cells(m + 5, n + 5).FormulaR1C1 = "2"
            Cells(m + 6, n + 2).FormulaR1C1 = "FEM borne negativo"
            Cells(m + 6, n + 4).FormulaR1C1 = "FEM_1 ="
            Cells(m + 6, n + 5).FormulaR1C1 = "6"
            Cells(m + 6, n + 21).FormulaR1C1 = "Loa dos electrones sobrantes en la reacci" & ChrW(243) & "n se dirigen por el circuito externo para hacer parte de la "
            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 + 2).FormulaR1C1 = "FEM borne positivo"
            Cells(m + 7, n + 4).FormulaR1C1 = "FEM_2 ="
            Cells(m + 7, n + 5).FormulaR1C1 = "6"
            Cells(m + 7, n + 21).FormulaR1C1 = "reacci" & ChrW(243) & "n en el segundo electrodo,"
            Cells(m + 8, n + -1).FormulaR1C1 = "21"
            Cells(m + 8, n + 0).FormulaR1C1 = "40"
            Cells(m + 8, n + 1).FormulaR1C1 = "281"
            Cells(m + 8, n + 2).FormulaR1C1 = "Resistencia interna"
            Cells(m + 8, n + 4).FormulaR1C1 = "r ="
            Cells(m + 8, n + 5).FormulaR1C1 = "0.5"
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "Grosor de electrodos:"
            Cells(m + 9, n + 4).FormulaR1C1 = "dx ="
            Cells(m + 9, n + 5).FormulaR1C1 = "20"
            Cells(m + 9, n + 27).FormulaR1C1 = "(Eq-36-2)"
            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 + 2).FormulaR1C1 = "Para el circuito cerrado:"
            Cells(m + 10, n + 4).FormulaR1C1 = "=IF(RC[-4]>0,""       For aditional formula (FA),"","""")"
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "1"
            Cells(m + 11, n + 2).FormulaR1C1 = "Corriente en la bombilla:"
            Cells(m + 11, n + 4).FormulaR1C1 = "I ="
            Cells(m + 11, n + 5).FormulaR1C1 = "5"
            Cells(m + 11, n + 21).FormulaR1C1 = "y de esta manera se forma una corriente el" & ChrW(233) & "ctrica fuera del circuito que perdura mientras haya en "
            Cells(m + 3, n + 1).Interior.Color = "16761348"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 27 Then ' vector 9
            Cells(m + 3, n + -1).FormulaR1C1 = "4"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-28]C[7]<100,"""",""electron"")"
            Cells(m + 3, n + 1).FormulaR1C1 = "electron"
            Cells(m + 3, n + 2).FormulaR1C1 = "RESULTADOS:"
            Cells(m + 3, n + 21).FormulaR1C1 = "el fluido iones de slfato disponibles. Cuando la bater" & ChrW(237) & "a se descarga completamente todas las "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "200"
            Cells(m + 4, n + 1).FormulaR1C1 = "=IF(R[-29]C[6]<140,"""",""s[10]r=[100;100]s2[180]phi=[270;270]s3[10]theta=[""&R[24]C[2]&"";""&R[24]C[2]+15&""]color=[8]origin[cart.]=[-10;100;""&R[-24]C-30&""]tfactor=0,01432292s"")"
            Cells(m + 4, n + 2).FormulaR1C1 = "FEM (desconectada)"
            Cells(m + 4, n + 4).FormulaR1C1 = "FEM ="
            Cells(m + 4, n + 5).FormulaR1C1 = "=ABS(R[-6]C)+ABS(R[-7]C)"
            Cells(m + 4, n + 21).FormulaR1C1 = "mol" & ChrW(233) & "culas de " & ChrW(225) & "cido sulf" & ChrW(250) & "rico han dado como resultado agua y sulfato de plomo. De las f" & ChrW(243) & "rmulas"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "0"
            Cells(m + 5, n + 1).FormulaR1C1 = "2"
            Cells(m + 5, n + 2).FormulaR1C1 = "Voltaje entre bornes:"
            Cells(m + 5, n + 4).FormulaR1C1 = "DeltaV ="
            Cells(m + 5, n + 5).FormulaR1C1 = "=R[-1]C-R[32]C[-2]*R[-6]C"
            Cells(m + 5, n + 21).FormulaR1C1 = "qu" & ChrW(237) & "micas se puede deducir que, en conjunto, por cada dos iones de sulfato que se gastan se producen"
            Cells(m + 6, n + 2).FormulaR1C1 = "||||||||||||||||||||||||||||||||||||||||||||||||||||"
            Cells(m + 6, n + 21).FormulaR1C1 = "dos electrones, en otras palabras por cada mol" & ChrW(233) & "cula de " & ChrW(225) & "cido sulfurico se produce un electr" & ChrW(243) & "n."
            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 + 8, n + -1).FormulaR1C1 = "-9.99999999999999"
            Cells(m + 8, n + 0).FormulaR1C1 = "177.714596145697"
            Cells(m + 8, n + 1).FormulaR1C1 = "267.067960895016"
            Cells(m + 8, n + 2).FormulaR1C1 = " "
            Cells(m + 8, n + 21).FormulaR1C1 = "Ejemplo 1:"
            Cells(m + 9, n + -1).FormulaR1C1 = "2"
            Cells(m + 9, n + 0).FormulaR1C1 = "2"
            Cells(m + 9, n + 1).FormulaR1C1 = "8"
            Cells(m + 9, n + 2).FormulaR1C1 = " "
            Cells(m + 9, n + 21).FormulaR1C1 = "Una bater" & ChrW(237) & "a de plomo tiene una capacidad de 100 Ah. "
            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 + 21).FormulaR1C1 = "a) Hallar la carga total cuando est" & ChrW(225) & " totalmente cargada."
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            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 + 21).FormulaR1C1 = "b) �Cu" & ChrW(225) & "ntos gramos de " & ChrW(225) & "cido sulf" & ChrW(250) & "rico gasta la bater" & ChrW(237) & "a hasta descargarse totalmente?"
            Cells(m + 3, n + 1).Interior.Color = "16731466"
            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 = "V"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 36 Then ' vector 8
            Cells(m + 3, n + -1).FormulaR1C1 = "5"
            Cells(m + 3, n + 0).FormulaR1C1 = "V"
            Cells(m + 3, n + 21).FormulaR1C1 = "Soluci" & ChrW(243) & "n:"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "o[0,5]x=[20;20]o2[7]y=[0;200]o3[2]z=[0;0]color=[0]origin[cart.]=[0;0;0]tfactor=0,002459491s"
            Cells(m + 4, n + 2).FormulaR1C1 = "<<-- Gr" & ChrW(225) & "fica del potencial"
            Cells(m + 4, n + 21).FormulaR1C1 = "a) 100 Ah = 100A * 3600 s = 100 C/s * 3600 s = 360000 C"
            Cells(m + 5, n + -1).FormulaR1C1 = "27"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 22).FormulaR1C1 = "Colocar G11=100 y observar  la carga en G12."
            Cells(m + 6, n + 2).FormulaR1C1 = "////////////////////////////////"
            Cells(m + 6, n + 4).FormulaR1C1 = "|"
            Cells(m + 6, n + 21).FormulaR1C1 = "b) Por cada electr" & ChrW(243) & "n que se libera en el circuito se gasta una mol" & ChrW(233) & "cula de " & ChrW(225) & "cido sulf" & ChrW(250) & "rico. Convirti" & ChrW(233) & "ndo "
            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 + 2).FormulaR1C1 = "CONFIGURACI" & ChrW(211) & "N MOD. 3D:"
            Cells(m + 7, n + 4).FormulaR1C1 = "|"
            Cells(m + 7, n + 22).FormulaR1C1 = "la cantidad de carga a electrones y relacion" & ChrW(225) & "ndola con la cantidad de mas de " & ChrW(225) & "cido "
            Cells(m + 8, n + -1).FormulaR1C1 = "20"
            Cells(m + 8, n + 0).FormulaR1C1 = "200"
            Cells(m + 8, n + 1).FormulaR1C1 = "0"
            Cells(m + 8, n + 2).FormulaR1C1 = "Freno del ciclo::"
            Cells(m + 8, n + 3).FormulaR1C1 = "=IF(R[-42]C[4]>160,180,R[-42]C[4])"
            Cells(m + 8, n + 4).FormulaR1C1 = "|"
            Cells(m + 8, n + 22).FormulaR1C1 = "sulf" & ChrW(250) & "rico se obtiene luego de algunos c" & ChrW(225) & "lculos que la masa gastada es 366,3 g."
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=IF(R[-1]C[-1]<R[-18]C[4],R[-22]C[4]*R[15]C[2]-R[-1]C[-1]*(R[19]C[2]*R[-19]C[4])*R[15]C[2]/(200-2*R[-18]C[4]),IF(R[-1]C[-1]<200-R[-18]C[4],(R[-21]C[4]+R[-22]C[4])*R[15]C[2]-R[-1]C[-1]*(R[19]C[2]*R[-19]C[4])*R[15]C[2]/(200-2*R[-18]C[4]),(R[-20]C[4]+R[-22]C[4]+R[-21]C[4])*R[15]C[2]-R[-1]C[-1]*(R[19]C[2]*R[-19]C[4])*R[15]C[2]/(200-2*R[-18]C[4])))"
            Cells(m + 9, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + 22).FormulaR1C1 = "Colocar G12=100 y observar la masa total en G20."
            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 + 2).FormulaR1C1 = "Mol" & ChrW(233) & "culas de SO4 en y:"
            Cells(m + 10, n + 4).FormulaR1C1 = "|"
            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 + 2).FormulaR1C1 = "Inicio:"
            Cells(m + 11, n + 3).FormulaR1C1 = "=100-R[-3]C*1.2"
            Cells(m + 11, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + 21).FormulaR1C1 = "Ejercicio: En un recibo de luz se muestra el consumo mensual promedio de 120 kWh, lo cual determina"
            Cells(m + 3, n + 1).Interior.Color = "130835"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 45 Then ' vector 7
            Cells(m + 3, n + -1).FormulaR1C1 = "6"
            Cells(m + 3, n + 2).FormulaR1C1 = "Final:"
            Cells(m + 3, n + 3).FormulaR1C1 = "100"
            Cells(m + 3, n + 4).FormulaR1C1 = "|"
            Cells(m + 3, n + 22).FormulaR1C1 = "un consumo diario de 4 kWh. Si esta energ" & ChrW(237) & "a se recolecta con paneles solares "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 1).FormulaR1C1 = "=""o[0,5]x=[20;20]o2[2]y=[220;220]o3[""&R[14]C[2]-1&""]z=[""&R[12]C[2]&"";""&R[13]C[2]&""]color=[0]origin[cart.]=[0;0;0]tfactor=0,001302083s"""
            Cells(m + 4, n + 2).FormulaR1C1 = "Paso en y:"
            Cells(m + 4, n + 3).FormulaR1C1 = "=R[-5]C+2"
            Cells(m + 4, n + 4).FormulaR1C1 = "|"
            Cells(m + 4, n + 22).FormulaR1C1 = "a) �cu" & ChrW(225) & "ntas bater" & ChrW(237) & "as de 200 Ah son necesarias para almacenarla?  "
            Cells(m + 5, n + -1).FormulaR1C1 = "3"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0"
            Cells(m + 5, n + 2).FormulaR1C1 = "Mol" & ChrW(233) & "culas de H en y:"
            Cells(m + 5, n + 4).FormulaR1C1 = "|"
            Cells(m + 5, n + 22).FormulaR1C1 = "b) �Cu" & ChrW(225) & "ntas bater" & ChrW(237) & "as son necesarias si cada bater" & ChrW(237) & "a se puede descargar s" & ChrW(243) & "lo hasta el 50%?"
            Cells(m + 6, n + 2).FormulaR1C1 = "Inicio:"
            Cells(m + 6, n + 3).FormulaR1C1 = "=-60+R[-7]C*0.75"
            Cells(m + 6, n + 4).FormulaR1C1 = "|"
            Cells(m + 6, n + 22).FormulaR1C1 = "c) �Cu" & ChrW(225) & "nto " & ChrW(225) & "cido sulfurico se requiere para el sistema del punto b)?"
            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 + 2).FormulaR1C1 = "Final:"
            Cells(m + 7, n + 3).FormulaR1C1 = "=-50+R[-50]C[4]*0.75"
            Cells(m + 7, n + 4).FormulaR1C1 = "|"
            Cells(m + 8, n + -1).FormulaR1C1 = "20"
            Cells(m + 8, n + 0).FormulaR1C1 = "220"
            Cells(m + 8, n + 1).FormulaR1C1 = "168"
            Cells(m + 8, n + 2).FormulaR1C1 = "Paso en y:"
            Cells(m + 8, n + 3).FormulaR1C1 = "=R[-9]C+20"
            Cells(m + 8, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "-250"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "Movimiento de electrones:"
            Cells(m + 9, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + 21).FormulaR1C1 = "DIFERENCIA DE POTENCIAL Y FEM "
            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 + 2).FormulaR1C1 = "Theta (t) ="
            Cells(m + 10, n + 3).FormulaR1C1 = "=250-R[-53]C[4]"
            Cells(m + 10, n + 4).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 + 2).FormulaR1C1 = "////////////////////////////////"
            Cells(m + 11, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + 21).FormulaR1C1 = "La gr" & ChrW(225) & "fica  representa el potencial versus el cuerpo de la bater" & ChrW(237) & "a. Cuando el circuito exterior est" & ChrW(225) & ""
            Cells(m + 3, n + 1).Interior.Color = "49407"
            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 = "(Eq-36-5)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 54 Then ' vector 6
            Cells(m + 3, n + -1).FormulaR1C1 = "7"
            Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-36-5)"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--FEM 1, flecha doble"
            Cells(m + 3, n + 21).FormulaR1C1 = "desconectado, el potencial es constante en tres regiones: en el interior de los dos electrodos y en el l" & ChrW(237) & "quido"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 2).FormulaR1C1 = "/////////////////////////////"
            Cells(m + 4, n + 4).FormulaR1C1 = "|"
            Cells(m + 4, n + 21).FormulaR1C1 = "de la bater" & ChrW(237) & "a, mientras que cuando se conecta el circuito externo, el potencial en el interior adquiere "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 2).FormulaR1C1 = "CONFIGUR. DE GR" & ChrW(193) & "FICO:"
            Cells(m + 5, n + 4).FormulaR1C1 = "|"
            Cells(m + 5, n + 21).FormulaR1C1 = "otra forma  permitiendo que las cargas positivas (H+) viajen de izquierda a derecha, es decir de mayor a menor "
            Cells(m + 6, n + 2).FormulaR1C1 = "Escala de V: "
            Cells(m + 6, n + 3).FormulaR1C1 = "12"
            Cells(m + 6, n + 4).FormulaR1C1 = "|"
            Cells(m + 6, n + 21).FormulaR1C1 = "potencial, y las cargas negativas (SO4 -) viajen de derecha a izquierda, es decir de menor a mayor "
            Cells(m + 7, n + -1).FormulaR1C1 = "20"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-34]C[5]-2"
            Cells(m + 7, n + 1).FormulaR1C1 = "=RC[2]"
            Cells(m + 7, n + 2).FormulaR1C1 = "V_INF"
            Cells(m + 7, n + 3).FormulaR1C1 = "=R[-38]C[2]*R[-1]C-R[3]C*R[-35]C[2]*(R[-34]C[2])/(200-2*R[-34]C[2])"
            Cells(m + 7, n + 4).FormulaR1C1 = "|"
            Cells(m + 7, n + 21).FormulaR1C1 = "potencial, como es natural. Sin embargo se observa un salto brusco del potencial  en las paredes de "
            Cells(m + 8, n + 2).FormulaR1C1 = "V_SUP="
            Cells(m + 8, n + 3).FormulaR1C1 = "=(R[-37]C[2]+R[-39]C[2]+R[-38]C[2])*R[-2]C-R[2]C*R[-36]C[2]*(200-R[-35]C[2])*R[-2]C/(200-2*R[-35]C[2])"
            Cells(m + 8, n + 4).FormulaR1C1 = "|"
            Cells(m + 8, n + 21).FormulaR1C1 = "los electrodos, en donde  las cargas positivas se mueven de menor a mayor potencial y las negativas "
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-39]C[4]*R[-3]C[2]"
            Cells(m + 9, n + 2).FormulaR1C1 = "Delta V ="
            Cells(m + 9, n + 3).FormulaR1C1 = "=(R[-1]C-R[-2]C)"
            Cells(m + 9, n + 4).FormulaR1C1 = "|"
            Cells(m + 9, n + 21).FormulaR1C1 = "lo contrario, lo cual va en contra de su naturaleza. Esto se debe a que  en las paredes de los "
            Cells(m + 10, n + -1).FormulaR1C1 = "3"
            Cells(m + 10, n + 0).FormulaR1C1 = "0"
            Cells(m + 10, n + 1).FormulaR1C1 = "1"
            Cells(m + 10, n + 2).FormulaR1C1 = "I ="
            Cells(m + 10, n + 3).FormulaR1C1 = "=IF(R[-62]C[4]=0,0,R[-35]C[2])"
            Cells(m + 10, n + 4).FormulaR1C1 = "|"
            Cells(m + 10, n + 21).FormulaR1C1 = "electrodos suceden las reacciones qu" & ChrW(237) & "micas que hacen el trabajo de llevar las cargas positivas  desde "
            Cells(m + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "2"
            Cells(m + 11, n + 2).FormulaR1C1 = "/////////////////////////////"
            Cells(m + 11, n + 4).FormulaR1C1 = "|"
            Cells(m + 11, n + 21).FormulaR1C1 = "un potencial menor a un potencial mayor y de manera similar con las cargas negativas. "
            Cells(m + 3, n + 1).Interior.Color = "15773696"
            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 = "(Eq-36-6)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 63 Then ' vector 5
            Cells(m + 3, n + -1).FormulaR1C1 = "8"
            Cells(m + 3, n + 0).FormulaR1C1 = "(Eq-36-6)"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--FEM 2, flecha doble"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Cuando la bater" & ChrW(237) & "a est" & ChrW(225) & " desconectada, la diferencia de potencial es igual a la suma de las fem en cada "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 21).FormulaR1C1 = "electrodo, a su vez igual a la fem total:"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-7]C+R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-7]C+R[-9]C+160"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-8]C[2]-R[-45]C[4]*R[-10]C[2]"
            Cells(m + 7, n + 27).FormulaR1C1 = "(Eq-36-3)"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 0).FormulaR1C1 = "=R[-9]C"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-47]C[4]*R[-12]C[2]"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "mientras que cuando se conecta tiene lugar la ecuaci" & ChrW(243) & "n:"
            Cells(m + 10, n + -1).FormulaR1C1 = "3"
            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 + 11, n + -1).FormulaR1C1 = "3"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "2"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 11, n + 27).FormulaR1C1 = "(Eq-36-4)"
            Cells(m + 3, n + 1).Interior.Color = "255"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 72 Then ' vector 4
            Cells(m + 3, n + -1).FormulaR1C1 = "9"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--Ir, l" & ChrW(237) & "nea punteada inf"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 21).FormulaR1C1 = "Oprima <<-- para ver la gr" & ChrW(225) & "fica del potencial cuando la bater" & ChrW(237) & "a est" & ChrW(225) & " desconectada y >> para ver el "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 21).FormulaR1C1 = "potencial a lo largo de la bater" & ChrW(237) & "a mientras est" & ChrW(225) & " conectada la bombilla externa. "
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "-30"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-17]C[2]-R[-54]C[4]*R[-19]C[2]"
            Cells(m + 7, n + 21).FormulaR1C1 = "Cambie los siguientes par" & ChrW(225) & "metros iniciales y vuelva a ejecutar la simulaci" & ChrW(243) & "n:"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "250"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 22).FormulaR1C1 = "Potencial de referencia"
            Cells(m + 9, n + 24).FormulaR1C1 = "G26"
            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 + 22).FormulaR1C1 = "FEM negativa"
            Cells(m + 10, n + 24).FormulaR1C1 = "G27"
            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 + 22).FormulaR1C1 = "FEM positiva"
            Cells(m + 11, n + 24).FormulaR1C1 = "G28"
            Cells(m + 3, n + 1).Interior.Color = "49407"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 81 Then ' vector 3
            Cells(m + 3, n + -1).FormulaR1C1 = "10"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<--Ir, l" & ChrW(237) & "nea punteada sup"
            Cells(m + 3, n + 22).FormulaR1C1 = "Resistencia interna"
            Cells(m + 3, n + 24).FormulaR1C1 = "G29"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "Grosor electrodos:"
            Cells(m + 4, n + 24).FormulaR1C1 = "G30"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "6"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 5, n + 22).FormulaR1C1 = "Corriente en la bombilla "
            Cells(m + 5, n + 24).FormulaR1C1 = "G32"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-9]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "-30"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-27]C[2]+R[-64]C[4]*R[-28]C[2]"
            Cells(m + 7, n + 21).FormulaR1C1 = "Cambiando estos datos que caracterizan la bater" & ChrW(237) & "a y el circuito externo, se pueden ver los resultados "
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 8, n + 21).FormulaR1C1 = "de la FEM y el voltaje entre los bornes en las celdas G34 y G35 respectivamente."
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "30"
            Cells(m + 9, n + 1).FormulaR1C1 = "0"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 9, n + 21).FormulaR1C1 = "Las unidades del voltaje y las FEM se dan en voltios, mientras que el grosos de los electrodos en cm."
            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 + 21).FormulaR1C1 = "Estas unidades pueden ser tratadas a conveniencia por el usuario. "
            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 + 3, n + 1).Interior.Color = "49407"
            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 = ""
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 90 Then ' vector 2
            Cells(m + 3, n + -1).FormulaR1C1 = "11"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-91]C[7]=0,"""",""(Eq-36-7)"")"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<-- Ir, flecha doble"
            Cells(m + 3, n + 21).FormulaR1C1 = "Pregunta: Si se mide el voltaje de una bater" & ChrW(237) & "a cargada con un volt" & ChrW(237) & "metro antes y despu" & ChrW(233) & "s "
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 4, n + 22).FormulaR1C1 = "de conecatrla a un circuito externo, "
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "=IF(R[-93]C[6]=0,1,0)"
            Cells(m + 5, n + 22).FormulaR1C1 = "a) �El voltaje entre los bornes de la bater" & ChrW(237) & "a cambi" & ChrW(243) & "?"
            Cells(m + 6, n + 22).FormulaR1C1 = "b) �La FEM cambi" & ChrW(243) & "?"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "=R[-18]C"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-18]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-11]C-R[-20]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "2"
            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 + 11, n + -1).FormulaR1C1 = "2"
            Cells(m + 11, n + 0).FormulaR1C1 = "0"
            Cells(m + 11, n + 1).FormulaR1C1 = "2"
            Cells(m + 11, n + 4).FormulaR1C1 = "=IF(R[-1]C[-4]>0,""<--  use these cells."","""")"
            Cells(m + 3, n + 1).Interior.Color = "3506772"
            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 = "(Eq-36-3)"
       Call AddNewVector
      End If ' vector ends
      If m = m1 + 99 Then ' vector 1
            Cells(m + 3, n + -1).FormulaR1C1 = "12"
            Cells(m + 3, n + 0).FormulaR1C1 = "=IF(R[-100]C[7]=0,""(Eq-36-3)"",""(Eq-36-4)"")"
            Cells(m + 3, n + 2).FormulaR1C1 = "<<-- Delta V, flecha doble"
            Cells(m + 4, n + -1).FormulaR1C1 = "1"
            Cells(m + 4, n + 0).FormulaR1C1 = "183"
            Cells(m + 5, n + -1).FormulaR1C1 = "1"
            Cells(m + 5, n + 0).FormulaR1C1 = "1"
            Cells(m + 5, n + 1).FormulaR1C1 = "0.3"
            Cells(m + 7, n + -1).FormulaR1C1 = "=R[-45]C"
            Cells(m + 7, n + 0).FormulaR1C1 = "250"
            Cells(m + 7, n + 1).FormulaR1C1 = "=R[-45]C"
            Cells(m + 8, n + 2).FormulaR1C1 = "=IF(R[-4]C[-1]>1,"" <-- Variable coordinates"","""")"
            Cells(m + 9, n + -1).FormulaR1C1 = "0"
            Cells(m + 9, n + 0).FormulaR1C1 = "0"
            Cells(m + 9, n + 1).FormulaR1C1 = "=R[-45]C+R[-36]C-R[-9]C"
            Cells(m + 9, n + 2).FormulaR1C1 = "=IF(R[-5]C[-1]>1,"" <-- Field formulae"","""")"
            Cells(m + 10, n + -1).FormulaR1C1 = "3"
            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 + 11, n + -1).FormulaR1C1 = "3"
            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 + 3, n + 1).Interior.Color = "3506772"
            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 = 12
      End If ' vector ends
      If m = m1 + 99 Then
       Call BlackWhiteDesk
       Call PutEqBut
      End If ' actualizar hoja
End Sub