Como o Excel pode se mover automaticamente para a célula realçada?

Question

Eu tenho jogado com o modelo de gráfico de Gantt e editado alguns conteúdos. Uma das desvantagens que eu notei é que quando eu mudo a data na célula "E4". A célula na seção da esquerda ficará destacada, mas não será movida automaticamente.

Quando altero a data para 2/2/2017. A coluna de data será destacada, mas eu tenho que rolar manualmente para essa data.

Pergunta: Existe alguma maneira que o Excel pode mover automaticamente a folha para a data selecionada?

    

Answer 1

Você pode usar um evento Worksheet_Change() para fazer isso. Na planilha você quer que isto seja executado, adicione este código. (Clique com o botão direito do mouse na guia da planilha e vá para "View Code"):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dateCell As Range

If Target.Address = "$E$4" Then
    Set dateCell = Range("A49:A50").Find(what:=Target.Value)
    If dateCell Is Nothing Then
        MsgBox ("Date not found")
    Else
        dateCell.Select
    End If
End If
End Sub

Observação: ajuste o Set dateCell = Range([this range]) para ser o intervalo de datas para o qual você deseja "pular" depois de inserir a data.