Macro borrar un rango de celdas de una determinada hoja de cálculo en OpenOffice Calc

Macro borrar rango de celdas OpenOffice Calc

Para eliminar en Hoja2 el rango de celdas D8:F14 en tu editor Basic llama a la macro de este modo:

BorrarCeldas( "Hoja2", "D8:F14")

La macro:

 

 

 

Sub BorrarCeldas(NombreHoja as string, RangoCeldas as string)
Dim oDoc As Object
Dim oRango As Object

'Este documento
oDoc = ThisComponent
'Hoja se define por nombre, rango por nombre
oRango = oDoc.getSheets.getByName(NombreHoja).getCellRangeByName(RangoCeldas)

'Borramos las celdas del rango en la hoja
oRango.clearContents(1023)

End Sub

No hay reacciones, todavía


Form is loading...