La necesidad que tengo es tomar un rango (3 o 4 celdas con formulas) y bajarlas hasta una fila "x" (La cantidad la capturé con una variable a una celda con un contar y va bien). Luego hacer lo mismo en 4 hojas más. (Claro, solo necesito ayuda con una)
Voy a dejar el código al que he llegado y tal vez sea mas fácil para alguien identificar cual es el error para copiar el rango. Muchas gracias!!
Código: Seleccionar todo
Sub Macro_prueba()
Dim oDoc As Object
Dim oHoja As Object
Dim oCelda as Object
Dim oCounter as Integer
Dim OrangoOrig as Object
Dim OrangoDest as Object
oDoc = ThisComponent
'Aca estoy capturando la variable con la que quiero determinar hasta que fila pegar la formula
oHoja = oDoc.getSheets.getByName("Libro 1")
oCelda = oHoja.getCellrangebyname("a1")
ocounter = ocelda.value
oRangoOrig = oHoja.getCellRangeByName( "b9:c9" )
oRangoDest = oHoja.getCellRangeByName( "b10:c" & oCounter)'Aca incluyo la variable para pegar hasta C"Valor Counter")
oHoja.copyRange( oRangoDest.getCellAddress(), oRangoOrig.getRangeAddress() )
'es esta linea me sale ERROR "Propiedad o metodo no encontrado getCellAddress" aca no sé que debo colocar.
End Sub