Sorting Columns to Single File

[jackson4u]

We have a school database..
We have nearly 100's of coulumns that are listed not in a format as shown in image.

Please see our current format and the output we need from the image..
Xls also attached..

http://seaplane.in/Excel-Multiple-Column-Sorting.xls

Output that is Needed

We need to list all names in a single column.

I Need to add only the values..
needs to remove the ones that does not contain the values

Is it possible to do have a function to does this automatically

How to sort multiple columns at the same time ?
If its possible how to do this ?

What we does now

We select individual column..
sort it and then copy one at a time to a OUTPUT column..
Repeat this for 100's of column

So its taking a long time

Can anyone help ?

 

[SteveO59L]

Something along the lines of

Dim c As Range, rng
Dim LASTROW As Long

Set rng = Range("b1:m100")
For Each c In rng
If c.Value <> "" Then
LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
Cells(LASTROW, 1).Offset(1, 0) = c.Value

End If
Next c

 

[jackson4u]

Something along the lines of

Dim c As Range, rng
Dim LASTROW As Long

Set rng = Range("b1:m100")
For Each c In rng
If c.Value <> "" Then
LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
Cells(LASTROW, 1).Offset(1, 0) = c.Value

End If
Next c

Thnkas you SteveO59L for your help..

But the problem is, as i am a newbie into EXCEL i am not sure how to Implement this code on my excel sheet..

Will you be able to upload that excel sheet for me so that I can see how it is done.

Or is there an another easy way to do get the output that I need ?

 

[SteveO59L]

What version of excel are you using?

 

[jackson4u]

What version of excel are you using?

I am using MS Excel 2007 Format

MS Excel 2007 (12.0.6557.5000) SP 2 MSO
Enterprise edition to be exact

Thanks in Advance

 

[SteveO59L]

Click on the developer tab.

On the left hand side you should have a " record macro" option.

Select this option, and the record the code in this workbook. then select the "stop recording" option.

Select the macros button and the code you have just recorded will be in the list of available macros.

Select the edit option, and paste the code between the sub / end sub lines.

Go back to your work sheet, select macros again this time select the run option

 

[jackson4u]

SteveO59L that worked... Love you dear..
That saved a lot of our efforts
Thanks you Steve

 

[SteveO59L]

No worries