Ordenar hojas alfabéticamente en Excel (macro)

06 Ago Ordenar hojas alfabéticamente en Excel (macro)

Ordenar hojas alfabéticamente en Excel

¿Cómo podemos podemos ordenar de forma automática las distintas hojas de un libro en Excel por orden alfabético ascendente o descendente?

Las siguientes dos macros nos permiten listar y ordenar todas las hojas de un libro en Excel, ya sea de A-Z (Ascendente) o Z-A (Descendente), y debemos copiar cada instrucción dentro de un nuevo módulo en la ventana de Visual Basic:

ORDENAR HOJAS DE FORMA ASCENDENTE

Sub OrdenarHojas_Ascendente()
For a = 1 To Sheets.Count
For s = a + 1 To Sheets.Count
If UCase(Sheets(a).Name) > UCase(Sheets(s).Name) Then
Sheets(s).Move Before:=Sheets(a)
End If
Next s
Next a
End Sub

ORDENAR HOJAS DE FORMA DESCENDENTE

Sub OrdenarHojas_Descendente()
For a = 1 To Sheets.Count
For s = a + 1 To Sheets.Count
If UCase(Sheets(a).Name) < UCase(Sheets(s).Name) Then
Sheets(s).Move Before:=Sheets(a)
End If
Next s
Next a
End Sub

Notamos que las únicas dos diferencias entre ambas instrucciones son el nombre de referencia en la primer línea de código y el signo “mayor que” y “menor que” en la cuarta línea del código.

Esta macro es muy útil si disponemos de muchas hojas y necesitamos ordenarlas de forma rápida y práctica, que de otra forma demoraría mucho tiempo en realizar.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.