Ir ao conteúdo

Excel vba ORGANIZAR ORDEM CRESCENTE


Netrox92

Posts recomendados

Postado

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

Postado

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

Postado

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!

  • Membro VIP
Postado

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

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!