Usuário com melhor resposta
Ordenar Ascendente

Pergunta
-
Boa noite!!!
Gostaria de um código para me ajudar a ordenar de forma ascendente o cabeçalho de uma planilha.
Tentei assim mas deu errado:
Sub Endereço()
Sheets("Jun.END").Select
Selection.Sort Key1:=Range("A1"), Order1:xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
O que eu fiz de errado??Att..
zinho
Respostas
Todas as Respostas
-
Tente isso:
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Plan1").Sort .SetRange Range("A1:A7") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
Caio Vitullo -
-
Zinho,
esse codigo foi gerado pelo proprio Excel.
basta voce gravar uma macro executando a ordenação que precisa.
o excel criará o codigo para voce, depois é so inserí-lo no seu programa.
Caso queia utilizar o cosigo que eu lhe passei.
faça assim:
<pre>sub Endereco() ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Plan1").Sort .SetRange Range("A1:A7") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With end sub
Uma dica: evite utilizar caracteres como "ç" no seu codigo
Caio Vitullo -
-