atajo para pegado especial

¡Hola, Karlos!

Crea dos macros en un módulo con el siguiente código:
Sub PegadoEspecialSóloTexto()
ActiveSheet.PasteSpecial "Texto"
End Sub

Sub PegadoEspecialSóloFormato()
Selection.PasteSpecial xlPasteFormats
End Sub

A continuación selecciona el menú Herramientas, submenú Macro, opción
Macros... Elige la macro PegadoEspecialSóloTexto y pulsa el botón
<Opciones...> En Tecla de método abreviado establece la letra que
desees para la macro. Repite el proceso con la macro
PegadoEspecialSóloFormato.

Espero que te sirva de ayuda.
Un saludo,
Ignacio.

On 11 jun, 04:02, Ignacio wrote:

¡Hola, Karlos!

Crea dos macros en un módulo con el siguiente código:
Sub PegadoEspecialSóloTexto()
    ActiveSheet.PasteSpecial "Texto"
End Sub

Sub PegadoEspecialSóloFormato()
    Selection.PasteSpecial xlPasteFormats
End Sub

A continuación selecciona el menú Herramientas, submenú Macro, opción
Macros... Elige la macro PegadoEspecialSóloTexto y pulsa el botón
<Opciones...> En Tecla de método abreviado establece la letra que
desees para la macro. Repite el proceso con la macro
PegadoEspecialSóloFormato.

Espero que te sirva de ayuda.
Un saludo,
Ignacio.

perfecto muchas gracias,...


y que hay que colocar para que el pegado sea como imagen ??

saludos

¡Hola, Karlos!

Depende del tipo de imagen, pero generalmente
ActiveSheet.PasteSpecial "mapa de bits"

Espero que te sirva de ayuda.
Un saludo,
Ignacio.