sort columns with macro button

Hi all,

I am trying to create a macro button to sort my columns out. One column needs to be sorted in Alphabetical order. The next column needs to be sorted highest to lowest number, with the 1st column as the added level (2nd option).

If you see the attached filed hopefully you can see what I am trying to get at.

Many thanks.

it is slightly different that's why I thought it is best i make a new thread. The previous one was about sorting the columns out without sorting other columns. This one is sorting columns out while keeping the other columns aligned with each other. Hope this makes sense.

Is this an Active X button called SortData?

Ok i have managed to sort it out. The only issue I have is in Column B and C (see attached) I want it to go from the highest to lowest with the blank cells underneath it.

I have uploaded another updated version. Hopefully this explains more of what I am looking for.

Thanks in advance.

maybe so
Try to double-click in the green cells of line 12.
I changed the formula in columns B and C (in yellow), make the same changes to the other columns.
You can also use the ListObject with alternating rows instead of conditional formatting.

Thanks Nilem,

I am having a bit of trouble with it. I went to transfer the code over to my actual file and its doesn't seem to work. From my understanding it is because I have the columns from my proper document starting from column B not A. I tried to change the code but it didn't work for me.

Thanks.

attach a new example with the real location of the data

Hope this is ok?

Thanks as always

try (see attachment)

Nilem,

Thank you so much. That works really well.

I hate to be a pain, but this has now caused another issue. I have attached my proper document. You will notice in column A i have other buttons. Now when i go to use them there seems to be a conflict.

Also just on another not when I double click column C it moves the empty cells to the top.

Thanks.

Simply declare the variables in each procedure of Sheet4 module: Dim i as Long
Change formulas to sorting occurred correctly (see post 9),
replace =IF($H13=0,"",IF($B13="","",... with =IF($H13="",0,IF($B13="",0,... (i.e. 0 instead of "")

Hi. Sorry. This is what I did. I am obviously missing something.

Please Login or Register  to view this content.

Hi Nilem,

Any luck in finding out in the above code what I am doing wrong as it is still not working for me.

Thanks

Hi Sirdon
I rewrote procedures in the 'batting_statistics' list module and ThisWorkbook module
see attachment

nilem...you are a legend...thank you so, so much. I really appreciate it.