Olá.
Estou usando a macro abaixo para ordenar automaticamente as informações no Excel e esta funcionando muito bem.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Worksheets(1).Range("a1:b500"), Target) Is Nothing) Then
DoSort
End If
End Sub
Private Sub DoSort()
Worksheets(1).Range("a1:b500").Sort Key1:=Worksheets(1).Range("a1")
End Sub
Gostaria de acrescentar a funcionalidade do cursor ser posicionado na linha/célula onde a informação foi colocada após a ordenação.
Por exemplo:
Na linha 25 inclui uma informação e, após a ordenação, essa informação foi colocada na linha 12.
Quero que o cursor seja posicionado na linha 12 ao invés de ficar na linha 26.
Alguém pode ajudar?
Obrigado.
