A macro a seguir classifica em ordem crescente todos os números da coluna da célula ativa. Basta clicar duas vezes em qualquer célula de uma coluna que você deseja classificar. Obs: Você precisa colocar o código na Planilha 1 e não em um módulo para funcionar:
Private Sub Worksheet_BeforeDoubleClick ( ByVal Target as Range, Cancel As Boolean )
'Declare suas variáveis
Dim LastRow As Long
'Encontre a última linha
LastRow = Cells (Rows.Count, 1 ). End (xlUp) .Row
'Classifica em ordem crescente na coluna clicada duas vezes
Linhas ( "6:" & LastRow) .Sort _
Chave1: = Células ( 6 , ActiveCell.Column), _
Ordem1: = xlAscendente
Finalizar sub
Muito bem! Como ainda está lendo isso, você parece realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que tenha achado essas informações úteis e as use para se tornar um mestre no VBA, além de outras linguagens como Pyton.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário