Organizar em ordem crescente

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

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

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

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

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

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

Bom dia

Vou fazer as alterações e muito agradecido pela ajuda.

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?

Boa tarde!!

Correto!
Att