[RESUELTO] Copiar y Pegar un Rango variable
Publicado: Mié Feb 22, 2017 8:28 am
Hola, he utilizado por un tiempo macros en Vb, no siendo muy experto he logrado sacar lo que requiero pero ahora tengo la necesidad de hacer una macro "Sencilla" en Openoffice, la verdad he leido partes del libro pero quizá al no tener familiaridad con la programación en OO no he logrado avanzar mucho, agradezco su ayuda.
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!!
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