Cómo ordenar las hojas de un libro con VBA

ordenar las hojas de un libro con vba excel

Como ya sabes, en Excel hay muchas formas de realizar la misma acción, y gracias a VBA,  este número se multiplica.

Hoy te traigo un ejemplo muy clásico de VBA que casi todos los formadores suelen enseñar a sus alumnos: ordenar las hojas de un libro de Excel con VBA.

Sub OrdenarPorNombre()
    Dim NumeroHojas As Integer
    Dim PosicionHoja As Integer
    Dim I As Integer
    
    NumeroHojas = ActiveWorkbook.Worksheets.Count
    PosicionHoja = NumeroHojas
    Do
        If PosicionHoja = 1 Then Exit Do
        For I = 1 To PosicionHoja - 1
        
            If Sheets(I).Name > Sheets(I + 1).Name Then
            Sheets(I + 1).Move before:=Sheets(I)
            End If
        Next I
        PosicionHoja = PosicionHoja - 1
    Loop
End Sub

Cópiala en un módulo estándar y ejecútala para probarla.

En primer lugar, la macro cuenta el número de hojas y, desde la primera, va comparando el  nombre con la siguiente hoja. En caso de que la hoja con la que se compara sea anterior, se mueve a una posición anterior.

¿Te ha parecido útil el ejemplo de código?

Cómo llegar a fin de mes con menos estrés gracias a Excel

Antes del día 15 puedes tener todos los objetivos mensuales completados. Y los que no, dejarlos programados para que se cumplan sin requerir de tu tiempo.

He preparado 7 de mis mejores trucos explicándote cómo lo hago. Deja tu correo abajo y te enviaré el primero de ellos.

Picture of Sergio

Sergio

Experto formador en Excel y Power BI con más de dos décadas de experiencia. Capacito a profesionales para optimizar su trabajo y ser más eficientes. Con un enfoque práctico y cercano, mi objetivo es ayudarte a dominar estas herramientas esenciales. Descubre mis formaciones.MVP de Microsoft 5 años consecutivos.

Cómo llegar a fin de mes con menos estrés gracias a Excel

Antes del día 15 puedes tener todos los objetivos mensuales completados. Y los que no, dejarlos programados para que se cumplan sin requerir de tu tiempo.

He preparado 7 de mis mejores trucos explicándote cómo lo hago. Deja tu correo abajo y te enviaré el primero de ellos.

Buscar

Últimos posts

¿De qué hablo aquí?

Cómo llegar a fin de mes con menos estrés gracias a Excel

Antes del día 15 puedes tener todos los objetivos mensuales completados. Y los que no, dejarlos programados para que se cumplan sin requerir de tu tiempo.

He preparado 7 de mis mejores trucos explicándote cómo lo hago. Deja tu correo abajo y te enviaré el primero de ellos.