macro - paste special (transpose)

[paste special, macro, transpose]

He hi,

It's been a while since I used VBA so the following might contain a very
obvious error. I'd be very grateful if somebody could tell me what I do wrong
in my code:

Private Sub transpose()
Worksheets("Sheet1").Copy
Worksheets("Sheet2").PasteSpecial (transpose)
End Sub

I wrote this to make sure whole of sheet 1 is pasted in a transposed manner
(thus columns become rows and other way around) into sheet 2. For in sheet 1
I enter new data, but to make sorting (I've only figured out how to do that
by column) easier it has to be transposed before I do calculations with it.
Doing this by hand means copying all of sheet 1 and use "paste special" and
tick "transpose" to paste it in sheet 2.

I'm not sure if it's right to write a private sub for this... or whether
this code is the right one... Or wether I should write a loop like "copy row
1 and paste in column A"

Greetz, Robin

 

[Gary''s Student]

Sub Macro1()
Sheets("Sheet1").Select
Rows("1:256").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("1:256").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

 

[Don Guillett]

Try recording to see what you did wrong

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
"paste special, macro, transpose" <paste special, macro,
(e-mail address removed)> wrote in message
news:[email protected]...

 

[paste special, macro, transpose]

Thx

 

[paste special, macro, transpose]

Thank you, but for some reason "record macro" was unavailable - it was light
grey. I thought it wasn't allowed on the office computer I'm working on (no
idea for what reason when VBA is allowed :S ).
After closing and restarting the excel sheet I was allowed to record though.
So thanks for your help - it made me try again .

 

[Don Guillett]

Private Sub transpose()
Worksheets("Sheet1").range("a1:a21").Copy
Worksheets("Sheet2").range("a1").PasteSpecial _
Paste:=xlPasteAll, Transpose:=True


End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
"paste special, macro, transpose"