Fóruns
Microsoft Excel - 2...
Tabela Dinâmica
Como Atualizar por ...
 
Notifications
Clear all

Como Atualizar por Ordem Alfabética

 
Página 2 / 2
Tabela Dinâmica
19 Posts
2 Usuários
0 Reactions
5,841 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá amigos,
Estou criando uma planilha no Excel 2003, que tem Quatro campos distinntos são eles:
Nº , Bandeira, Paìs e Quantidade como na imagem abaixo:

Gostaria de criar um botão de atualização pelo nome do pais, deixando em ordem alfabética com os campos Quantidade e Bandeira acompanhe.

Vou dar um exemplo:
Vamos supor que eu tenha a planilha com os seguintes dados:

Nº Bandeira Paìs Quantidade
1 O Japão 35
2 [<o>] Brasil 20

Gostaria que ao clicar no botão de atualização em ordem alfabética fique assim:

Nº Bandeira Paìs Quantidade

1 [<o>] Brasil 20
2 O Japão 35

Veja que o campo numero (Nº) continua no mesmo lugar. Apenas as Bandeiras dos Países (O simbolizando Japão e [<0>] simbolizando a do Brasil), o Nome do País e a Quantidade mudaram de lugar.

Agora esta na ordem alfabética com sua respectiva bandeira e sua quantidade acompanhando.

Compliquei?!

Obrigado à todos!

 
Postado : 30/07/2012 7:55 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo,
Faltou dizer que agora mostra a linha abaixo como erro.

With ActiveWorkbook.Worksheets("Plan1").Sort

Segue o link da planilha feita pelo amigo fabianodias,

http://www.planilhando.com.br/forum/download/file.php?id=5015

 
Postado : 09/08/2012 12:00 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Exclusivamente no 2003, tb a clausula with.., não é aceita na "ordenação", deve ser retirada.
Qto a sua plan, está na minha lista de "to do" mas não pude retornar a fundo na mesma (ainda)

 
Postado : 09/08/2012 12:05 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Exclusivamente no 2003, tb a clausula with.., não é aceita na "ordenação", deve ser retirada.
Qto a sua plan, está na minha lista de "to do" mas não pude retornar a fundo na mesma (ainda)

Olá Reinaldo, Vamos ver se eu entendi:

É para eu retirar toda esta parte:

Range("C8:E66").Select
    Range("E8").Activate
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("D8:D66"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("C8:E66")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B8").Select
End Sub

E deixar somente esta que você postou?

Range("C8:E66").Select
Selection.Sort Key1:=Range("D8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Obrigado!

 
Postado : 09/08/2012 12:34 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Exatamente, era para subustituir tudo, para "rodar" no 2003

Segue seu arquivo modificado, veja se atende

 
Postado : 11/08/2012 9:01 am
Página 2 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico