[RESUELTO]Copiar los valores de un rango de celdas en Calc

[RASAPA]

Buenos dia a todos,
Necesito copiar un rango de celdas de una hoja a otra dentro del mismo documento.
Consultando el libro de Mauricio he logrado hacer la copia con " Sub copiarRangos1".
Lo que pasa es que en las celdas de origen tengo formulas y yo quiero copiar los resultados, no la formula.He probado varias soluciones pero siempre me dan error.
Podrian darme un empujoncito ? .

Saludos y muchas gracias.
Ramon

[mauricio]

Hola...

Es muy sencillo, solo tienes que asegurarte que el rango de celdas origen y destino son exactamente del mismo tamaño, después adapta el siguiente código:

Código: Seleccionar todo

Option Explicit

Sub CopiarRango()
Dim oOrigen As Object
Dim oDestino As Object

	'El origen y el destino tienen que ser EXACTAMENTE del mismo tamaño
	oOrigen = ThisComponent.Sheets.getByName("Origen").getCellRangeByName("A1:E10")

	oDestino = ThisComponent.Sheets.getByName("Destino1").getCellRangeByName("C3:G12")
	oDestino.setDataArray( oOrigen.getDataArray )
	
	oDestino = ThisComponent.Sheets.getByName("Destino2").getCellRangeByName("E5:I14")
	oDestino.setDataArray( oOrigen.getDataArray )
	
End Sub

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], adicionalmente puedes marcar el icono de la tilde verde, de esta forma conseguiremos un foro más ordenado.

Saludos

[RASAPA]

Impresionante y sencillo.
Muchas gracias por estar ahí.
Llevo 3 dias probando a ratos, infinidad de opciones y nada.
Funciona a la perfección.

Saludos
Ramon

[rarcos1980]

Esto esta muy bien Mauricio, agradezco el apoyo que brindas al foro, me gustaría sabes si se puede insertar el rango copiado en la otra hoja en lugar de sustituir, que vaya insertando cada vez que copias el rango... Espero puedas apoyarnos gracias.
P.d. tengo como apoyo tu manual, en la parte de borrar rangos y copiar rango no hay problemas, nada mas no encuentro como poder hacer esta combinación.

Hola...

Es muy sencillo, solo tienes que asegurarte que el rango de celdas origen y destino son exactamente del mismo tamaño, después adapta el siguiente código:

Código: Seleccionar todo

Option Explicit

Sub CopiarRango()
Dim oOrigen As Object
Dim oDestino As Object

	'El origen y el destino tienen que ser EXACTAMENTE del mismo tamaño
	oOrigen = ThisComponent.Sheets.getByName("Origen").getCellRangeByName("A1:E10")

	oDestino = ThisComponent.Sheets.getByName("Destino1").getCellRangeByName("C3:G12")
	oDestino.setDataArray( oOrigen.getDataArray )
	
	oDestino = ThisComponent.Sheets.getByName("Destino2").getCellRangeByName("E5:I14")
	oDestino.setDataArray( oOrigen.getDataArray )
	
End Sub

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], adicionalmente puedes marcar el icono de la tilde verde, de esta forma conseguiremos un foro más ordenado.

Saludos

[fornelasa]

Hola rarcos1980, abre un nuevo tema para tu consulta, indica claramente ahí lo que deseas.
Saludos.