Ola bom dia!
Galera td bem com vcs, estou precisando de um help!
Tenho um codigo q ja faz a Ordem Alfabética Automático, mas infelizmente ele só faz em uma coluna.
Eu gostaria q esse código fizesse em algumas colunas desejadas, como colunas A, C e E...
Veja o código q eu tenho:
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "$A$2:$A$30000"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("$A$2:$A" & LR).Sort Key1:=Range("$A$2")
End Sub
Nesse caso este código só esta fazendo na coluna A
Postado : 29/07/2017 5:09 am