Pasar de una celda a otra determinada

Voy a capturar datos en ciertas celdas y lo que quiero es que solamente pase el cursor a ciertas celdas por ejemplo A2, B16, C18.

use esta configuración pero no me funciona no se porque si puedes checarla Gracias

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address

Case Is = "$D$9" Range("$B$16").Select

Case Is = "$B$16" Range("$C$16").Select

Case Is = "$C$16" Range("$E$16").Select

Case Is = "$E$16" Range("$D$9").Select

End Select

End Sub

1 Respuesta

Respuesta
1

Escribila así:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case Is = "$D$9"
Range("$B$16").Select
Case Is = "$B$16"
Range("$C$16").Select
Case Is = "$C$16"
Range("$E$16").Select
Case Is = "$E$16"
Range("$D$9").Select
End Select
End Sub

Además quizás ya lo sepas pero no está demás recordar que este evento se coloca en el objeto HOJA donde lo vas a trabajar.

PD) Podés leer más sobre estos eventos en la sección Macros de mi sitio.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas