Code for variable sort order

B

BB Ivan

I'm trying to code a program that allows flexible sorting based on certain
criteria. I'm having trouble using a variable for sort order. Here is the
code. When I hard code sort order (i.e., xlAscending or xlDescending) it
works fine. Any suggestions on how to make sort order accept a variable?

Selection.Sort Key1:=Range(mSortKey1), Order1:=mSortOrder1, _
Key2:=Range(mSortKey2), Order2:=mSortOrder2, _
Key3:=Range(mSortKey3), Order3:=mSortOrder3, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

Thanks,

Ivan
 
J

Jacob Skaria

Put this declaration on top and try changing the sort orders 1 for ascending
and 2 for descending.

Dim mSortOrder1 As Variant,mSortOrder2 As Variant,mSortOrder3 As Variant

mSortOrder1 = 1
mSortOrder2 = 1
mSortOrder3 = 1
 
B

BB Ivan

That works! (xlAscending/Descending did not). Thanks!

Do you know the whereaboubts of a reference for all "xl" settings like
these? For example, I've encountered the same problem trying to establish
variables for print header/footer settings.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top