Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Classificação por o...
 
Notifications
Clear all

Classificação por ordem alfabética com intervalo dinâmico

 
2024 - VBA & Macros
Post Recente por Mardr 7 anos atrás
7 Posts
5 Usuários
0 Reactions
1,746 Visualizações
RSS
 Mardr
(@mardr)
Posts: 19
Active Member
Topic starter
 

Olá Estimados do Planilhando.com.br
Gravei uma macro na qual me retorne a classificação dos nomes (ColunaB) por ordem alfabética...
Porém quero acrescentar nesse código um range dinâmico que seja ajustável automaticamente ao ser acrescentado um novo nome a lista...
Se alguém, poder me ajudar desde então agradeço

No mais Feliz Natal a todos participantes do Planilhando.com.br.
Obs: Planilha em anexo...
Grato,
Marcelo Adriano

 
Postado : 24/12/2017 9:52 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub ClassificarOrdemAlfabeticav2()
 Dim LR As Long
' ClassificarOrdemAlfabetica Macro
    LR = Cells(Rows.Count, 1).End(3).Row
    With ActiveSheet.Sort
     .SortFields.Clear
     .SortFields.Add Key:=Range("B10:B" & LR), SortOn:=xlSortOnValues, Order:=xlAscending
     .SetRange Range("A10:AG" & LR)
     .Header = xlNo
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
    End With
    Range("A9").Select
End Sub

Osvaldo

 
Postado : 24/12/2017 10:59 am
 Mardr
(@mardr)
Posts: 19
Active Member
Topic starter
 

Olá Osvaldo
Muito bom...era isso mesmo que procurava...
Só uma dúvida: quando você descreve = "LR = Cells(Rows.Count, 1).End(3).Row"
como posso compreender o numero 3 do End(3).Row?

 
Postado : 24/12/2017 1:39 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Favor completar a última mensagem. Está incompreensível.

 
Postado : 24/12/2017 1:53 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Isso é para identificar a ultima linha com dados.

É o mesmo que .............End(Xlup).row

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 24/12/2017 3:20 pm
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa tarde.
Tópico postado aqui também

https://www.gurudoexcel.com/forum/viewtopic.php?f=12&t=6005

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 24/12/2017 3:29 pm
 Mardr
(@mardr)
Posts: 19
Active Member
Topic starter
 

Obrigado MPrudencio
Não sabia dessa alternativa..

Grato,
Marcelo Adriano

 
Postado : 24/12/2017 3:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico