You could enter this formula wherever you wish, and copy down as needed:

=INDEX($A$1:$J$2,MOD(ROWS($1:1)-1,2)+1,ROWS($1:2)/2)

--

HTH,

RD
================================================== ===
Please keep all correspondence within the Group, so all may benefit!
================================================== ===

"teresa" wrote in message
...
Guys no need to argue,

i got it sorted,

Ive another problem if anyone would like to help with that?

thanks,

teresa


"John C" wrote:

No. If you have been using excel for long, which I am assuming you have,
then
you should be the first to know that there are MANY ways to achieve the
same
result. Just because you use a macro, does not make it the 'proper' way.
--
John C


"Don Guillett" wrote:

You are absolutely correct. But then, so am I.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"John C" <johnc@stateofdenial wrote in message
...
Formula solutions have been given. Some people aren't comfortable with
macros, or VBA for that matter. To say that your way is the 'proper'
way,
and
that other ways are subsequently improper is both arrogant and
pompous.
The
macro way is typically cleaner, but if it is a one time rearrangement,
for
someone to go through all the learning of macros, and operation
thereof I
think is a bit much.
--
John C


"Don Guillett" wrote:


Please don't shout. I can hear well despite my age. I would NOT use a
formula for this. You should learn how to do it properly.

If you're new to macros, you may want to read David McRitchie's
intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"teresa" wrote in message
...
HOW CAN YOU DO THIS AS A FORMULA??
SORRY THIS HAS CONFUSED ME MORE?

THANKS,

TERESA


"Don Guillett" wrote:

Sub transposerowstocola()
lr = Cells(rows.Count, 1).End(xlUp).Row
For i = 1 To lr
lc = Cells(i, Columns.Count).End(xlToLeft).Column
dlr = Cells(rows.Count, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, lc)).Copy
Cells(dlr, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
rows("1:" & lr).Delete
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"teresa" wrote in message
...
Hi,

I have to move the data from numerous columns into one colum as
a
list,
how can i do this?

eg
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10

to
1
2
3
4
5
6
7
8
9
10
1
2
3
4
5
6
7
8
9
10

please help?

thanks,