Paste special values
 

Hello All,
Can someone help me with code to:
pasteSpecialValuestranspose

I tried recording, but when I run the macro, I get an
error.

I would ultimayely like to assign ctrl+"a" as my
function. I copied a few cells, then recorded as I
performed the paste......transpose. Here is the
resulting code.

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

Any Ideas Thanks

Paste special values
 

Here are several PasteSpecial macros. They are used by making the selection
and copying then choose the desination range and run the macro.

Sub SpecPasteTransVal()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End Sub
Sub SpecPasteVal()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Sub SpecPasteNoBlanks()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
End Sub

HTH, Greg
"Tim" wrote in message
...
Hello All,
Can someone help me with code to:
pasteSpecialValuestranspose

I tried recording, but when I run the macro, I get an
error.

I would ultimayely like to assign ctrl+"a" as my
function. I copied a few cells, then recorded as I
performed the paste......transpose. Here is the
resulting code.

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

Any Ideas Thanks