Tener gran cantidad de hojas en nuestros libros de Excel se ha vuelto una necesidad en nuestras labores , ya sea que manejemos una lista de vendedores, proveedores , alumnos , productos ,  etc y que en realidad sea necesario tenerlas.

Ahora es posible por medio de una sencilla macro organizar nuestras hojas en orden alfabético ya sea ascendente o descendente.

Para nuestro ejemplo, tenemos un  libro de Ventas por Vendedor que es necesario actualizar constantemente, porque se han retirado personas e ingresado nuevas , cada hoja tiene como nombre el vendedor con su respectivo detalle.

 Organizarlo manualmente es una posible solución , pero sería muy laborioso buscar un vendedor hoja por hoja, que tal alfabéticamente ?

      1. Debemos abrir el editor de Visual Basic , existen varios métodos para abrirlo:

      2. Crearemos un nuevo módulo (Insertar / Módulo)


     

         3.  Ahora, colocaremos nuestro código:
          
         Forma ascendente

Sub Ordenar_HojasAscendente()

For i = 1 To Sheets.Count

    For j = i + 1 To Sheets.Count

        If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then

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

        End If

    Next j

Next i

End Sub

Nuestro código utiliza dos variables para recorrer todas las hojas. La variable “i” indica la hoja actual y la variable “J” será la hoja siguiente a la hoja actual. La función Ucase convierte en mayúsculas el nombre de ambas hojas para poder compararlas correctamente y utilizamos el operador mayor que (>) para saber si la hoja actual es mayor que la hoja siguiente.

      Ahora en forma descendente





Lo único que falta es probarlas

Luego de tener nuestras macros ya creadas , las podemos visualizar por medio de la pestaña Vista / Macros / Ver macros


Así quedarían nuestras hojas 

Ascendente:
Descendente: