How to use a Custom Sort in VBA w/custom list

[sorensjp]

Hi all,

I'm using an Advanced Filter for Khaki Table Range and would like to sort it based on the Custom List in ADMIN!A45:A65 then by Alphabetical names.

The code I'm trying to use below is in the SUB Sub KhakiSptCkr_RptTable():

Please Login or Register  to view this content.

Thank you for looking and your time.

V/r,
Jim

[MarvinP]

Hi Jim,

Did you create a custom sort first?
https://support.microsoft.com/en-us/...b-ba213ec2fd61

[sorensjp]

MarvinP,

Yes I did, however this is going to be used by others so my intent is to make the Sort transparent when they run the SUB Sub KhakiSptCkr_RptTable().

V/r,
Jim

[Fluff13]

You are mixing up the old & new style sorts, try

Please Login or Register  to view this content.

[sorensjp]

Fluff13,

Thank you for the Solution. I decided to Sort "KHAKI_TBL" before the running the Advanced Filter. Since "KHAKI_TBL" can viewed also.

I've slightly modified your code, however

Please Login or Register  to view this content.

What I don't get is why is this not Sorting from Row 20. What I'm getting is the Sort starts on Row 21.

I did try the the Cells (E19 & G19) in the .Sortfields.Add Range with the same results. There has got to be something I'm not seeing.

V/r,
Jim

[Fluff13]

As it's a structured table you need to change the Header to xlNo, as it only sorts the data body range.

[sorensjp]

Fluff13,

Well Duh! Haha! I feel a bit dumb. Thank you again for your help. I will be using that technique on this other project I'm building/rebuilding.

Again it appears as you've been gracious too soon to me as I cannot give you Rep.

V/r,
Jim

[Fluff13]

You're welcome & thanks for the feedback.