TOP

Ordenar hojas en un libro.

Descripción

Si el número de pestañas de su libro se acerca a varias docenas, tarde o temprano surgirá el deseo de implementar clasificar hojas en un libro , ubicándolos en orden alfabético. Las herramientas estándar Excel no le permiten hacer esto, así que escribamos una macro simple que lo haga.


VBA código para la macro

abre el menú Servicio - Macro - Editor Visual Basic (Tools - Macro - Visual Basic Editor) , insertar módulo VBA (menú Insert - Module ) y copie este texto allí:

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        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
    
    MsgBox " Las pestañas se ordenaron de la A a la Z. "
End Sub

Esta macro ahora se puede ejecutar desde el menú. Servicio - Macro - Macros (Tools - Macro - Macros) y ordenará rápidamente todas las hojas del libro actual.

Artículos sobre el tema: