Macro, copiar y pegar en la celda actualmente seleccionada

[kinkaned]

¡ Hola que tal compañeros del Foro !
Lo que quiero saber es: ¿Como copiar y pegar un valor en la celda que
tenga actualmente seleccionada?
Es decir.
Acceso directo: Ctrl+Mayús+F
Range("I1").Select <--- Esta celda la selecciona
Selection.Copy <--- y después la copia
Range("G10:G11").Select <--- Selecciona y pega
ActiveSheet.Paste <--- en esta celda
Application.CutCopyMode = False

End Sub
Lo que to trato de hacer es: que el momento que yo escriba el comando
Ctrl+Mayús+F pegue el valor seleccionado de ("I1") en la celda
que tenga actualmente seleccionada y no en ("G10:G11")

[dave]

Prueba de esta forma.

Acceso directo: Ctrl+Mayús+F

d = ActiveCell.Address
Range("D2").Select
Selection.Copy
Range(d).Select
ActiveSheet.Paste
Application.CutCopyMode = False

[Juan Español]

Hola kinkaned:
Si lo que quieres es copiar el valor de la celda activa,
a la celda D2, entonces prueba este c�digo...

[D2] = ActiveCell.Value

y...

si quieres que la macro actue solamente cuando est�s en la Hoja llamada por
ejemplo "Copiar a dedos"
entonces esta variante del c�digo anterior...

If ActiveSheet.Name = "Copiar a dedos" Then
[D2] = ActiveCell.Value
End If

(No sea que por confusi�n ejecutes la macro estando otra hoja activa y se
produzcan efectos "no deseados")

Si quieres copiar formatos, f�rmulas o lo que sea, dilo en este mismo hilo.
Un consejo para dave, prueba, a ser posible antes, lo que vayas a mandar y
si no es posible comenta que est� sin probar.

Desde Salamanca, saludos para todos.-

"kinkaned" <nospam_...@hotmail.com.invalid> escribi� en el mensaje de
noticias news:Btqdnbrad6r...@giganews.com...
>� Hola que tal compa�eros del Foro !
> Lo que quiero saber es: �Como copiar y pegar un valor en la celda que

> tenga actualmente seleccionada?
> Es decir.

> Acceso directo: Ctrl+May�s+F

> Range("I1").Select <--- Esta celda la selecciona

> Selection.Copy <--- y despu�s la copia

> Range("G10:G11").Select <--- Selecciona y pega
> ActiveSheet.Paste <--- en esta celda
> Application.CutCopyMode = False
>
> End Sub
> Lo que to trato de hacer es: que el momento que yo escriba el comando

> Ctrl+May�s+F pegue el valor seleccionado de ("I1") en la celda

[Juan Español]

Donde pongo [D2], evidentemente debe poner [I1]
Como he repasado la respuesta de dave, me confund� de referencia.
Saludos.-

"Juan Espa�ol" <este...@micorreo.com> escribi� en el mensaje de noticias
news:k2cmcc$ltg$1...@speranza.aioe.org...