Veja como colocar suas tabelas em ordem alfabética
Classificar dados em ordem alfabética em suas listas não é problema. Mas como fazer quando quiser colocar as planilhas em ordem alfabética de acordo com seus nomes?
A ilustração a seguir mostra um registro de folha com uma série de planilhas. Eles devem ser classificados em ordem alfabética para que sejam mais fáceis de encontrar.
3
Com algumas folhas, você pode fazer o trabalho manualmente de maneira confiável. Com muitas folhas, isso se torna rapidamente difícil, demorado e confuso. A macro a seguir o ajudará mais:
Sub SortBlaetter ()
Dim Zaehler1 como inteiro, Zaehler2 como inteiro
Dim Name As String
Name = ActiveSheet.Name
Para Zaehler1 = 1 para planilhas.Conta
Para Zaehler2 = Zaehler1 para planilhas.Contagem
If UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Then
Planilhas (Zaehler2) .Mover antes: = Planilhas (Zaehler1)
Fim se
Próximo contador2, contador1
Planilhas (nome) .Ativar
End Sub
A macro classifica as planilhas na pasta de trabalho ativa em ordem alfabética crescente. A figura a seguir mostra a aparência da pasta de trabalho de amostra depois de iniciar a macro:
Dica: Se você gostaria de saber como inserir e iniciar macros no Excel, você encontrará uma breve descrição aqui: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
