| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort on 3 keys
"Jim Cone" wrote: You are sorting a single row. To the best of my knowledge multiple keys are not allowed. Also, MS in its wisdom has assigned values to the constants as follows, so... Not what I wanted to do. Thanks, xlLeftToRight = 2 xlTopToBottom = 1 while... xlSortRows = 2 xlSortColumns = 1 You need an orientation constant with a value of 2. Also, blanks sort to the bottom/right so sorting A1:Q1 is going to jam those three cells all the way to left if the other cells are blank. Note: "With ActiveSheet" is inoperative (no dots). See how this works for you... Sub SortDivDept() 'sorts by Division, Department & Status Dim Rng As Range Set Rng = ActiveSheet.Range("O1:Q1") Rng.Sort key1:=Rng, Orientation:=xlLeftToRight, MatchCase:=False End Sub '-------------- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "Janis" wrote in message the division header field is 15,1 dept header field is 16,1 status header field is 17,1 I want this to sort on all 3 in this order. The sort doesn't work thanks, Sub SortDivDept() 'sorts by Divsion, Department & Status Dim Rng As Range Set Rng = Range("A1:Q1") With ActiveSheet Rng.Sort key1:=Cells(15, 1), key2:=Cells(16, 1), key3:=Cells(17, 1), Orientation:=xlSortColumns, MatchCase:=False End With End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Many Sort Keys | New Users to Excel | |||
| Array Sort on 2 keys | Excel Programming | |||
| Need to know the Sort Column Keys | Excel Programming | |||
| Sort using 4 keys | Excel Programming | |||
| Dynamically set Sort keys | Excel Programming | |||
Hybrid Mode
