Notifications
Clear all

Ordenar Automático  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
01/03/2010 4:53 pm  

Olá pessoal,

Tenho uma dúvida sobre uma função que já vi em várias planilhas e nunca consegui descobrir como fazer.
Para ordenar uma tabela por ordem crescente ou decrescente eu vou em Dados -> Ordenar.
Existe algum meio de sempre que os valores forem alterados a tabela se auto-ordenar?

Obrigado
Guilherme

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


Citar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
02/03/2010 9:46 am  

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...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
maiqueinacio
(@maiqueinacio)
New Member
Entrou: 8 anos atrás
Posts: 3
05/03/2012 6:23 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
05/03/2012 6:46 am  

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
05/03/2012 9:05 am  

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 :roll:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
05/03/2012 9:47 am  

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/03/2012 9:03 am  

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

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/03/2012 9:13 am  

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/03/2012 9:28 am  

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 :oops: , principalmente na 1ºABA, bele,

Grato desde jah :)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/03/2012 9:36 am  

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. :(

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/03/2012 9:48 am  

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 :mrgreen:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/03/2012 10:04 am  

Boa tarde!!!

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

Leia as regras, postar arquivo COMPACTADO!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Sangiorgio
(@sangiorgio)
New Member
Entrou: 3 anos atrás
Posts: 2
13/09/2017 5:07 am  

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!


ResponderCitar (Quote)
Compartilhar: