Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Organizar em ordem crescente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Organizar em ordem crescente   Dom Nov 18, 2012 2:11 pm

Bom dia

Depois de procurar em vários fóruns de Excel, não encontrei um código que se adequasse a minha necessidade. Se alguém souber... por favor.
O código em questão, é um organizador em ordem crescente de uma sequencia de números.
Ex.:
No intervalo A1:AD1000, temos sequencias numéricas fora de ordem. A ordenação deve ser por linhas, do menor para o maior.

Agradeço qualquer ajuda bounce
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Organizar em ordem crescente   Dom Nov 18, 2012 3:23 pm

Bom dia!!

Até onde eu saiba, a classificação e feita em colunas, o que pode ser feito é traspor para colunas organizar, depois voltar para linha.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Re: Organizar em ordem crescente   Dom Nov 18, 2012 7:58 pm

Boa tarde

A classificação feita no Excel, as vezes fica complicado e cansativo, por isso preciso de um código para aliviar a "trabalheira". Com relação a classificar por colunas e depois transpor, é isso mesmo. Mas imagina classificar e transpor centenas de colunas. O arquivo que vou montar é tipo assim:

A1__ 59,34,23,41,01,78,33,39,31,04...

e precisa ficar assim:

A1__01,04,23,31,33,34,39,41,59,78...

logo um código ajudaria muito na tarefa.

Grato se alguém puder ajuda
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Organizar em ordem crescente   Dom Nov 18, 2012 8:19 pm

Boa tarde!!

Tente assim...
Código:
Sub ClassifcarLinha_AleVBA()
   
    Range("A1:XFD1").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
 
End Sub
Caso contrário..........
Tem como você mandar o arquivo modelo.

Deposite o mesmo em um site gratuito e nos mande o link.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Re: Organizar em ordem crescente   Seg Nov 19, 2012 12:14 am

Boa noite

Meu caro alexandrevba, o código quase ficou 100%. A 1ª linha ficou classificada certinha, da 2ª pra frente, não. Ainda não tenho o arquivo completo com todas as linhas, mas pode fazer testes com arquivo exemplo;

http://www.sendspace.com/file/q14xut


Grato pela atenção
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Organizar em ordem crescente   Seg Nov 19, 2012 1:05 am

Boa noite!!

No seu exemplo, você referenciou somente a 1º linha
Citação :
A1__ 59,34,23,41,01,78,33,39,31,04...

e precisa ficar assim:

A1__01,04,23,31,33,34,39,41,59,78...

De qualquer forma é só adaptar.

Altere essa linha para o próximo intervalo
Código:
Range("A1:XFD1").Select
E essa para a próxima linha
Código:
Key1:=Range("A1")

exemplo
Código:
Range("A2:XFD2").Select
Código:
Key1:=Range("A2")
O restante é só repetir.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Re: Organizar em ordem crescente   Seg Nov 19, 2012 4:27 pm

Bom dia

Vou fazer as alterações e muito agradecido pela ajuda.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Xanel



Mensagens : 21
Data de inscrição : 22/10/2012

MensagemAssunto: Re: Organizar em ordem crescente   Seg Nov 19, 2012 7:19 pm

Boa tarde

Fiz as alterações, mas pelo que entendi (se é que entendi) para cada linha a classificar preciso ter uma instrução diferente.

Range("A1:XFD1").Select____para a 1ª linha
Range("A2:XFD2").Select____para a 2ª linha
Range("A3:XFD3").Select____para a 3ª linha...e assim por diante.

É isso, ou não entendi corretamente a explicação?

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Organizar em ordem crescente   Seg Nov 19, 2012 7:43 pm

Boa tarde!!

Correto!
Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Organizar em ordem crescente   Hoje à(s) 10:50 pm

Voltar ao Topo Ir em baixo
 
Organizar em ordem crescente
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Ideia] Rangers, a ordem dos arqueiros
» Rangers: A Ordem dos Arqueiros
» Ordem do menu de navegação
» Problema na ordem das mensagens em um tópico
» Organizar categoria como Forumeiros e você

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: