Paste Transpose - vertical to horizontal

[2Took]

Hi,

Once I have copied a column of data, running below code, which supposed to paste values and transpose to horizontal, but the only thing that happens is second line of the code.

How do I make it work?

Private Sub CommandButton6_Click()

Worksheets(4).Range("A2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Worksheets(1).Range("A311").Select

End Sub

 

[bobaol]

Hi, does this work? this assumes you have data in cells A1 to A3, it copies A1 to A3, goes to cell B1, paste special as transpose. I used the macro recorder and recorded the macro like this: push F5 go to A1, select A1 to A3, Copy, push F5 to go to B1, then push Alt, E, S, E, Enter (for Transpose). Hope this helps
Sub Macro1()
Application.Goto Reference:="R1C1"
ActiveCell.Range("A1:A3").Select
Selection.Copy
Application.Goto Reference:="R1C2"
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[2Took]

Hi, does this work? this assumes you have data in cells A1 to A3, it copies A1 to A3, goes to cell B1, paste special as transpose. I used the macro recorder and recorded the macro like this: push F5 go to A1, select A1 to A3, Copy, push F5 to go to B1, then push Alt, E, S, E, Enter (for Transpose). Hope this helps
Sub Macro1()
Application.Goto Reference:="R1C1"
ActiveCell.Range("A1:A3").Select
Selection.Copy
Application.Goto Reference:="R1C2"
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Hi,

I went with my own recording and some editing yesterday, which works.

But, thanks!

Application.ScreenUpdating = False
    Sheets("fff").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("rrr").Select
    Range("A311").Select
Application.ScreenUpdating = True