Macro, copiar y pegar en la celda actualmente seleccionada

kinkaned escribió el 06/09/2012 10:46 :

¡ 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")

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

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" escribió en el mensaje de
noticias news:

¡ 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")

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

"Juan Español" escribió en el mensaje de noticias
news:k2cmcc$ltg$

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" escribió en el mensaje de
noticias news:

¡ 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")