Code for variable sort order
 

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


--
Jacob (MVP - Excel)


"BB Ivan" wrote:

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

Code for variable sort order
 

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.

"Jacob Skaria" wrote:

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


--
Jacob (MVP - Excel)


"BB Ivan" wrote:

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