Running Custom Sort on Actively Selected Cells

[rocksolid77]

Hi Everyone and thanks in advance for your time,

Basically, I have a sheet that shows time in Days going downwards (monday tuesday etc.) and is broken out by week. In Column C, I have Project Names. Columns G-O have numbers.

What I need to do is run a custom sort multiple times down the page so that each week has been sorted by Project Name (column C). I was hoping to be to just make a quick macro shortcut to run my custom sort and each new range I selected but I don't know how to make the macro run on the actively selected cells and not hard-coded cells. Any help will be much appreciated.

 

[Joe4]

If you record a macro to do what you want, just change the hard-coded cell references to "Selection" to apply it to the actively selected cells.

 

[rocksolid77]

Thanks for your time Joe, I wasn't quite sure of the syntax to use but after playing around with it a while I think I got it. Here's the code if anyone has a similar question.

Sub SortWeek()

Application.ScreenUpdating = False

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("C:C" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Selection
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Just change

ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("C:C"

for whichever range you want to sort. The code above will sort the values in column C alphabetically.