Excel Ordem alfabética depois que digito volta no começo da planilha

[gilson santos07]

Bom dia Senhores,

Nesses dados abaixo só organiza na coluna A e preciso que organize de A a I, como altero.

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "$A$2:$A$300"
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

Grato Gilson

[Patropi]

Boa noite @gilson santos07

 

Substitua o teu código pelo código abaixo:

 

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:$I" & LR).Sort Key1:=Range("$A$2")
End Sub

A primeira parte do teu código não é necessária.

 

Dê retorno.

 

Se foi útil, clique em Curtir.

 

[]s