Manual Transpose
 

Hi I have a list of cells (one under the other) and I'm looking for a
way to "manually transpose" them to another sheet.What happens is that
every 4th cell I want to change row.

e.g.

Sheet1
r1: 1
r2: 2
r3: 3
r4: 4
r5: 1
r6: 2
r7: 3
r8: 4


Sheet2
c1 c2 c3 c4
1 2 3 4
1 2 3 4


How can i do it?


--
ckotsis
------------------------------------------------------------------------
ckotsis's Profile: http://www.excelforum.com/member.php...o&userid=31759
View this thread: http://www.excelforum.com/showthread...hreadid=514834

Manual Transpose
 

ckotsis

I am assuming your input data are starting at A4. Your output starts at
F3. The formula in F3:

=OFFSET($A$4,(ROW()-ROW(F$3))*4+MOD(COLUMN()-COLUMN($F3),4),0)

Copy down and accross 4 columns.

HTH
Kostis Vezerides

Manual Transpose
 

Euxaristo poli na eisai kala. Episis egrapsa kai ton parakato kodika

Dim x, k, j As Integer

Sub Button3_Click()
k = 1
x = 1
j = 2
Do
For x = 1 To 10
Worksheets("Sheet3").Cells(j, x).Value =
Worksheets("Sheet2").Cells(k, 1).Value
k = k + 1
Next x
j = j + 1
Loop While IsEmpty(Worksheets("Sheet2").Cells(k - 10, 1).Value) <
True
End Sub


--
ckotsis
------------------------------------------------------------------------
ckotsis's Profile: http://www.excelforum.com/member.php...o&userid=31759
View this thread: http://www.excelforum.com/showthread...hreadid=514834