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.
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.
