automatico, se for por range tem jeito, assim organizaria os dados procurados no banco de dados...
agora se você trabalha "direto no banco de dados" e quer ordenar em cima mesmo, só por VBA...
=/

vai depender da estrutura da sua planilha...

Você pode criar um botão de ordenação usando uma macro, assim sempre que fosse incluída alguma informação no Banco de dados basta clicar no botão que a Macro ordena os dados para você.
Se precisar de ajuda para construir a macro anexe a planilha em que deseja fazer a ordenação.

Um abraço,

maiqueinacio

Bom dia!!

Veja dois exemplos não automáticos

Sub Classificar()
    [A2:D10].Sort Key1:=[A1], Order1:=xlAscending
    
End Sub



Sub Ordem()
 ActiveWorkbook.Worksheets("Avar_Geral").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("Avar_Geral").Sort.SortFields.Add Key:=Range("A1"), _
  SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  xlSortTextAsNumbers
 With ActiveWorkbook.Worksheets("Avar_Geral").Sort
  .SetRange Range("A1:I20000")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
 End With

Ola amigos , aproveitando o ganho sobre ordenar automatico.... tenho uma planilha que tambem precisaria dar uma ordenada meio ke automatica.. principalmente na 1º aba chamada de reparo, pois vive entrando modelos novos e tenho ke encaixar.

Ken puder ajudar ... estou postando a planilha

Sem mais,

No aguardo pela resposta

Boa tarde!!

Exemplo de Classificação Automaca.

É só adaptar

Private Sub Worksheet_Change(ByVal Target As Range)
    [A2:D10].Sort Key1:=[A1], Order1:=xlAscending
    
End Sub

Sorry , depois de adaptar o codigo as necessidades da planilha nessecita criação de botão? ... pa naun manjo muito naun

Att,

Boa tarde!!
Se o botão for na planilha..então
Vá na guia Desenvolvedor--> Inserir controle --> Escolha botão.

Atribua a macro

Sub Botão1_Clique()
 [A2:D10].Sort Key1:=[A1], Order1:=xlAscending
End Sub

Boa tarde!!
Se o botão for na planilha..então
Vá na guia Desenvolvedor--> Inserir controle --> Escolha botão.

Atribua a macro

Sub Botão1_Clique()
 [A2:D10].Sort Key1:=[A1], Order1:=xlAscending
End Sub

.. itaun ne Alexandrevba... tem como vc demostrar na planilha ke postei ai em cima.. pois nun consegui... naun , principalmente na 1ºABA, bele,

Grato desde jah

Boa tarde!!

Me diga qual ordenação precisa fazer.
Na 1º guia Reparo Eros?
Por Códigos, Modelo, Assistência etc?

Tem que me mandar as informações que quer ordenar, no mínimos detalhes.

Boa tarde!!

Me diga qual ordenação precisa fazer.
Na 1º guia Reparo Eros?
Por Códigos, Modelo, Assistência etc?

Tem que me mandar as informações que quer ordenar, no mínimos detalhes.

Seria ordenação pelos modelos.... mais ke acompanhace os demais pra não sair da ordem, pois kando ordeno pela guia dados a-z naun funciona muito..pois quando entra outro modelo fica ruin pra incluir, se puder me ajudar

Boa tarde!!!

baixe o arquivo e veja se é isso que você quer, dê retorno!

Leia as regras, postar arquivo COMPACTADO!

Bom Dia!

Alexandre consegui usar sua macro para ordenar minha planilha, no entanto, a planilha a ser ordenada (planilha 2), possui muitas fórmulas ou melhor muitas células com formulas condicionais, que trazem dados de outra planilha (planilha 1), de forma que as células sem dados, porém , que possuem fórmulas, são organizadas antes das células que possuem dados.

Esquema:

Plan 1 : Todos os dados
Plan 2: Apenas dados apurados pelas fórmulas (Aqui que apliquei a macro)

Uma solução que encontrei foi alterar no código a palavra Ascending por descending. Essa opção funcionou, pois é uma classificação por série e o que me importa é que elas fiquem agrupadas, independente se quem vem no início da lista é o 1º ano ou o 3º ano.

Mas, e se caso fosse por nome e eu necessitasse que começasse pela letra A?
Caso haja uma solução... agradeço!