2019 12:46

Tecnologia

comentada em 23/07/2019 12:46

Para poder acessar o Menu desenvolvedor

O primeiro passo é ir em Arquivo=> Opções ==>Personalizar a faixa de opções e clicar a direita para ativar o menu desenvolvedor
Após Ativar acionando o menu desenvolvedor temos como primeira opções Visual basic e Macros
Dessa forma poderemos estudar e desenvolver subs VBA e macros que são formas de programar o Excel.

No menu desenvolvedor a direita selecionamos gravar macros:

nomeamos a macro de Ordena1 e clica em ok

então fazemos com o mouse os movimentos para ordenar a coluna código

Seleciona C2 botão direito ==>Classificar == > Classificar do menor para o maior

Seleciona Menu desenvolvedor e parar a gravação

Agora no Menu desevolvedor selecionar Modo de Desingn

A esquerda clica na setinha de Inserir e escolha botão a primeira opção

depois puxando com o mouse desenha o botão na tela.

ao inserir um botão Excell já pergunta a macro que vc quer associar a esse botão escolhemos Ordena1

Clicamos no botão com o direito e excolhemos Edita texto e alterar o nome do botão para alterar

Menu desevolvedor desativar o Modo de Desingn

Agora é so clicar no botão que ele ordena a coluna do Código !

Comentários

Último comentário 1º comentário do autor Só moderadores Só quem eu sigo Ordenar por gostei

Charlito

em 23/07/2019 12:27

Deu isso:

Sub Ordena1()
'
' Ordena1 Macro
'
    Range("C1:D11").Select
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("C3:C12"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("C:D")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub?