Página 1 de 1

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

Enviado: 24 Dez 2017 às 11:55
por MarceloAdriano
Olá Estimados do Grupo Guru do Excel
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 Guru do Excel.
Obs: Planilha em anexo...
Grato,
Marcelo Adriano

Re: Classificação por ordem alfabética com intervalo dinâmic

Enviado: 24 Dez 2017 às 12:21
por gfranco
Boa tarde.
Veja se ajuda.
Código: Selecionar todos
Sub ClassificarOrdemAlfabetica()

Dim ulinha As Long
Dim w As Worksheet
Set w = Plan1
Dim myrange As Range

ulinha = w.Cells(w.Cells.Rows.Count, 1).end(3).row

Set myrange = w.Range("a9:ag" & ulinha)

myrange.Sort key1:=w.Range("a9"), order1:=xlAscending, header:=xlYes

End Sub

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

Enviado: 24 Dez 2017 às 12:32
por MarceloAdriano
Olá gFranco
Era exatamente isso que gostaria de acrescentar...

Obrigado...

Grato,
Marcelo Adriano