[RESUELTO]Crear boton q copie/pegue de X a Y rango de celdas

[Bomer]

Hola a toda la comunidad, Desde ya muchas gracias cualquier ayuda.

Quiero realizar el siguiente ejemplo, Quiero crear 2 botones, En este caso A1 y A2, Que al pulsar A1 me copie o muestre la informacion de G1 a i3 en C1 a E3, Y cuando Aprete A2 me copie o muestre la informacion de G4 a i6 en C1 a E3, Los tamaños de celdas, columnas y filas seran los mismos, Pero quiero que cuando me muestre la informacion en C1 a E3 sea exactamente con el mismo formato y color de G1 a i3 o G4 a i6 como si fuera copiar y pegar.

Realmente no hace falta que sea un boton, Simplemente un texto formateado en x celda y que al darle click y soltar con el boton izquierdo del mouse en dicha celda, haga la funcion.

Tambien me gustaria realizar esto mismo, Pero en vez de que la informacion de G1 a i6 este en la hoja actual, este en una hoja diferente, Dentro del este mismo documento.

Nunca he hecho nada parecido, estuve investigando y probando como hacerlo pero no lo consegui, Nuevamente muchas gracias.

[FJCC-ES]

En el archivo adjunto, el botón A1 llama este código

Código: Seleccionar todo

Sub A1
oHoja1 = ThisComponent.Sheets.getByName("Ejemplo01")
C1_Addr = oHoja1.getCellrangeByName("C1").CellAddress

oHoja2 = ThisComponent.Sheets.getByName("Datos1")
RngAddr = oHoja2.getCellrangeByName("G1:I3").RangeAddress

oHoja1.copyRange(C1_Addr, RngAddr)
End Sub

y el botón A2 llama este código

Código: Seleccionar todo

Sub A2
oHoja1 = ThisComponent.Sheets.getByName("Ejemplo01")
C1_Addr = oHoja1.getCellrangeByName("C1").CellAddress

oHoja2 = ThisComponent.Sheets.getByName("Datos1")
RngAddr = oHoja2.getCellrangeByName("G4:I6").RangeAddress

oHoja1.copyRange(C1_Addr, RngAddr)
End Sub

[Bomer]

Hola FJCC-ES.

Muchas gracias por la ayuda, Exactamente eso era lo que estaba buscando, Pocos minutos despues que usted publico el codigo y el .ods de ejemplo, Me lo descargue y desde entonces he estado buscando la manera de hacer todo lo que queria hacer en mi proyecto personal, Este codigo es lo mas importante, gracias a el codigo pude hacer todo lo demas, Aprendi muchas cosas, a crear el boton, a editarlo, a asignarle una macro, a editar las partes variables del codigo, Muchas gracias nuevamente