Excel planilhas exemplo de contas a pagar

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)