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

On 17 feb, 07:31, "Emilio" wrote:

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

"Juanjo" escribi en el mensajenews:
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

¡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" escribió en el mensaje de noticias
news:
On 17 feb, 07:31, "Emilio" wrote:

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

"Juanjo" escribi en el
mensajenews:
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

__________ Information from ESET Smart Security, version of virus signature
database 5887 (20110218) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 5887 (20110218) __________

The message was checked by ESET Smart Security.

http://www.eset.com