Home Excel - Dicas Microsoft Excel VBA Excel VBA - Orcamento caixa Excel planilhas exemplo de contas a pagar

Excel planilhas exemplo de contas a pagar

E-mail Imprimir PDF

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)

Última atualização em Sáb, 03 de Novembro de 2012 09:20  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje931
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30695
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44424
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467253
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA