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

[alexisarteta]

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

[mauricio]

Usa llenar series:
https://wiki.openoffice.org/wiki/ES/Man ... s_de_datos

Saludos

[alexisarteta]

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

Código: Seleccionar todo

 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 )

[mauricio]

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