New to the Forum - looking for VBA Help in sorting selected cells

[A3F3]

Been browsing this forum for a while - just found it. Amazing resources and very helpful people.

Here's a problem I'm working on that I'd love some help. Not a developer/VBA expert at all.

I have an excel spreadsheet full of data. I need to manually resort selected portions of the spreadsheet to the same construct each time.

My workflow is:

Select the rows (2 to 20 or so), then sort the rows based on Column L (numbers, want them sorted from high to low) and then Column C (words, want them sorted alphabetically).

I may have to do this in different areas of the spreadsheet, so want to be able to select the rows, then invoke the macro to run the above sort. I currently do this manually with the Sort & Filter function and/or using shortcuts Alt-A, S, S and then picking the columns L and C manually. Would love if I could just run a macro.

Thanks!

 

[kevin9999]

Could you post a copy of your sheet using the XL2BB add in? Also, how do you intend to select the rows of interest - obviously with the mouse, but do you want to select the entire range (column A to column whatever) or just select a range of rows in one column?

 

[A3F3]

I will try and use the addin - never used it before.

Ideally, I’d just select with the mouse the rows. As in highlight (on the far left) rows 6-18 and it would highlight all data in those rows. Then invoke the macro to run the sort on column K and C.

 

[kevin9999]

then sort the rows based on Column L

run the sort on column K

2 things, which is it: K or L; and what are the first and last columns with data?

 

[A3F3]

2 things, which is it: K or L; and what are the first and last columns with data?

Sorry I meant - sort by column L then C. Data is mostly stored in columns A to P.

 

[kevin9999]

OK, try the following on a copy of your sheet:

Sub Sort_Part_Range()
    Selection.Sort Key1:=Cells(Selection.Row, 12), order1:=xlAscending, _
    Key2:=Cells(Selection.Row, 3), order2:=xlAscending, Header:=xlNo
End Sub

 

[A3F3]

OK, try the following on a copy of your sheet:

Sub Sort_Part_Range()
    Selection.Sort Key1:=Cells(Selection.Row, 12), order1:=xlAscending, _
    Key2:=Cells(Selection.Row, 3), order2:=xlAscending, Header:=xlNo
End Sub

This worked great. Just had to change the ascending to descending and apply a shortcut and it was excellent. Thank you !!!!

 

[kevin9999]

This worked great. Just had to change the ascending to descending and apply a shortcut and it was excellent. Thank you !!!!

Happy to help, and thanks for the feedback