Cambiar a una determinada celda al pulsar ENTER

12/02/2006 - 00:11 por bobafett | Informe spam

Hola, necesito que al pulsar ENTER en una determinada celda me seleccione
otra, he probado con esto, pero no me funciona.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then Application.OnKey "{ENTER}", "Salto"

"Salto" es la macro que ejecuta el cambio, esta me funciona bien.
Os doy las gracias de antemano, por vuestras respuestas.
Supongo que sera alguna chorrada, pero estoy aprendiendo.

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 KL

12/02/2006 - 00:23 | Informe spam

Hola Alf,

Y por que no asi:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then Salto
End Sub

Saludos,
KL

"Alf" wrote in message news:

Hola, necesito que al pulsar ENTER en una determinada celda me seleccione
otra, he probado con esto, pero no me funciona.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then Application.OnKey "{ENTER}", "Salto"

"Salto" es la macro que ejecuta el cambio, esta me funciona bien.
Os doy las gracias de antemano, por vuestras respuestas.
Supongo que sera alguna chorrada, pero estoy aprendiendo.

Responder a este mensaje

#2 SINSPAMbobafett

12/02/2006 - 16:29 | Informe spam

KL wrote:

Hola Alf,

Y por que no asi:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then Salto
End Sub

Saludos,
KL

"Alf" wrote in message

news:

> Hola, necesito que al pulsar ENTER en una determinada celda me seleccione
> otra, he probado con esto, pero no me funciona.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If ActiveCell.Address = "$A$1" Then Application.OnKey "{ENTER}", "Salto"
>
> "Salto" es la macro que ejecuta el cambio, esta me funciona bien.
> Os doy las gracias de antemano, por vuestras respuestas.
> Supongo que sera alguna chorrada, pero estoy aprendiendo.
>

Muchas gracias KL, funciona perfectamente.
De todas formas, si no es mucha molestia, me podrias decir por que no
funciona el metodo que utilizaba yo. Es solo por saber cual es el fallo.
Un saludo.

Responder a este mensaje

#3 KL

12/02/2006 - 21:52 | Informe spam

Hola Alf,

"Alf" wrote

> Private Sub Worksheet_Change(ByVal Target As Range)
> If ActiveCell.Address = "$A$1" Then Application.OnKey "{ENTER}", "Salto"

...que no funciona el metodo que utilizaba yo...

Lo que hace tu codigo es ASIGNAR el macro Salto a la tecla Enter DESPUES de pulsar Enter (o sea la tecla Enter llamara el macro la
proxima vez que se pulse, no ésta !!!) y ademas PERMANENTEMENTE (cualquier uso de la tecla en cualquier momento y en cualquier rango
debera llamar el macro en vez de confirmar la entrada!) .

Saludos,
KL

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida