Notifications
Clear all

Botão Classificar de A a Z !!!

11 Posts
4 Usuários
0 Reactions
1,771 Visualizações
(@escuderia)
Posts: 179
Reputable Member
Topic starter
 

Bom dia Galera,

Novamente preciso da ajuda de vcs.

Preciso que na Planilha Cadastro seja criado um Botão para classificar de A a Z .....preciso que os nomes dos colaboradores seja organizado em Ordem alfabética de A a Z ..

Conto com vcs!!

Escuderia

 
Postado : 19/02/2014 7:35 am
(@gtsalikis)
Posts: 2373
Noble Member
 

E porque vc não inclui um filtro?

Caso realmente queira o botão, vc pode fazer isso usando o gravador de macros.

 
Postado : 19/02/2014 8:20 am
(@escuderia)
Posts: 179
Reputable Member
Topic starter
 

Então gtsalikis preciso de uma facilidade para meus supervisores, tendo em vista que nem todos tem muita habilidade com excel...... deixo para vc uma sugestão onde pode facilitar essa classificação !!!!!!!!

Abraços

 
Postado : 19/02/2014 8:22 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Nesse caso, vc pode fazer com o gravador de macros:

Como gravar a macro:
http://office.microsoft.com/pt-br/word- ... 9.aspx#BM2

Como inserir a macro no botão:
http://office.microsoft.com/pt-br/excel ... 42137.aspx

 
Postado : 19/02/2014 8:39 am
(@escuderia)
Posts: 179
Reputable Member
Topic starter
 

Ok.... vou tentar aqui !!!!

Vlw

 
Postado : 19/02/2014 8:42 am
(@weslley)
Posts: 90
Trusted Member
 

Meu caro, verifica se este exemplo atente sua expectativa.

 
Postado : 19/02/2014 8:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Talvez isso o ajude...

Sub AleVBA_10675()
 ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Add Key:=Range("A3"), _
  SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  xlSortTextAsNumbers
 With ActiveWorkbook.Worksheets("Cadastro").Sort
  .SetRange Range("A3:K20000")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
 End With


End Sub

 
Postado : 19/02/2014 9:42 am
(@escuderia)
Posts: 179
Reputable Member
Topic starter
 

Alguem pode adaptar ? pois não consegui

 
Postado : 20/02/2014 9:51 am
(@weslley)
Posts: 90
Trusted Member
 

Meu caro, testa este exemplo.

 
Postado : 20/02/2014 9:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

escuderia,

Acho que as soluções anteriores não funcionam pois o que temos na coluna B são fórmulas. Fiz via hiperlink e acho que funciona.

Coloque mais dados e teste.

Me avise.

Abs,

 
Postado : 20/02/2014 8:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 21/02/2014 5:24 pm