Excel vba ORGANIZAR ORDEM CRESCENTE

[Netrox92]

Bom dia!

Gostaria da ajuda de vocês

Preciso organizar uma tabela no excel em ordem crescente, porém precisa ser levado em consideração 2 colunas.

É necessario organizar primeiro o DiametroØ, organizando-os de forma crescente.

E depois preciso organizar pela Malha em ordem crescente tambem.porém sem desorganizar os diametros

Eu utilizo o seguinte codigo para organizar, porém esse codigo só leva em consideração uma coluna, e eu preciso que considere as duas na hora de organizar.

Range("G6:J105").Select

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("G6:G105") _

, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Plan1").Sort

.SetRange Range("G6:J105")

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

OBS: eu ja tentei mudar o Range da linha:

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("G6:G105") _

Ficando assim:

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("G6:H105") _

porém nao deu certo!

Segue planilha

https://www.4shared.com/file/pk_7xf2H/Exemplo_organizar.html?

Obs: essa planilha eu fiz de exemplo para vocês! Ela nao possui o codigo e o codigo nao bate com as Range dela

Agradeço desde já a atenção de vocês!

Obrigado

[zinhovba]

Boa tarde!!

Troque essa linha a linha

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields .Add Key:=Range("G6:G105") _

Por

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields .Add Key:=Range("G6") _

Eu teria que entender melhor os dados.

Poste seu arquivo

Att

[Patropi]

Boa tarde Netrox92

Baixe a planilha e veja se ficou como você deseja:

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

Dê retorno.

Um abraço.

[Netrox92]

Obrigado aos dois pelas rapidas respostas!

porém só funcionou com a do patropi e eu ja adaptei para a minha planilha.

Mesmo assim muito obrigado ao zinhovba pela resposta

Abraços!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.