Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy values in rows to columns
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy values in rows to columns
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 Carpe Diem wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Match Values in Rows with Partial Values in Columns | Excel Worksheet Functions | |||
Copy values in columns to rows | Excel Worksheet Functions | |||
Copy columns values into separate columns | Excel Discussion (Misc queries) | |||
Macro simplifying - copy rows to worksheets based on values in 2 different columns | Excel Programming | |||
Columns and Rows Values | Excel Programming |