clenaner code to sort

daveyc18

Well-known Member
Joined
Feb 11, 2013
Messages
739
Office Version
  1. 365
  2. 2010
hi guys used the recorder for this

Code:
finalrow = Cells(Rows.Count, "A").End(xlUp).Row




    ActiveWorkbook.Worksheets("Domestic NI").Sort.SortFields.Clear


    ActiveWorkbook.Worksheets("Domestic NI").Sort.SortFields.Add Key:=Range( _
        "A10:A" & finalrow), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal


        
    ActiveWorkbook.Worksheets("Domestic NI").Sort.SortFields.Add Key:=Range( _
        "R10:R" & finalrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
        
    With ActiveWorkbook.Worksheets("Domestic NI").Sort
        .SetRange Range("A10:T" & finalrow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

basically sorting column A from "Z to A" and then adding another sort after ...sorting column "R" from oldest to newest...and I'm highlighting columns A to T first before I use the ribbon to sort.

i'm not confident in cleaning up the code, so would like some help please.
 
Last edited:

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.
And what is the problem?
Is not sorting all the rows correctly?
Maybe it has a filter, then you have to remove the autofilter before you get the last row.





Code:
[COLOR=#0000ff]    If Sheets("Domestic NI").AutoFilterMode Then Sheets("Domestic NI").AutoFilterMode = False

[/COLOR]
    finalrow = Cells(Rows.Count, "A").End(xlUp).Row


    ActiveWorkbook.Worksheets("Domestic NI").Sort.SortFields.Clear


    ActiveWorkbook.Worksheets("Domestic NI").Sort.SortFields.Add Key:=Range( _
        "A10:A" & finalrow), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
        
    ActiveWorkbook.Worksheets("Domestic NI").Sort.SortFields.Add Key:=Range( _
        "R10:R" & finalrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
        
    With ActiveWorkbook.Worksheets("Domestic NI").Sort
        .SetRange Range("A10:T" & finalrow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Last edited:
Upvote 0
there's no problem per se but I just want the "unrecorded " / cleaner /concise version of the code for this type of task
 
Last edited:
Upvote 0
Try:

Code:
    Set datos = Range("A10:T" & Cells(Rows.Count, "A").End(xlUp).Row)
    datos.Sort key1:=Range("A10"), order1:=xlDescending, key2:=Range("R10"), order2:=xlAscending, Header:=xlNo
 
Upvote 0
Solution

Forum statistics

Threads
1,222,435
Messages
6,166,019
Members
452,008
Latest member
Customlogoflipflops

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top