Sorting multiple columns using VBA

Question

I have to sort columns in Excel on their values.

I worked out the following procedure:

With calcCalculations

    With .Sort    
        .SortFields.Add Key:=Range("BR2:BR5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("BV2:BV5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("CA2:CA5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=Range("CD2:CD5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

        .SetRange Range("BR:CD")
        .Header = xlYes
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
    End With

End with

The procedure does not error out, but it is not sorting my data.

At the end, .apply otherwise you only set.

user3514930
– user3514930

2014-08-06 05:43:25 +00:00
Commented Aug 6, 2014 at 5:43 — user3514930
– user3514930, Commented Aug 6, 2014 at 5:43

balinjdl · Accepted Answer · 2015-03-30 18:09:43Z

2

As user3514930 said: You're missing the .Apply before the End With

answered Mar 30, 2015 at 18:09

balinjdl

3363 silver badges11 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Nicholas Deering · Accepted Answer · 2019-12-11 21:10:43Z

                With calcCalculations

With .Sort

.SortFields.Add Key:=Range("BR2:BR5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("BV2:BV5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("CA2:CA5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("CD2:CD5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

         .SetRange Range("BR:CD")
         .Header = xlYes
         .MatchCase = True
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
        End With

End with

As the other users said.

Collectives™ on Stack Overflow

Sorting multiple columns using VBA

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related