¿Cómo puede Excel moverse automáticamente a la celda resaltada?

Question

He estado jugando con la plantilla del diagrama de Gantt y edité algunos contenidos. Una de las desventajas que he notado es que cuando cambio la fecha en la celda "E4". La celda de la sección de la izquierda se resaltará pero no se moverá automáticamente.

Cuando cambio la fecha al 2/2/2017. La columna de fecha se resaltará pero tengo que desplazarme manualmente hasta esa fecha.

Pregunta: ¿Hay alguna forma de que Excel pueda mover automáticamente la hoja a la fecha seleccionada?

Answer 1

Puedes usar un Worksheet_Change()evento para hacer esto. En elhoja de cálculoSi desea que esto se ejecute, agregue este código. (Haga clic derecho en la pestaña de la hoja de trabajo y vaya a "Ver código"):

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

Nota: Ajuste el Set dateCell = Range([this range])para que sea el rango de fechas al que desea "saltar" después de ingresar la fecha.