[RESUELTO] Macro Rellenar una formula has el final del doc

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO] Macro Rellenar una formula has el final del doc

Notapor alexisarteta » Sab Sep 30, 2017 3:14 pm

Buenas quisiera saber como puedo una formula en una celda y que esta se auto rellene hasta el final de filas que tiene el documento?

Ej: la formula es "=BUSCAR(A2;codigo_dep;nombre_dep)" y quiero que la macro haga el equivalente a picar doble click en la esquina de la celda, para que automaticamente la formula cambie, "A2", "A3", "A4"... y asi hasta la ultima fila con datos.

hice un codigo con un FOR pero es muy lento ya que son mas de 30mil registros
Última edición por fornelasa el Lun Oct 02, 2017 4:32 pm, editado 2 veces en total
Razón: Agregar icono resuelto.
OpenOffice 3.3.0 en Windows 7 Profesional
alexisarteta
 
Mensajes: 23
Registrado: Mié Sep 20, 2017 2:11 pm

Re: Macro Rellenar una formula has el final del documento

Notapor mauricio » Dom Oct 01, 2017 3:17 am

______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5792
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Macro Rellenar una formula has el final del documento

Notapor alexisarteta » Lun Oct 02, 2017 2:53 pm

:bravo: Gracias fue muy sencillo de aplicar y super Rapido... excelente, así lo resolví, par quien lo necesite

Código: Seleccionar todo   Expandir vistaContraer vista
oHoja = ThisComponent.Sheets.getByName("detalle")
    oRango =  oHoja.getCellRangeByName("A1")
   
    oHoja.getCellRangeByName("E2").FormulaLocal = "=BUSCAR(A2;codigo_dep;nombre_dep)"
   
   
   'Creamos un cursor a partir de la primer celda
     oCursor = oHoja.createCursorByRange( oRango )
     'Expandimos a la región actual
     oCursor.collapseToCurrentRegion()

     'Construimos el rango a llenar
     oRango = oHoja.getCellRangeByName( "E2:E" & CStr(oCursor.getRows().getCount()) )

     'Llenamos hacia abajo
     oRango.fillAuto( 0, 1 )
Última edición por alexisarteta el Lun Oct 02, 2017 4:09 pm, editado 1 vez en total
OpenOffice 3.3.0 en Windows 7 Profesional
alexisarteta
 
Mensajes: 23
Registrado: Mié Sep 20, 2017 2:11 pm

Re: Macro Rellenar una formula has el final del documento

Notapor mauricio » Lun Oct 02, 2017 3:41 pm

Por favor, si consideras que el tema ha sido resuelto, marcalo como tal, mira en: ¿Cómo marcar como RESUELTO un tema?, de esta forma, conseguiremos un Foro más ordenado.

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5792
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.


Volver a Macros y API UNO

¿Quién está conectado?

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