Valeu Patropi. Deu certo e ainda nos ajudou a verificar alguns erros de digitação. Só uma pergunta. Peguei um código do Mauro Coutinho e estou com uma dúvida nele. O código classifica os dados automaticamente assim que eu digito a primeira informação, porém, o foco da célula não acompanha a classificação. Isso faz com que tenha de localizar aonde está o nome classificado para continuar a digitação. Tem alguma função para mudar o foco junto com o novo dado?
Abaixo o código que copiei da sua solução:
_______________________________________________
Public Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:O500")) Is Nothing Then
Call Classificacao
End If
End Sub
Public Sub Classificacao()
Sheets("Plan1").Columns("A:O").Sort _
key1:=Sheets("Plan1").Range("A2"), _
order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Postado : 01/07/2015 2:34 pm