Página 1 de 1

Insertar una formula en un campo

NotaPublicado: Jue Jul 26, 2018 11:26 pm
por Andres Lote
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

Re: Insertar una formula en un campo

NotaPublicado: Lun Jul 30, 2018 5:54 pm
por fornelasa
Yo no entiendo esta parte:
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.

Re: Insertar una formula en un campo

NotaPublicado: Lun Jul 30, 2018 10:30 pm
por Andres Lote
Buenas tardes, se tiene un formulario en la hoja1 y la macro guarda la información de dicha hoja en la hoja2, y lo que deseo es que en la columna (I) se introduzca una formula y que esta se vaya arrastrando cada vez que vaya ingresando un nuevo registro.

Adjunto plantilla, y en el hoja dos se encuentra la formula la cual quiero que se vaya ingresando o registrando cada vez que ingreso un registro.

Gracias por su colaboración.

Re: Insertar una formula en un campo

NotaPublicado: Mar Jul 31, 2018 12:01 am
por fornelasa
Una posible opción:
Código: Seleccionar todo   Expandir vistaContraer vista
destino.getCellRangeByName("I2").Formula = "=D2&"&""" """&"&E2&"&""" """&"&F2"
destino.CopyRange(destino.getCellRangeByName("I" + fila).cellAddress, destino.getCellRangeByName("I2").rangeAddress
MsgBox "Listo"

Re: Insertar una formula en un campo

NotaPublicado: Jue Ago 02, 2018 2:39 pm
por Andres Lote
Buenos dias,
Muchas gracias, fue muy útil su ayuda e información suministrada ya pude terminar con el proyecto propuesto.

Saludos :D :D :D