Programatically Transpose

[Nicole_Michelle01]

What would the macro look like that would transpose every 14 rows from one worksheet into 14 columns on another worksheet.

Here's the process manually:

- From Worksheet1, select every 14 rows, Copy

- To Worksheet2, in ColumnA first cell in the next empty row, Paste Special, select Transpose


Thanks! ~ Nicole

 

[sweater_vests_rock]

hi nicole (or michelle?)

it would look something like this:

Sub PasteTranspose()
'
    Sheets("Shee1").Rows("1:14").Copy
    Sheets("Sheet2").Activate
    Columns("A:A").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

i'm assuming you literally want the whole row copied. is this correct?

ben.