Use Sort method for 2002/2003 in 2000.
Hello Bob ,
Thanks for your help again. Works fine.
Although i'd like to use the "xlsortTextAsNumbers" in Excel 2002
In one of the sheets ("Clients") column A has ClientNbrs in it (cells are
formatted as text) , for instance :
9522 Client1
..........
15321 Client12
........
95221 Client 253
if I sort it in Excel 2000 the result would be
15321
9522
95221
and in Excel2002 with xlSortTextAsNumbers the result is
9522
15321
95221
So , is there another way to achive this ?
Thanks
MarMo
"Bob Phillips" wrote in message
...
Just remove it
Worksheets("Clients").Range("A1").Sort _
Key1:=Worksheets("Clients").Columns("A"), _
Header:=xlYes
--
HTH
Bob Phillips
(replace xxxx in the email address with gmail if mailing direct)
"MarMo" wrote in message
...
Hi there ,
The options for the Sort method for Ms excel 2000 and MsExcel 2002/2003
are
slightly different.
The differences are the dataoptions in 2002.
I used both sort methods in the same application , but when i run it in
Excel 2000 i get an error .
Error on "xlSortTextasNumbers"
I would like the apllication i'm building to be used on Excel2000 and
Excel
2002 / 2003 and sort the data , even if it's another version of Excel.
To verify which Excel the user is using i capture the application.version
value
Is there a way to do this ?
Any suggestion is welcome
Thanks
MarMo
This is the code i'm using :
'declare variable
Public AppVer
-----------------------
Sub SortOutCustomersNbrs()
AppVer = Application.Version
Application.ScreenUpdating = False
Sheets("Clients").Activate
If AppVer < 10 Then
Worksheets("Clients").Range("A1").Sort _
Key1:=Worksheets("Clients").Columns("A"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Else
Worksheets("Clients").Range("A1").Sort _
Key1:=Worksheets("Clients").Columns("A"), _
Header:=xlYes, DataOption1:=xlSortTextAsNumbers
End If
Range("A1").Select
Sheets("Start").Activate
Range("A15").Select
Application.ScreenUpdating = True
End Sub
|