Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
Hi all, I am trying to sort data by Column A first, and then Column B. Both
columns are custom lists. I tried this code but it will only read my custom sort for Column A. Column B is sorted alphabetically ascending, not sorted by my custom list. Any ideas? (the header will be "yes" later...that's why it's there...) Private Sub Workbook_Open() Worksheets("Sheet1").Select Cells.Select Selection.Sort Key1:=Range("A1"), OrderCustom:=7, header:=xlNo, _ Key2:=Range("B1"), OrderCustom:=6, header:=xlNo Sheet1.Activate Range("A1").Select Range("A1").Activate End Sub Thanks! Cheryl -- carusso |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
Only one custom sort order is recognized per sort.
Run two separate sorts (using all data columns) - sort Column B then sort Column A. -- Jim Cone Portland, Oregon USA "carusso" wrote in message Hi all, I am trying to sort data by Column A first, and then Column B. Both columns are custom lists. I tried this code but it will only read my custom sort for Column A. Column B is sorted alphabetically ascending, not sorted by my custom list. Any ideas? (the header will be "yes" later...that's why it's there...) Private Sub Workbook_Open() Worksheets("Sheet1").Select Cells.Select Selection.Sort Key1:=Range("A1"), OrderCustom:=7, header:=xlNo, _ Key2:=Range("B1"), OrderCustom:=6, header:=xlNo Sheet1.Activate Range("A1").Select Range("A1").Activate End Sub Thanks! Cheryl -- carusso |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
great....thanks for the info. (I couldn't find that anywhere!)
-- carusso "Jim Cone" wrote: Only one custom sort order is recognized per sort. Run two separate sorts (using all data columns) - sort Column B then sort Column A. -- Jim Cone Portland, Oregon USA "carusso" wrote in message Hi all, I am trying to sort data by Column A first, and then Column B. Both columns are custom lists. I tried this code but it will only read my custom sort for Column A. Column B is sorted alphabetically ascending, not sorted by my custom list. Any ideas? (the header will be "yes" later...that's why it's there...) Private Sub Workbook_Open() Worksheets("Sheet1").Select Cells.Select Selection.Sort Key1:=Range("A1"), OrderCustom:=7, header:=xlNo, _ Key2:=Range("B1"), OrderCustom:=6, header:=xlNo Sheet1.Activate Range("A1").Select Range("A1").Activate End Sub Thanks! Cheryl -- carusso |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
OK, I thought I could figure this out...but not. I really don't know VBA,
just do a lot of copying and pasting and modifying. So can you please let me know how to code 2 separate sorts. Thanks! -- carusso "Jim Cone" wrote: Only one custom sort order is recognized per sort. Run two separate sorts (using all data columns) - sort Column B then sort Column A. -- Jim Cone Portland, Oregon USA "carusso" wrote in message Hi all, I am trying to sort data by Column A first, and then Column B. Both columns are custom lists. I tried this code but it will only read my custom sort for Column A. Column B is sorted alphabetically ascending, not sorted by my custom list. Any ideas? (the header will be "yes" later...that's why it's there...) Private Sub Workbook_Open() Worksheets("Sheet1").Select Cells.Select Selection.Sort Key1:=Range("A1"), OrderCustom:=7, header:=xlNo, _ Key2:=Range("B1"), OrderCustom:=6, header:=xlNo Sheet1.Activate Range("A1").Select Range("A1").Activate End Sub Thanks! Cheryl -- carusso |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
Two separate sorts, different key column and custom order in each...
'-- Sub MixEmUp() Selection.Sort key1:=Range("B1"), ordercustom:=6, header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom Selection.Sort key1:=Range("A1"), ordercustom:=7, header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom End Sub '-- The last sort determines the overall order of the data. Jim Cone Portland, Oregon USA "carusso" wrote in message OK, I thought I could figure this out...but not. I really don't know VBA, just do a lot of copying and pasting and modifying. So can you please let me know how to code 2 separate sorts. Thanks! -- carusso |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
ahhh..I still can't get it to work. Where exactly does your code go within
my code: Private Sub Workbook_Open() Worksheets("Sheet1").Select Cells.Select Selection.Sort Key1:=Range("A1"), OrderCustom:=7, header:=xlNo, _ Key2:=Range("B1"), OrderCustom:=6, header:=xlNo Sheet1.Activate Range("A1").Select Range("A1").Activate End Sub Clueless Cheryl in VBA Land... -- carusso "Jim Cone" wrote: Two separate sorts, different key column and custom order in each... '-- Sub MixEmUp() Selection.Sort key1:=Range("B1"), ordercustom:=6, header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom Selection.Sort key1:=Range("A1"), ordercustom:=7, header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom End Sub '-- The last sort determines the overall order of the data. Jim Cone Portland, Oregon USA "carusso" wrote in message OK, I thought I could figure this out...but not. I really don't know VBA, just do a lot of copying and pasting and modifying. So can you please let me know how to code 2 separate sorts. Thanks! -- carusso |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 2 Custom Lists
hold on....I finally got it to work....hallelujah! ;-) Thanks!
-- carusso "Jim Cone" wrote: Two separate sorts, different key column and custom order in each... '-- Sub MixEmUp() Selection.Sort key1:=Range("B1"), ordercustom:=6, header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom Selection.Sort key1:=Range("A1"), ordercustom:=7, header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom End Sub '-- The last sort determines the overall order of the data. Jim Cone Portland, Oregon USA "carusso" wrote in message OK, I thought I could figure this out...but not. I really don't know VBA, just do a lot of copying and pasting and modifying. So can you please let me know how to code 2 separate sorts. Thanks! -- carusso |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
custom lists and custom formulas? | Excel Discussion (Misc queries) | |||
Custom lists (XP) | Excel Discussion (Misc queries) | |||
Saving Sort Criteria (or Sort Lists) | Excel Worksheet Functions | |||
Custom Lists | Excel Discussion (Misc queries) | |||
Excel sort by Fill Color by custom list sort | Excel Discussion (Misc queries) |