Ordenar Ascendente

Question

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

Answer 1

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

Answer 2

Boa noite!!

Caio, sou leigo e VBA, como faço para rodar esse código?

 

Att..

---

zinho

Answer 3

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

Answer 4

Valeu Muito obrigado..Funcionou!!!

---

zinho

Answer 5

Otimo.

Se ajudou, marque como resposta.

Att,

---

Caio Vitullo