SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse macro do Aplicativo Microsoft Excel VBA, ordena coluna da folha de planilha, com o auxílio de uma lista suspensa, chekbox(Ferramentas Formulários)
que ordena (alfabeto) por Colunas desejadas, neste exemplo de planilha de contas  a pagar.

Option Explicit

Sub ordenar()
    Dim ordem As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
   
   
    '//==========='Verifica o tipo de ordenação
    ordem = Range("ordem").Value '// ========' range nomeado como ordem
    'Seleciona a região
    Range("B10:K10").Select
    '//======'isso pode ser assim [B10:K10].End(xlDown).select  'veja sobre nosso trabalho RANGE E CELULAS - excelente tutorial
    Range(Selection, Selection.End(xlDown)).Select
    Select Case ordem
        Case 1:
            Selection.Sort Key1:=Range("C10"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Case 2:
            Selection.Sort Key1:=Range("D10"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Case 3:
            Selection.Sort Key1:=Range("H10"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Case 4:
            Selection.Sort Key1:=Range("I10"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Case 5:
            Selection.Sort Key1:=Range("K10"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Case 6:
            Selection.Sort Key1:=Range("B10"), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End Select
    '//==========='FinalizaçÃo visual
    Range("a1").Select
    Application.ScreenUpdating = False
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





 Baixe o exemplo de planiha contendo os macros acima:   <<< Registre-se em nosso Site >>>
Excel planilha exemplo de contas a pagar (28.81 KB)