Ordenar alfabéticamente las hojas de un libro Excel usando VBA

Escrito por Administrador



Excel

0 Comentario(s)



8 de julio de 2024

Vamos a ver cómo ordenar alfabéticamente las hojas de un libro Excel usando VBA en Microsoft Excel.

Para ello he creado un libro con varias hojas para ordenar. Además, en una de ellas se encuentra el botón que contiene el código que usaremos.

A continuación os muestro el código del botón Ordenar hojas,

Sub OrdenarHojasAlfabéticamente()

'Desactivamos la actualización de pantalla

Application.ScreenUpdating = False

Dim iSheets As Integer
Dim i As Integer
Dim j As Integer

'Guardamos en la variable iSheets el número de hojas que tiene el libro

iSheets = Sheets.Count

'Recorremos todas las hojas comparando alfabéticamente el resto con la que tenemos seleccionada

For i = 1 To iSheets - 1

For j = i + 1 To iSheets

'Si la hoja j alfabéticamente es menor que la i

If Sheets(j).Name < Sheets(i).Name Then

'Movemos la hoja hacia la izquierda en caso de que se cumpla la condición

Sheets(j).Move Before:=Sheets(i)

End If

Next j

Next i

'Activamos la actualización de pantalla

Application.ScreenUpdating = True

End Sub

Si pulsamos el botón Ordenar Hojas, veremos cómo las hojas se ordenan alfabéticamente,

Si ahora pulsamos el botón "Mostrar todas las hojas", aparecerán de nuevo las hojas 2 y 3.

Espero que este ejemplo te haya servido para saber cómo ordenar alfabéticamente las hojas de un libro usando VBA en Microsoft Excel. Descárgate el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.