Macro para pegado especial transponer valores

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!

eso de "barra de acceso rapido" me suena a office 2007 o 2010, si es así no
necesitas crear macro de ningún tipo, solo tienes que personalizar la barra

Mas comandos > Todos los comandos buscas el botón Pegar Valores

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Juanjo" escribió en el mensaje
news:
Transponer valores es algo que hago de forma periodica, por lo que
quiero crear una macro para ponerla en un icono en la barra de acceso
rápido, lo que mi conocimiento no llega es a que pueda ser usada en
cualquier libro.

Sub Transponer_valores()
'
' Transponer_valores
'

'
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
End Sub


Saludos
Juanjo