Copiar con tecla Enter

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.


"Ivan" escribió en el mensaje
news:

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