Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why code work in 2003 but not 2000?
The following code works fine in 2003 but not in 2000. Any idea why?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" Or Target.Address = "$E$8" Then Application.ScreenUpdating = False Sheets("Ranking Detail").Range("B10:W32").Sort Key1:=Sheets("Ranking Detail").Range("F10"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C2").Select updte End If End Sub Cheers, Job |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why code work in 2003 but not 2000?
I believe the DataOption argument was added in 2002 or 2003. Omit
it from your code. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Job" wrote in message ... The following code works fine in 2003 but not in 2000. Any idea why? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" Or Target.Address = "$E$8" Then Application.ScreenUpdating = False Sheets("Ranking Detail").Range("B10:W32").Sort Key1:=Sheets("Ranking Detail").Range("F10"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C2").Select updte End If End Sub Cheers, Job |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why code work in 2003 but not 2000?
Perfect. Thanks!
"Chip Pearson" wrote in message ... I believe the DataOption argument was added in 2002 or 2003. Omit it from your code. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Job" wrote in message ... The following code works fine in 2003 but not in 2000. Any idea why? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" Or Target.Address = "$E$8" Then Application.ScreenUpdating = False Sheets("Ranking Detail").Range("B10:W32").Sort Key1:=Sheets("Ranking Detail").Range("F10"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C2").Select updte End If End Sub Cheers, Job |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Work Week, Excel 2000 & 2003 | Excel Worksheet Functions | |||
Macros created in 2003 won't work in 2000 | Excel Discussion (Misc queries) | |||
Macros won't work in 2000 that are created in 2003 | Excel Discussion (Misc queries) | |||
will macro created in excell 2003 work if run using 2000 | Excel Discussion (Misc queries) | |||
Excel 2000 to 2003 update links doesn't work properly any suggest | Excel Worksheet Functions |