none
Ordenar automaticamente e posicionar o cursor na célula final RRS feed

  • Pergunta

  • 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.

    quinta-feira, 31 de dezembro de 2015 22:00