Uma macro de ordena todas as folhas (Workksheets) de um livro (Workbook) do Microsoft Excel.
A macro deve ser colocada num modulo do livro, através do editor de visual basic (ALT+F11). Pode executá-la através da lista de macros (ALT+F8).
 |
 |
 |
Sub jjOrdenarFolhas()
Dim t As Integer, i As Integer, c As Integer
Application.ScreenUpdating = False
t = Sheets.Count
If t = 1 Then Exit Sub
For i = 1 To t – 1
For c = i + 1 To t
If Sheets(c).Name < Sheets(i).Name Then _
Sheets(c).Move Before:=Sheets(i)
Next c
Next i
Application.ScreenUpdating = True
End Sub
Dim t As Integer, i As Integer, c As Integer
Application.ScreenUpdating = False
t = Sheets.Count
If t = 1 Then Exit Sub
For i = 1 To t – 1
For c = i + 1 To t
If Sheets(c).Name < Sheets(i).Name Then _
Sheets(c).Move Before:=Sheets(i)
Next c
Next i
Application.ScreenUpdating = True
End Sub
Fonte: http://jjoao2k.no.sapo.pt
