copy values in rows to columns

[Carpe Diem]

Hi,

I have this macro :

Try:

Sub col_row()
v = Array(Cells(1, 2).Value, Cells(1, 3).Value, Cells(1, 4).Value,
Cells(1,
5).Value)
Range("A1:E1").Clear
Range("A1:A3").Value = v(3)
Range("B1").Value = v(0)
Range("B2").Value = v(1)
Range("B3").Value = v(2)
End Sub


this macro allows to copy the following data :
A1 B1 C1 D1 E1
Costs 100 200 125 2002562

to:
A1 B1
2002562 100
2002562 200
2002562 125

But right now I have:

A1 B1 C1 D1 E1
Costs 100 200 125 2002562
Cash 10 205 135 2002563
Costs 100 200 125 2002564
Cash 10 205 135 2002565

How can I do the same ?

A1 B1
2002562 100
2002562 200
2002562 125
2002563 10
2002563 205
2002563 135
2002564 100
2002564 200
2002564 125
2002565 10
2002565 205
2002565 135

Can someone give a help?

Thank you

 

[A Mad Doberman]

If your intention is to use a very similar program to the one you have
to do this task, then you can use a two-dimensional array.

dim v(4,3) '4 is number of things in e column, 3 is items associated
with each

' think of i as rows and j as columns

for i = 1 to 4
for j=1 to 3
v(i,j)=cells(i,j+1).value
next j
next i

' now you have your variable filled with the data you need. You just
have to put it into your spreadsheet now.

mark=1
for i=1 to 4
for j=1 to 3
range("B" & mark).value=v(i,j)
mark=mark+1
next j
next i