Macro, copiar y pegar en la celda actualmente seleccionada

06/09/2012 - 10:46 por kinkaned | Informe spam
¡ 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")

Preguntas similare

Leer las respuestas

#1 dave
07/09/2012 - 07:47 | Informe spam
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
Respuesta Responder a este mensaje
#2 Juan Español
07/09/2012 - 13:35 | Informe spam
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")
Respuesta Responder a este mensaje
#3 Juan Español
07/09/2012 - 13:52 | Informe spam
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")



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida