Ajuda com ordem alfabética automatica excel

P@tropi disse:

Boa tarde Gabriel

Seja bem vindo ao fórum!

Altere o código para pegar até a coluna C na primeira parte e lá embaixo também.

[code=rich]Private Sub Worksheet_Activate()

ActiveSheet.ScrollArea = "$A$2:$C$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:$C" & LR).Sort Key1:=Range("$A$2")

End Sub[/code]Dê retorno.

At.te

P@tropi disse:

Gabriel

Alguma coisa vc fez errado.
Baixe a planilha e teste

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo Whoa



    Application.EnableEvents = False



    '~~> For xl2007+ use .CountLarge

    If Target.Cells.CountLarge > 1 Then Exit Sub

    '~~> For xl2003 use .Count

    'If Target.Cells.Count > 1 Then Exit Sub



    Dim LR As Long



    If Application.WorksheetFunction.CountA(Cells) <> 0 Then

        LR = Cells.Find(What:="*", _

                      After:=Range("A1&quot, _

                      Lookat:=xlPart, _

                      LookIn:=xlFormulas, _

                      SearchOrder:=xlByRows, _

                      SearchDirection:=xlPrevious, _

                      MatchCase:=False).Row

    Else

        LR = 1

    End If



    Range("$A$2:$I" & LR).Sort Key1:=Range("$A$2&quot



Letscontinue:

    Application.EnableEvents = True

    Exit Sub

Whoa:

    MsgBox Err.Description

    Resume Letscontinue

End Sub

P@tropi disse:

Boa tarde Gabriel

Não precisa enviar a planilha.
Toda essa perda de tempo ocorreu, por falta de você informar que o dado não era digitado na célula e sim lançado por macro, pois a macro que postei, funciona quando é pressionada a tecla ENTER.

At.te