sorting rows into a list

A

auspcs

I have a table 10 columns wide, 15 rows high with data in "SOME" of th
cells
My problem is that I want to build a list from this table reading fro
top to bottom. The list can have no blank cells. I can't find a way t
do this because some of the cells are blank. Any help would be greatl
appreciate
 
M

mrice

You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell <> "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub
 
M

mrice

You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell <> "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub
 
M

mrice

You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell <> "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub
 
A

auspcs

Thanks, that worked well, but I wanted to have this make the list
automatically when I open the spreadsheet. I thought i could do this
with formulas.
 
Top