VBA Code - Sort by Custom List Reference

[tlc53]

Hi there,

I am trying to sort my data which is located under headings A52:K52 by the account number order, as stipulated in cells K21:K35.

This is my attempt but it is possible I'm way off the mark. Can anyone see how I can get this working please?

I don't want to refer to a particular sheet, it just needs to run on the active sheet.

Thank you!!

Sub CustomSort()


    Selection.CurrentRegion.Select
    Application.AddCustomList Selection:=Range("K21:K35")
    Sort.SortFields.Clear
    Sort.SortFields.Add2 Key:=Range("K53:K100000"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        Range("K21:K35"), DataOption:=xlSortNormal
    Sort.ActiveSheet
        .SetRange Range("A52:K100000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply


End Sub

 

[James006]

Hi,

Since you have added your Custom List to all available lists ... you could test following modification:

CustomOrder:=Application.CustomListCount + 1

Hope this will help

 

[Peter_SSs]

Duplicate to https://www.mrexcel.com/forum/excel-questions/1107148-vba-format-rows-containing-word-total-post5359592.html#post5359592

Please do not post the same question multiple times. Questions of a duplicate nature will be locked or deleted, per #12 of the Forum Rules and points 6 & 7 of the Forum Use Guidelines.

Any bumps, clarifications, or follow-ups should be posted to the linked thread.