Índice
A rotina a seguir classificará as planilhas em uma pasta de trabalho em ordem alfabética. O sinalizador “Sort_Mode_Descending” pode ser alternado entre decrescente e crescente, conforme necessário. A rotina é maiúsculas e minúsculas.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets As IntegerDim Outer_Loop As IntegerDim Inner_Loop As IntegerNo_of_Sheets = Sheets.Count'Alterar sinalizador conforme apropriadoSort_Mode_Descending = FalseFor Outer_Loop = 1 To No_of_SheetsPara Inner_Loop = 1 para Outer_LoopSe Sort_Mode_Descending = True ThenIf UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) ThenFolhas (Outer_Loop) .Mover antes: = Folhas (Inner_Loop)Fim seFim seSe Sort_Mode_Descending = False ThenIf UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) ThenFolhas (Outer_Loop) .Mover antes: = Folhas (Inner_Loop)Fim seFim sePróximo Inner_LoopPróximo Outer_Loop |
Para baixar o arquivo .XLSM deste artigo, clique aqui.
