Copiar con tecla Enter

[Ivan]

Hola a todos
Tengo unos datos en la hoja y quisiera ver la posibilidad que al presionar la tecla Enter me pueda copiar el dato de esta celda a la posicion a1 de la hoja 2

Por ejemplo si estoy en la posicion B5 y ahi tengo el dato (3245), que al presionar Enter este pase a la posicion de A1 en la hoja 2.
Otro problema que tengo es que no puedo (mas bien no se como ) aplicaria una macro debido a que las filas de la hoja 1 constantemente se estan cambiando ( esto es, son el resultado de un autofiltro )
Agradesco de antemano cualquier ayuda

[Fabian]

esto lo copias en Hoja1
Private Sub Worksheet_Activate()
Application.OnKey "~", "Copiar"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "~"
End Sub

Y esto en un modulo comun
Sub copiar()
valor = ActiveCell.Value
Worksheets("Hoja2").Range("A1").Value = valor
End Sub

Ten en cuenta que cuando estes en la Hoja1 la tecla enter solo hará esto, te
sugiero que uses otra tecla.

Revisa en la ayuda de VB
Método OnKey
Ejecuta un procedimiento especificado cuando se presiona una tecla o una
combinación de teclas determinada.

Post by Ivan
Hola a todos
Tengo unos datos en la hoja y quisiera ver la posibilidad que al presionar

la tecla Enter me pueda copiar el dato de esta celda a la posicion a1 de la
hoja 2

Post by Ivan
Por ejemplo si estoy en la posicion B5 y ahi tengo el dato (3245), que al

presionar Enter este pase a la posicion de A1 en la hoja 2.

Post by Ivan
Otro problema que tengo es que no puedo (mas bien no se como )

aplicaria una macro debido a que las filas de la hoja 1 constantemente se
estan cambiando ( esto es, son el resultado de un autofiltro )

Post by Ivan
Agradesco de antemano cualquier ayuda

[Ivan]

Gracias Fabian