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

Discute sobre la aplicación de hojas de cálculo

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

Notapor Bomer » Dom Oct 18, 2020 12:33 pm

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.
Adjuntos
Ejemplo01.ods
(15.16 KiB) 5 veces
Última edición por Bomer el Lun Oct 19, 2020 9:20 am, editado 1 vez en total
OpenOffice 4.1.4 Windows 10
Bomer
 
Mensajes: 5
Registrado: Mié Ago 02, 2017 6:25 am

Re: Crear botones que copie/pegue datos de X a Y rango de ce

Notapor FJCC-ES » Dom Oct 18, 2020 10:17 pm

En el archivo adjunto, el botón A1 llama este código
Código: Seleccionar todo   Expandir vistaContraer vista
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   Expandir vistaContraer vista
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
Adjuntos
Ejemplo_fjcc.ods
(10.7 KiB) 2 veces
FJCC-ES
 
Mensajes: 733
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

[Resuelto]Crear botones que copie/pegue de X a Y rango de ce

Notapor Bomer » Lun Oct 19, 2020 9:14 am

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 :)
OpenOffice 4.1.4 Windows 10
Bomer
 
Mensajes: 5
Registrado: Mié Ago 02, 2017 6:25 am


Volver a Calc

¿Quién está conectado?

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