Insertar una formula en un campo
Publicado: Jue Jul 26, 2018 11:26 pm
Buenas tardes,
Mi nombre es Andres, agradezco de su colaboración para la siguiente inquietud; estoy realizando un proyecto en el cual paso una información de la hoja1 a la hoja2, sin embargo, deseo introducir una formula en la cual quede registrada en la hoja 2 en un campo especifico, pero no se como hacer para que quede y vaya bajando la formula cada vez que vaya actualizando la base.
Tengo el siguiente código para guardar la informacion de la hoja1 a la hoja2, agradezco de su colaboración.
Sub GuardarA
doc = ThisComponent
fuente = doc.Sheets.getByName("Hoja1")
A = fuente.getcellrangebyname("L2")
B = fuente.getcellrangebyname("M2")
C = fuente.getcellrangebyname("N2")
D = fuente.getcellrangebyname("O2")
Id_agendamiento = A.String
Direccion_territorial_atencion = B.String
Departamento_atencion = C.String
Punto_atencion = D.String
destino = doc.Sheets.getByName("Hoja2")
arranque = destino.getCellRangeByName("D1")
cursor = destino.createCursorByRange(arranque)
cursor.collapseToCurrentRegion
fila = cursor.rangeAddress.endRow + 2
destino.getCellRangeByName("D" + fila).String = Id_agendamiento
destino.getCellRangeByName("E" + fila).String = Direccion_territorial_atencion
destino.getCellRangeByName("F" + fila).String = Departamento_atencion
destino.getCellRangeByName("G" + fila).String = Punto_atencion
End Sub
Mi nombre es Andres, agradezco de su colaboración para la siguiente inquietud; estoy realizando un proyecto en el cual paso una información de la hoja1 a la hoja2, sin embargo, deseo introducir una formula en la cual quede registrada en la hoja 2 en un campo especifico, pero no se como hacer para que quede y vaya bajando la formula cada vez que vaya actualizando la base.
Tengo el siguiente código para guardar la informacion de la hoja1 a la hoja2, agradezco de su colaboración.
Sub GuardarA
doc = ThisComponent
fuente = doc.Sheets.getByName("Hoja1")
A = fuente.getcellrangebyname("L2")
B = fuente.getcellrangebyname("M2")
C = fuente.getcellrangebyname("N2")
D = fuente.getcellrangebyname("O2")
Id_agendamiento = A.String
Direccion_territorial_atencion = B.String
Departamento_atencion = C.String
Punto_atencion = D.String
destino = doc.Sheets.getByName("Hoja2")
arranque = destino.getCellRangeByName("D1")
cursor = destino.createCursorByRange(arranque)
cursor.collapseToCurrentRegion
fila = cursor.rangeAddress.endRow + 2
destino.getCellRangeByName("D" + fila).String = Id_agendamiento
destino.getCellRangeByName("E" + fila).String = Direccion_territorial_atencion
destino.getCellRangeByName("F" + fila).String = Departamento_atencion
destino.getCellRangeByName("G" + fila).String = Punto_atencion
End Sub