Auto sort values from highest to lowest based off of value

I need the close% column to auto sort from highest to lowest so that I can see at a glance who the top sales person is. I have conditional formatting for the top three but I would rather them auto sort by close%, can anybody help me with this. I have attached the file, thanks for your help!

Select each block of cells one at time..

So for the first one, highlight cells A6:D17. Under the home ----> editing section, select sort and filter ----> custom sort. For sort by selection close% and then change order to largest to smallest. You will have to do that same thing for each block of cells, but that should do it.

Thank you for the response but that's not exactly what I need done. I need it to auto sort whenever the values are changed so that I don't have to do it manually each time I put in numbers.

See the attached example.
On Sheet1, the marked column of data gets sorted in ascending order every time you add another value in that range or delete or change a value.
Hope it helps.
Expand the range as you need in the Macro.
modytrane

Here's your file.
I had to create column A with copies of pct and sort all five column.
If you change any value for any sales rep.i Nashua, that block will automatically sort.
Hope it helps.
modytrane.

any one can help me on that please?

Here's the Macro used in the example posted before.

Private Sub Worksheet_Change(ByVal Target As Range)
 Range("B6:E17").Select
    Selection.Sort Key1:=Range("E6"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Range("H6:K17").Select
    Selection.Sort Key1:=Range("K6"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
    Range("B21:E32").Select
    Selection.Sort Key1:=Range("E21"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Range("H21:K32").Select
    Selection.Sort Key1:=Range("K21"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
              
        Range("C2").Select
End Sub

Paste this in to your Worksheet_Change _Event.

Hamadah,
I don't know your application.
If you can't make it work, post a sample of your worksheet.

modytrane

try the attached file and let me know if this works for you.


If you change anything on any of the three sheets, it will sort the NPT % table on "Contractors" sheet.

modytrane

Originally Posted by modytrane

try the attached file and let me know if this works for you.


If you change anything on any of the three sheets, it will sort the NPT % table on "Contractors" sheet.

modytrane

modytrane
Yes it is working very fine.Thank you thank you thank you so much. you are genius. i spent more than three weeks on it but i couldn't do it. I am realy appreciated. thank you again.

best regards,
hamadah

Hi
I copied your macro and pasted into my sheet but i could not get it to work

I used this code for an automatic sort, but the sort only work if I manually go into the cells that changed and hit enter. Is there anything I can add to the code to make it sort without doing this manually? The data being sorted in range B54 comes from another sheet and goes into the sorted area via formulas.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A54:E63").Select
Selection.Sort Key1:=Range("B54"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Calculation = xlCalculationAutomatic

End Sub

Thanks for any help!

I used this code for an automatic sort, but the sort only work if I manually go into the cells that changed and hit enter. Is there anything I can add to the code to make it sort without doing this manually? The data being sorted in range B54 comes from another sheet and goes into the sorted area via formulas.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A54:E63").Select
Selection.Sort Key1:=Range("B54"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Calculation = xlCalculationAutomatic

End Sub

Thanks for any help!