Bom dia!!!

O ideal seria olhar seu arquivo, mas é clicar no campo (Área da Tabela Dinâmica), clicar com o botão direito e classificar.

Att

Jore,
Bom dia !

Faça o que nosso amigo alexandre disse :

O ideal seria olhar seu arquivo, mas é clicar no campo (Área da Tabela Dinâmica), clicar com o botão direito e classificar.

Dessa forma fica melhor para podermos te ajudar .

Abrs.

Olá amigos segue abaixo a minha planilha. Se puderem me ajudar ficarei agradecido.

Favor COMPACTAR seu arquivo, e depositar no fórum!!

Se não tem relação com Tabela Dinâmica seu tópico será movido, OK??

Att

Boa noite!!

1º Seu arquivo não foi compactado, é regra do fórum!!! viewtopic.php?f=7&t=203

2º Você postou em Tabela Dinâmica, o que tem a ver com o que você precisa?

3º Do jeito que seus dados estão (estrutura desfigurada), talvez seria só "através" de macros
Nada em sua postagem faz sentido para mim
Att

Boa noite!!

1º Seu arquivo não foi compactado, é regra do fórum!!! viewtopic.php?f=7&t=203

2º Você postou em Tabela Dinâmica, o que tem a ver com o que você precisa?

3º Do jeito que seus dados estão (estrutura desfigurada), talvez seria só "através" de macros
Nada em sua postagem faz sentido para mim
Att

Obrigado por sua crítica! Por favor o sr. pode me orientar em minha dúvida?

E desculpem se postei no lugar errado...

Segue abaixo a planilha compactada.

Boa noite!

Fiz aqui um modelo com 02 macros!
Vê se te ajuda! Só tive q mexer um pouquinho no layout e as bandeiras vc centraliza aí!
O problema é q eu uso o excel 2007 não sei se vai abrir aih.

Olá fabianodias,
Obrigado por sua ajuda!
Vou abrir amanhã no meu trabalho e salvar no formato 2003.
Mesmo assim já me ajudou muito com certeza!
Obrigado!

Olá fabianodias,
Levei a planilha que você fez, para o meu trabalho abri e despois salvei no formato 2003...
Tentei abrir aqui em casa mais esta dando o seguinte erro:

Ao clicar em Depurar mostra o erro nesta linha: ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
Você pode me dar uma ajudinha?

Será que é porque eu uso o Office 2003?

Obrigado!

Boa tarde!!

O nome da guia está correto?

Tem células mescladas?

Talvez possa dar certo, mas não tenho certeza

 ActiveWorkbook.Sheets("Plan1")

Boa noite!

Tentou a dica do alexandrevba?
Salvei no formato 2003, testei no excel 2003 e funcionou!
vê aí se funciona!

O metodo de ordenar utilizado no 2007 e acima não são aceitos no modelo 2003 , então mesmo convertidos, se o equipamento utilizar somente a vesão 2003 não irá rodar:
2007 e acima:
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("D8:D66"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.......
2003 e anteriores:
Range("C8:E66").Select
Selection.Sort Key1:=Range("D8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Boa tarde!!

O nome da guia está correto?

Tem células mescladas?

Talvez possa dar certo, mas não tenho certeza

 ActiveWorkbook.Sheets("Plan1")

Olá amigo alexandrevba e amigos do forum,

Bom, respondendo a sua pergunta.
Essa planilha que o amigo fabianodias fez para mim, esta funcionando perfeitamente se eu abri-lá com o Office 2007. Porém se eu abrir com o ffice 2003 da este erro que eu mecionei acima.

PS.: Abri no meu trabalho com o Office 2007 e salvei para ser compativel também com o Office 2003.

Obrigado!

O metodo de ordenar utilizado no 2007 e acima não são aceitos no modelo 2003 , então mesmo convertidos, se o equipamento utilizar somente a vesão 2003 não irá rodar:
2007 e acima:
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("D8:D66"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.......
2003 e anteriores:
Range("C8:E66").Select
Selection.Sort Key1:=Range("D8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Olá Reinaldo,
Obrigado por me ajudar!
Bom, peguei esta parte que você postou 2003 e substitui pelo que já havia 2007. Mesmo assim não deu certo. Será que você pode dar uma olhada na planilha para me ajudar?!

Obrgiado!

Boa noite!

Tentou a dica do alexandrevba?
Salvei no formato 2003, testei no excel 2003 e funcionou!
vê aí se funciona!

Oi fabianodias,
Veja se eu fiz certo pois aqui não deu certo.
Fiz assim:
Peguei a linha que o amigo alexandrevba postou

ActiveWorkbook.Sheets("Plan1")

E coloquei no lugar da linha que estava dando erro que era a:

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

... Deixei o resto como estava! E mesmo assim não deu certo.

Onde estou errando?

Obrigado!