none
Ordenar Ascendente RRS feed

  • 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
    quinta-feira, 3 de fevereiro de 2011 21:56

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
    sexta-feira, 4 de fevereiro de 2011 16:34
  • Boa noite!!

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

     

    Att..


    zinho
    sexta-feira, 4 de fevereiro de 2011 20:55
  • 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
    sexta-feira, 4 de fevereiro de 2011 21:09
  • Valeu Muito obrigado..Funcionou!!!
    zinho
    sexta-feira, 4 de fevereiro de 2011 22:42
  • Otimo.

    Se ajudou, marque como resposta.

    Att,


    Caio Vitullo
    • Marcado como Resposta zinhovba sábado, 5 de fevereiro de 2011 19:17
    sábado, 5 de fevereiro de 2011 11:38