Manual Transpose

[ckotsis]

Hi I have a list of cells (one under the other) and I'm looking for
way to "manually transpose" them to another sheet.What happens is tha
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

 

[vezerid]

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

 

[ckotsis]

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