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...

Otros usuarios vieron...

  • Seleccionar un rango de celdas e imprimirlas no es sencillo con Calc; necesitamos definir previamente un rango de impresión.

    Esta sencilla macro que describimos en este post realizará todo ese t…

  •  

    En el foro se ha preguntado la posibilidad de realizar una búsqueda de palabras que contengan o no vocales acentuadas, con el fin de facilitar el aprendizaje del e…

  • Insertar un reloj en una hoja de cálculo no es de lo más práctico que se me ocurre, pero si que es una forma de ver como podemos utilizar un…

Patrocinado por SBS  Contacto • ©2026 by Salvador Domènech Chicote