Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort code doesn't work on first pass, works on second
Good morning,
I have a daily file where the user goes and updates some queries from an AS400, then runs my macro in a report speadsheet to format the new day's info. In the course of the macro, I do the following sort. On a new day, the sort from what I can tell doesn't work, but then if you run it again it works like I want it to work. Is there something I need to reset when I start to make the sort work the first time? I do a lot of other things after the sort and somewhere in there I must do what I need to do but I haven't been able to figure out what it is. (I tried it with and without clearing the sort fields first and that doesn't matter. Thanks. Columns("A:P").Select ActiveWorkbook.Worksheets("Sheet2").Sort.SortField s.Clear ActiveWorkbook.Worksheets("Sheet2").Sort.SortField s.Add Key:=Range("P2:P1000" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet2").Sort.SortField s.Add Key:=Range("I2:I1000" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet2").Sort.SortField s.Add Key:=Range("B2:B1000" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet2").Sort .SetRange Range("A1:P1000") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With -- Thanks, Rick H |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sort code doesn't work on first pass, works on second
Well I revisited this and figured it out so since I use other people's
answered questions a lo I figured I'd add what I found in case it helps someone else. Somehow I had left some subtotals on in the area where I was dropping in the new data for the new day. Somehow the first time my macro ran the subtotals weren't removed, but then the next time I ran it they were. I moved the line clearing the subtotals down a bit in the code and fixed it. Upshot - If you sort works intermittently chec whether you have any subtotalling going on. -- Rick H |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code that sort of works | Excel Programming | |||
Commandbar works first pass, but not thereafter | Excel Programming | |||
Code not work Take same action on all wkshts or selected works | Excel Programming | |||
VBA Code works in Excel 2003 but won't work in Excel 2000 | Excel Programming | |||
VBA Code works in Excel 2003 but won't work in Excel 2000 | Excel Programming |