Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ordenando dados em ...
 
Notifications
Clear all

Ordenando dados em ordem alfabética á partir da 2° coluna

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
1,962 Visualizações
RSS
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Bom dia senhores.

Procurei muito em outros fóruns e sites e não encontrei nada que me ajudasse.
Tenho o seguinte caso:
Um planilha onde a Coluna A contém o código dos itens e a coluna BC (estão mescladas) contém a descrição dos ítens.

Preciso de uma macro que organize esse itens em ordem alfabética sem desorganizar seus respectivos códigos.
Lembrando também, que o campo onde está a descrição dos itens, são duas células mescladas (B e C)
Estou anexando um exemplo fictício para os amigos entenderem melhor o caso.

Um forte abraço e desde já agradeço a força!

exemplo.xlsx

"O impossível, é só uma questão de tempo"

 
Postado : 04/06/2013 7:37 am
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Perdão amigos, esqueci de compactar o arquivo!
Segue ele .zip

exemplo.zip

"O impossível, é só uma questão de tempo"

 
Postado : 04/06/2013 7:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia wolneypk,

Faz a torina para "desmesclar" e depois mescla novamente. Tenta assim (fiz gravando a macro mesmo):

Option Explicit

Sub Macro1()

    Range("A3:C16").UnMerge
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("B3")
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("A3:C16")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B3:C16").Merge True
End Sub

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/06/2013 8:22 am
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Ótimo Bernardo!

Cara, só me tire uma dúvida: Esse processo é somente possível desmesclando as células?
Você saberia me dizer pq o Excel não consegue classificar as células mescladas?

Muito Obrigado meu amigo e valeu por mais essa dica ;)

"O impossível, é só uma questão de tempo"

 
Postado : 04/06/2013 10:39 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde wolneypk,

O excel realmente não aceita Classificar intervalos com células mescladas:
http://support.microsoft.com/kb/178966/pt-br

O ideal mesmo é nunca mesclar intervalos onde contém dados. Mescle somente os título e layout...

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/06/2013 9:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico