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.

Insertar una formula en un campo

Notapor Andres Lote » 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
Ú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
Andres Lote
 
Mensajes: 12
Registrado: Mié Jul 04, 2018 5:35 pm

Re: Insertar una formula en un campo

Notapor fornelasa » Lun Jul 30, 2018 5:54 pm

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 5.4.6 | aoo 4.1.5 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3011
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Insertar una formula en un campo

Notapor Andres Lote » Lun Jul 30, 2018 10:30 pm

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) 2 veces
Open office 4.1.3 windows 7 profesional
Andres Lote
 
Mensajes: 12
Registrado: Mié Jul 04, 2018 5:35 pm

Re: Insertar una formula en un campo

Notapor fornelasa » Mar Jul 31, 2018 12:01 am

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"
Adjuntos
Form.ods
expandir formula
(21.36 KiB) 6 veces
lo 5.4.6 | aoo 4.1.5 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3011
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Insertar una formula en un campo

Notapor Andres Lote » Jue Ago 02, 2018 2:39 pm

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
Andres Lote
 
Mensajes: 12
Registrado: Mié Jul 04, 2018 5:35 pm


Volver a Principiantes

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados