copiar y pegar como valor

Hola Rafael !!


el Control+C que comentas para copiar ya esta por defecto establecido
en Excel para copiar una celda o un rango y con respecto a la
combinacion de teclas (Control+a) que quieres para pegar lo debes de
establecer al momento de grabar tu macro en el menu
HERRAMIENTAS/MACRO/GRABAR NUEVA MACRO.te aparece un cuadro en donde
dice metodo abreviado (Control + y un casilla) esta una casilla, ahi
escribe la "a". y despues dale click a el boton de aceptar.

despues de esto puedes detener la grabacion de la macro y poner el
siguiente codigo en tu macro ya creada

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

con esto deberia de pegar tu macro de pegado de valores transpuestos


saludos..

No me funciona el codigo.

Por favor ayuda.

phedro wrote:

Hola Rafael !!


el Control+C que comentas para copiar ya esta por defecto establecido
en Excel para copiar una celda o un rango y con respecto a la
combinacion de teclas (Control+a) que quieres para pegar lo debes de
establecer al momento de grabar tu macro en el menu
HERRAMIENTAS/MACRO/GRABAR NUEVA MACRO.te aparece un cuadro en donde
dice metodo abreviado (Control + y un casilla) esta una casilla, ahi
escribe la "a". y despues dale click a el boton de aceptar.

despues de esto puedes detener la grabacion de la macro y poner el
siguiente codigo en tu macro ya creada

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

con esto deberia de pegar tu macro de pegado de valores transpuestos


saludos..

Hola Rafael!

Sigue los siguientes pasos:
1) selecciona el rango a copiar y haz edicion-copiar.
2) Pon a funcionar la grabadora de macros y ejecuta las siguientes acciones
exactamente:
a) selecciona la celda inicial donde se van a pegar los datos. Por
ejemplo D1
b) Pulsa Edicion-Pegado especial, selecciona valores y transponer.
c) Pulsa el botón para detener la grabación.
3) Ahora vas al código de la macro pulsado las telcas Alt + F11 y
sustituyes exactamente Range ("D1") por ActiveCell
4) Vas a Herramientas-Macro-Macros, seleccionas la macro que acabas de
grabar y pulsas el botón "Opciones": te saldrá un cuadro donde puedes poner
la tecla de método abreviado que deberás usar (por ejemplo la z) con la
tecla "Control" para ejecutar la acción mediante teclado.

Para probar si funciona haz:

copia mediante edicion-copiar o mediante Control + C cualquier Rango que
quieras, y a continuación situáte en la primera celda donde se debe pegar el
rango copiado y pulsa las teclas de método abreviado que escogiste (en el
ejemplo Control + z ).

La macro debe quedarte con el siguiente código, para lo que debes arreglarla
algo:

Sub Pegar_Datos_Portapapeles_Transpuestos()

' Macro grabada el 02/08/2006 por Juan Carlos
'
' Acceso directo: CTRL+z
'
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True
End Sub


También puedes copiar esta macro, y pegarla en un módulo de tu libro,
despues le asignas la tecla de método abreviado y ya está.

Esperando haberte ayudado, te saluda

Juan Carlos Perez
Asturias - España



"Rafael" escribió en el mensaje
news:

No me funciona el codigo.

Por favor ayuda.

phedro wrote:

Hola Rafael !!


el Control+C que comentas para copiar ya esta por defecto establecido
en Excel para copiar una celda o un rango y con respecto a la
combinacion de teclas (Control+a) que quieres para pegar lo debes de
establecer al momento de grabar tu macro en el menu
HERRAMIENTAS/MACRO/GRABAR NUEVA MACRO.te aparece un cuadro en donde
dice metodo abreviado (Control + y un casilla) esta una casilla, ahi
escribe la "a". y despues dale click a el boton de aceptar.

despues de esto puedes detener la grabacion de la macro y poner el
siguiente codigo en tu macro ya creada

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

con esto deberia de pegar tu macro de pegado de valores transpuestos


saludos..

Muchas gracias.

Ahora si me funciona.

Gracias

Rafael

Juan Carlos Perez wrote:

Hola Rafael!

Sigue los siguientes pasos:
1) selecciona el rango a copiar y haz edicion-copiar.
2) Pon a funcionar la grabadora de macros y ejecuta las siguientes acciones
exactamente:
a) selecciona la celda inicial donde se van a pegar los datos. Por
ejemplo D1
b) Pulsa Edicion-Pegado especial, selecciona valores y transponer.
c) Pulsa el botón para detener la grabación.
3) Ahora vas al código de la macro pulsado las telcas Alt + F11 y
sustituyes exactamente Range ("D1") por ActiveCell
4) Vas a Herramientas-Macro-Macros, seleccionas la macro que acabas de
grabar y pulsas el botón "Opciones": te saldrá un cuadro donde puedes poner
la tecla de método abreviado que deberás usar (por ejemplo la z) con la
tecla "Control" para ejecutar la acción mediante teclado.

Para probar si funciona haz:

copia mediante edicion-copiar o mediante Control + C cualquier Rango que
quieras, y a continuación situáte en la primera celda donde se debe pegar el
rango copiado y pulsa las teclas de método abreviado que escogiste (en el
ejemplo Control + z ).

La macro debe quedarte con el siguiente código, para lo que debes arreglarla
algo:

Sub Pegar_Datos_Portapapeles_Transpuestos()

' Macro grabada el 02/08/2006 por Juan Carlos
'
' Acceso directo: CTRL+z
'
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:> _
False, Transpose:=True
End Sub


También puedes copiar esta macro, y pegarla en un módulo de tu libro,
despues le asignas la tecla de método abreviado y ya está.

Esperando haberte ayudado, te saluda

Juan Carlos Perez
Asturias - España



"Rafael" escribió en el mensaje
news:
> No me funciona el codigo.
>
> Por favor ayuda.
>
> phedro wrote:
>> Hola Rafael !!
>>
>>
>> el Control+C que comentas para copiar ya esta por defecto establecido
>> en Excel para copiar una celda o un rango y con respecto a la
>> combinacion de teclas (Control+a) que quieres para pegar lo debes de
>> establecer al momento de grabar tu macro en el menu
>> HERRAMIENTAS/MACRO/GRABAR NUEVA MACRO.te aparece un cuadro en donde
>> dice metodo abreviado (Control + y un casilla) esta una casilla, ahi
>> escribe la "a". y despues dale click a el boton de aceptar.
>>
>> despues de esto puedes detener la grabacion de la macro y poner el
>> siguiente codigo en tu macro ya creada
>>
>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> SkipBlanks _
>> :=False, Transpose:=True
>>
>> con esto deberia de pegar tu macro de pegado de valores transpuestos
>>
>>
>> saludos..
>
>