Macro para ordenar las hojas de un documento de OpenOffice Calc

Macro Ordenar Hojas de un documento OpenOffice Calc

No es complicado reordenar las hojas de un documento de Calc, si tienes 5 hojas, claro. Si tienes 22, puedes tardar un ratito.

Aún así, ese ratito no es muy grande, pero si no te apetece estar tú ordenando, puedes copiar y pegar esta macro que realizará el trabajo sucio por tí.

Sub OrdenaHojas
Dim oHojas
Dim i As Integer
Dim Seguir As Boolean

oHojas = ThisComponent.Sheets
If oHojas.getCount() > 1 Then ' Si sólo hay una, no hay que ordenar :)
Do
Seguir = False ' Si Seguir se pone a true, repetirá el proceso
For i = 0 to oHojas.getCount()-2
If oHojas.getByIndex(i).Name > oHojas.getByIndex(i+1).Name Then
oHojas.moveByName(oHojas.getByIndex(i+1).Name,i)
Seguir = True ' Ha reordenado una hoja; Seguir = true para volver a empezar
End If
Next
Loop Until Seguir = False
End If
End Sub

Y este es el resultado tras ejecutar la macro.

 

No hay reacciones, todavía


Form is loading...