Classificando folhas em um livro

Descrição

Se o número de guias em seu livro se aproximar de várias dezenas, mais cedo ou mais tarde haverá o desejo de implementar classificando folhas em um livro , colocando-os em ordem alfabética. As ferramentas Excel padrão não permitem que você faça isso, então vamos escrever uma macro simples que fará isso.

Código VBA para a macro

Abra o cardápio Serviço - Macro - Editor Visual Basic (Tools - Macro - Visual Basic Editor) , inserir módulo VBA (menu Insert - Module ) e copie este texto lá:

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 " As guias foram classificadas de A a Z "
End Sub

Esta macro agora pode ser executada no menu Serviço - Macro - Macros (Tools - Macro - Macros) e classificará rapidamente todas as planilhas da pasta de trabalho atual.

Artigos sobre o tema:

• Combinar pastas de trabalho (CombineWorkbooks)
• Transição rápida entre páginas do livro