[RESUELTO] Desplazar Celdas hacia arriba

[short]

Hola,

me podrian decir como desplazar celdas hacia arriba en macro con open office basic? He usado removeRange pero no me funciona. He de desplazar dos celdas hacia arriba una hoja de calculo.

Gracias

[mauricio]

Hola...

Capitulo 6.3.1 de mi libro: http://user.services.openoffice.org/es/ ... =50&t=1545

Código: Seleccionar todo

Sub MoverRangos1()
Dim oHojaActiva As Object
Dim oOrigen As Object
Dim oDestino As Object

	oHojaActiva = ThisComponent.getCurrentController().getActiveSheet()
	'Rango a mover
	oOrigen = oHojaActiva.getCellRangeByName( "A1:B5" )
	'Celda destino
	oDestino = oHojaActiva.getCellRangeByName( "D10" )

	'Movemos el rango
	oHojaActiva.moveRange( oDestino.getCellAddress(), oOrigen.getRangeAddress() )

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], de esta forma conseguiremos un foro más ordenado.

Saludos

[short]

Muchas Gracias