Macro para pegado especial transponer valores
Juanjo
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
Emilio
�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" <jjpe...@gmail.com> escribi� en el mensaje
news:b2669854-4ea7-462c...@x11g2000yqc.googlegroups.com...
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
Juanjo
> --------------------------------------------------------------------------
> 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.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
>
> 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
Efectivamente me referia al Excel 2010, mis disculpas, lo omití en el
planteamiento. En cuanto al botón de pegar valores, ya lo tengo
colocado en la barra de acceso rápido. El problema es que yo tengo los
datos en vertical (con fórmulas) y los quiero pegar en horizontal
(solo valores). Con PegarValores los pega igual que están pero
efectivamente solo valores.
Saludos
Juanjo
Emilio
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
disculpa, fe de erratas, donde dije pegar valores debería haber dicho
Transponer.
Saludos a todos desde Huelva
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Juanjo" <jjpe...@gmail.com> escribió en el mensaje de noticias
news:5d7e4be0-abb8-445a...@r13g2000yqk.googlegroups.com...
Saludos
Juanjo
__________ Information from ESET Smart Security, version of virus signature
database 5887 (20110218) __________
The message was checked by ESET Smart Security.
__________ Information from ESET Smart Security, version of virus signature database 5887 (20110218) __________
The message was checked by ESET Smart Security.