Insertar una formula en un campo

¿Nuevo en Apache OpenOffice? ¿No sabe cómo comenzar o dónde hacer su pregunta? ¡Este es el lugar!
Reglas del Foro
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.
Responder
Andres Lote
Mensajes: 15
Registrado: Mié Jul 04, 2018 5:35 pm

Insertar una formula en un campo

Mensaje 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
Última edición por Andres Lote el Jue Ago 02, 2018 2:40 pm, editado 1 vez en total.
Open office 4.1.3 windows 7 profesional
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Insertar una formula en un campo

Mensaje 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.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Andres Lote
Mensajes: 15
Registrado: Mié Jul 04, 2018 5:35 pm

Re: Insertar una formula en un campo

Mensaje 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.
Adjuntos
Form.ods
(22.19 KiB) Descargado 211 veces
Open office 4.1.3 windows 7 profesional
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Insertar una formula en un campo

Mensaje por fornelasa »

Una posible opción:

Código: Seleccionar todo

destino.getCellRangeByName("I2").Formula = "=D2&"&""" """&"&E2&"&""" """&"&F2"
destino.CopyRange(destino.getCellRangeByName("I" + fila).cellAddress, destino.getCellRangeByName("I2").rangeAddress
MsgBox "Listo"
Adjuntos
Form.ods
expandir formula
(21.36 KiB) Descargado 221 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Andres Lote
Mensajes: 15
Registrado: Mié Jul 04, 2018 5:35 pm

Re: Insertar una formula en un campo

Mensaje 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
Open office 4.1.3 windows 7 profesional
Responder