Hi,
I'm trying to copy cells from sheet1 to sheet 2.
All the cells are in the same row in sheet1.
The number of cells in the row in sheet1 is unknown (varies).
All the cells has data in them.
When copied to sheet2 I want the cells to be copied several times below
eachother:
If sheet1 looks like this:
1 2 3

Then I want sheet2 to look like this:
1
2
3
1
2
3
1
2
3
The number of cells in the row in sheet1 is the same number I want it to be
repeated under eachother in sheet2.
Anybody that can help me with this?

I've got the transpose copy working, but I can't get it to start at the cell
below the first 3 in sheet2.

kind regards
Kristoffer

Posting the code that you currently have will get better results.




"whitebalance" wrote:

Hi,
I'm trying to copy cells from sheet1 to sheet 2.
All the cells are in the same row in sheet1.
The number of cells in the row in sheet1 is unknown (varies).
All the cells has data in them.
When copied to sheet2 I want the cells to be copied several times below
eachother:
If sheet1 looks like this:
1 2 3

Then I want sheet2 to look like this:
1
2
3
1
2
3
1
2
3
The number of cells in the row in sheet1 is the same number I want it to be
repeated under eachother in sheet2.
Anybody that can help me with this?

I've got the transpose copy working, but I can't get it to start at the cell
below the first 3 in sheet2.

kind regards
Kristoffer

First select the cells in the row you want copied and then run:

Sub transit()
n = Selection.Count
Selection.Copy
Sheets("Sheet2").Activate
Cells(1, 1).Select
Selection.PasteSpecial Transpose:=True
For i = 1 To n - 1
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Select
Selection.PasteSpecial Transpose:=True
Next
End Sub

--
Gary''s Student - gsnu200813