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,760 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: 858

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