I've got an Excel application that was written in 2003. Now I find out I
have a user that is still using 2000, and at least one segment of my 2003
code is not working. I have a routine that selects a worksheet, and sorts it
by a particular field. When this user runs this code, it bomb on the last
line of the code provided below.

Selection.Sort Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

I don't know whether this is because Excel 9.0 is not recognizing the
DataOption1 or the xlSortNormal, or something else in the Sort method. Would
greatly appreciate if someone could provide the correct code to run this in
Excel 9.0.

Thanks.
--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.

Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which are n/a
in XL2000.

If required, you can make version specific functions by placing the code
that won't be recognized in say XL2000 in a module that will only contain
procedures that will be called in later versions.

Regards,
Peter T

"Dale Fye" <(E-Mail Removed)> wrote in message
news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> I've got an Excel application that was written in 2003. Now I find out I
> have a user that is still using 2000, and at least one segment of my 2003
> code is not working. I have a routine that selects a worksheet, and sorts
it
> by a particular field. When this user runs this code, it bomb on the last
> line of the code provided below.
>
> Selection.Sort Key1:=Range("A2"), _
> Order1:=xlAscending, _
> Header:=xlYes, _
> OrderCustom:=1, _
> MatchCase:=False, _
> Orientation:=xlTopToBottom, _
> DataOption1:=xlSortNormal
>
> I don't know whether this is because Excel 9.0 is not recognizing the
> DataOption1 or the xlSortNormal, or something else in the Sort method.
Would
> greatly appreciate if someone could provide the correct code to run this
in
> Excel 9.0.
>
> Thanks.
> --
> Don''t forget to rate the post if it was helpful!
>
> email address is invalid
> Please reply to newsgroup only.
>

DataOption# was added in xl2002. Remove that line (and the preceding line
continuation characers) and it should work in xl2k.



Dale Fye wrote:
>
> I've got an Excel application that was written in 2003. Now I find out I
> have a user that is still using 2000, and at least one segment of my 2003
> code is not working. I have a routine that selects a worksheet, and sorts it
> by a particular field. When this user runs this code, it bomb on the last
> line of the code provided below.
>
> Selection.Sort Key1:=Range("A2"), _
> Order1:=xlAscending, _
> Header:=xlYes, _
> OrderCustom:=1, _
> MatchCase:=False, _
> Orientation:=xlTopToBottom, _
> DataOption1:=xlSortNormal
>
> I don't know whether this is because Excel 9.0 is not recognizing the
> DataOption1 or the xlSortNormal, or something else in the Sort method. Would
> greatly appreciate if someone could provide the correct code to run this in
> Excel 9.0.
>
> Thanks.
> --
> Don''t forget to rate the post if it was helpful!
>
> email address is invalid
> Please reply to newsgroup only.

--

Dave Peterson

Thanks, Peter. I'll take a look.
--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.



"Peter T" wrote:

> Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which are n/a
> in XL2000.
>
> If required, you can make version specific functions by placing the code
> that won't be recognized in say XL2000 in a module that will only contain
> procedures that will be called in later versions.
>
> Regards,
> Peter T
>
> "Dale Fye" <(E-Mail Removed)> wrote in message
> news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > I've got an Excel application that was written in 2003. Now I find out I
> > have a user that is still using 2000, and at least one segment of my 2003
> > code is not working. I have a routine that selects a worksheet, and sorts
> it
> > by a particular field. When this user runs this code, it bomb on the last
> > line of the code provided below.
> >
> > Selection.Sort Key1:=Range("A2"), _
> > Order1:=xlAscending, _
> > Header:=xlYes, _
> > OrderCustom:=1, _
> > MatchCase:=False, _
> > Orientation:=xlTopToBottom, _
> > DataOption1:=xlSortNormal
> >
> > I don't know whether this is because Excel 9.0 is not recognizing the
> > DataOption1 or the xlSortNormal, or something else in the Sort method.
> Would
> > greatly appreciate if someone could provide the correct code to run this
> in
> > Excel 9.0.
> >
> > Thanks.
> > --
> > Don''t forget to rate the post if it was helpful!
> >
> > email address is invalid
> > Please reply to newsgroup only.
> >
>
>
>

if it's just sort routine causing problems then you could test for excel
version - something likenot tested)

With Selection
If Val(Application.Version) < 11 Then
.Sort Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
MatchCase:=False, _
Orientation:=xlTopToBottom
Else
.Sort Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End With
However, if more than this then follow Peter T suggestion.
--
JB


"Peter T" wrote:

> Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which are n/a
> in XL2000.
>
> If required, you can make version specific functions by placing the code
> that won't be recognized in say XL2000 in a module that will only contain
> procedures that will be called in later versions.
>
> Regards,
> Peter T
>
> "Dale Fye" <(E-Mail Removed)> wrote in message
> news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > I've got an Excel application that was written in 2003. Now I find out I
> > have a user that is still using 2000, and at least one segment of my 2003
> > code is not working. I have a routine that selects a worksheet, and sorts
> it
> > by a particular field. When this user runs this code, it bomb on the last
> > line of the code provided below.
> >
> > Selection.Sort Key1:=Range("A2"), _
> > Order1:=xlAscending, _
> > Header:=xlYes, _
> > OrderCustom:=1, _
> > MatchCase:=False, _
> > Orientation:=xlTopToBottom, _
> > DataOption1:=xlSortNormal
> >
> > I don't know whether this is because Excel 9.0 is not recognizing the
> > DataOption1 or the xlSortNormal, or something else in the Sort method.
> Would
> > greatly appreciate if someone could provide the correct code to run this
> in
> > Excel 9.0.
> >
> > Thanks.
> > --
> > Don''t forget to rate the post if it was helpful!
> >
> > email address is invalid
> > Please reply to newsgroup only.
> >
>
>
>

Dave was right, only need to remove the DataOption1 argument, OrderCustom
works in XL2000 (contrary to what I had suggested)

If using the application specific If test as suggested by John, and the
module is headed Option Explicit, change xlSortNormal to its intrinsic
Constant value (in the immediate window ?xlSortNormal and hit enter)

Regards,
Peter T

"Dale Fye" <(E-Mail Removed)> wrote in message
news:737AAB0D-D83A-443B-8CF2-(E-Mail Removed)...
> Thanks, Peter. I'll take a look.
> --
> Don''t forget to rate the post if it was helpful!
>
> email address is invalid
> Please reply to newsgroup only.
>
>
>
> "Peter T" wrote:
>
> > Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which are
n/a
> > in XL2000.
> >
> > If required, you can make version specific functions by placing the code
> > that won't be recognized in say XL2000 in a module that will only
contain
> > procedures that will be called in later versions.
> >
> > Regards,
> > Peter T
> >
> > "Dale Fye" <(E-Mail Removed)> wrote in message
> > news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > > I've got an Excel application that was written in 2003. Now I find
out I
> > > have a user that is still using 2000, and at least one segment of my
2003
> > > code is not working. I have a routine that selects a worksheet, and
sorts
> > it
> > > by a particular field. When this user runs this code, it bomb on the
last
> > > line of the code provided below.
> > >
> > > Selection.Sort Key1:=Range("A2"), _
> > > Order1:=xlAscending, _
> > > Header:=xlYes, _
> > > OrderCustom:=1, _
> > > MatchCase:=False, _
> > > Orientation:=xlTopToBottom, _
> > > DataOption1:=xlSortNormal
> > >
> > > I don't know whether this is because Excel 9.0 is not recognizing the
> > > DataOption1 or the xlSortNormal, or something else in the Sort method.
> > Would
> > > greatly appreciate if someone could provide the correct code to run
this
> > in
> > > Excel 9.0.
> > >
> > > Thanks.
> > > --
> > > Don''t forget to rate the post if it was helpful!
> > >
> > > email address is invalid
> > > Please reply to newsgroup only.
> > >
> >
> >
> >

I don't think that this will compile in xl2k. That DataOption1 portion will
cause a compile error.

There are workarounds, though.

if val(application.version) < 11 then
'do the sort right here
else
'call a routine in a different module that is written for xl2002+
end if

By having the routine in a different module, xl2k won't even try to compile it.

john wrote:
>
> if it's just sort routine causing problems then you could test for excel
> version - something likenot tested)
>
> With Selection
> If Val(Application.Version) < 11 Then
> .Sort Key1:=Range("A2"), _
> Order1:=xlAscending, _
> Header:=xlYes, _
> MatchCase:=False, _
> Orientation:=xlTopToBottom
> Else
> .Sort Key1:=Range("A2"), _
> Order1:=xlAscending, _
> Header:=xlYes, _
> OrderCustom:=1, _
> MatchCase:=False, _
> Orientation:=xlTopToBottom, _
> DataOption1:=xlSortNormal
> End If
> End With
> However, if more than this then follow Peter T suggestion.
> --
> JB
>
> "Peter T" wrote:
>
> > Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which are n/a
> > in XL2000.
> >
> > If required, you can make version specific functions by placing the code
> > that won't be recognized in say XL2000 in a module that will only contain
> > procedures that will be called in later versions.
> >
> > Regards,
> > Peter T
> >
> > "Dale Fye" <(E-Mail Removed)> wrote in message
> > news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > > I've got an Excel application that was written in 2003. Now I find out I
> > > have a user that is still using 2000, and at least one segment of my 2003
> > > code is not working. I have a routine that selects a worksheet, and sorts
> > it
> > > by a particular field. When this user runs this code, it bomb on the last
> > > line of the code provided below.
> > >
> > > Selection.Sort Key1:=Range("A2"), _
> > > Order1:=xlAscending, _
> > > Header:=xlYes, _
> > > OrderCustom:=1, _
> > > MatchCase:=False, _
> > > Orientation:=xlTopToBottom, _
> > > DataOption1:=xlSortNormal
> > >
> > > I don't know whether this is because Excel 9.0 is not recognizing the
> > > DataOption1 or the xlSortNormal, or something else in the Sort method.
> > Would
> > > greatly appreciate if someone could provide the correct code to run this
> > in
> > > Excel 9.0.
> > >
> > > Thanks.
> > > --
> > > Don''t forget to rate the post if it was helpful!
> > >
> > > email address is invalid
> > > Please reply to newsgroup only.
> > >
> >
> >
> >

--

Dave Peterson

Hi Dave,
Earlier I suggested pretty much the same as you as to how to cater for
multiple versions.
But somewhat to my surprise John's example does compile in my XL2k providing
xlSortNormal is changed to its appropriate number.

Regards,
Peter T



"Dave Peterson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I don't think that this will compile in xl2k. That DataOption1 portion
will
> cause a compile error.
>
> There are workarounds, though.
>
> if val(application.version) < 11 then
> 'do the sort right here
> else
> 'call a routine in a different module that is written for xl2002+
> end if
>
> By having the routine in a different module, xl2k won't even try to
compile it.
>
> john wrote:
> >
> > if it's just sort routine causing problems then you could test for excel
> > version - something likenot tested)
> >
> > With Selection
> > If Val(Application.Version) < 11 Then
> > .Sort Key1:=Range("A2"), _
> > Order1:=xlAscending, _
> > Header:=xlYes, _
> > MatchCase:=False, _
> > Orientation:=xlTopToBottom
> > Else
> > .Sort Key1:=Range("A2"), _
> > Order1:=xlAscending, _
> > Header:=xlYes, _
> > OrderCustom:=1, _
> > MatchCase:=False, _
> > Orientation:=xlTopToBottom, _
> > DataOption1:=xlSortNormal
> > End If
> > End With
> > However, if more than this then follow Peter T suggestion.
> > --
> > JB
> >
> > "Peter T" wrote:
> >
> > > Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which
are n/a
> > > in XL2000.
> > >
> > > If required, you can make version specific functions by placing the
code
> > > that won't be recognized in say XL2000 in a module that will only
contain
> > > procedures that will be called in later versions.
> > >
> > > Regards,
> > > Peter T
> > >
> > > "Dale Fye" <(E-Mail Removed)> wrote in message
> > > news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > > > I've got an Excel application that was written in 2003. Now I find
out I
> > > > have a user that is still using 2000, and at least one segment of my
2003
> > > > code is not working. I have a routine that selects a worksheet, and
sorts
> > > it
> > > > by a particular field. When this user runs this code, it bomb on
the last
> > > > line of the code provided below.
> > > >
> > > > Selection.Sort Key1:=Range("A2"), _
> > > > Order1:=xlAscending, _
> > > > Header:=xlYes, _
> > > > OrderCustom:=1, _
> > > > MatchCase:=False, _
> > > > Orientation:=xlTopToBottom, _
> > > > DataOption1:=xlSortNormal
> > > >
> > > > I don't know whether this is because Excel 9.0 is not recognizing
the
> > > > DataOption1 or the xlSortNormal, or something else in the Sort
method.
> > > Would
> > > > greatly appreciate if someone could provide the correct code to run
this
> > > in
> > > > Excel 9.0.
> > > >
> > > > Thanks.
> > > > --
> > > > Don''t forget to rate the post if it was helpful!
> > > >
> > > > email address is invalid
> > > > Please reply to newsgroup only.
> > > >
> > >
> > >
> > >
>
> --
>
> Dave Peterson

Hi Peter,
I had tried my suggested approach awhile ago for desktops using different
versions of Excel and much to my suprise, it worked. I think it's just one of
the Excel VBA quirks - you never know until you give it a go! However and as
I also stated, if changes required were more than just resolving sort routine
problem, Dale should follow your suggestion.
--
JB


"Peter T" wrote:

> Hi Dave,
> Earlier I suggested pretty much the same as you as to how to cater for
> multiple versions.
> But somewhat to my surprise John's example does compile in my XL2k providing
> xlSortNormal is changed to its appropriate number.
>
> Regards,
> Peter T
>
>
>
> "Dave Peterson" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > I don't think that this will compile in xl2k. That DataOption1 portion
> will
> > cause a compile error.
> >
> > There are workarounds, though.
> >
> > if val(application.version) < 11 then
> > 'do the sort right here
> > else
> > 'call a routine in a different module that is written for xl2002+
> > end if
> >
> > By having the routine in a different module, xl2k won't even try to
> compile it.
> >
> > john wrote:
> > >
> > > if it's just sort routine causing problems then you could test for excel
> > > version - something likenot tested)
> > >
> > > With Selection
> > > If Val(Application.Version) < 11 Then
> > > .Sort Key1:=Range("A2"), _
> > > Order1:=xlAscending, _
> > > Header:=xlYes, _
> > > MatchCase:=False, _
> > > Orientation:=xlTopToBottom
> > > Else
> > > .Sort Key1:=Range("A2"), _
> > > Order1:=xlAscending, _
> > > Header:=xlYes, _
> > > OrderCustom:=1, _
> > > MatchCase:=False, _
> > > Orientation:=xlTopToBottom, _
> > > DataOption1:=xlSortNormal
> > > End If
> > > End With
> > > However, if more than this then follow Peter T suggestion.
> > > --
> > > JB
> > >
> > > "Peter T" wrote:
> > >
> > > > Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal which
> are n/a
> > > > in XL2000.
> > > >
> > > > If required, you can make version specific functions by placing the
> code
> > > > that won't be recognized in say XL2000 in a module that will only
> contain
> > > > procedures that will be called in later versions.
> > > >
> > > > Regards,
> > > > Peter T
> > > >
> > > > "Dale Fye" <(E-Mail Removed)> wrote in message
> > > > news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > > > > I've got an Excel application that was written in 2003. Now I find
> out I
> > > > > have a user that is still using 2000, and at least one segment of my
> 2003
> > > > > code is not working. I have a routine that selects a worksheet, and
> sorts
> > > > it
> > > > > by a particular field. When this user runs this code, it bomb on
> the last
> > > > > line of the code provided below.
> > > > >
> > > > > Selection.Sort Key1:=Range("A2"), _
> > > > > Order1:=xlAscending, _
> > > > > Header:=xlYes, _
> > > > > OrderCustom:=1, _
> > > > > MatchCase:=False, _
> > > > > Orientation:=xlTopToBottom, _
> > > > > DataOption1:=xlSortNormal
> > > > >
> > > > > I don't know whether this is because Excel 9.0 is not recognizing
> the
> > > > > DataOption1 or the xlSortNormal, or something else in the Sort
> method.
> > > > Would
> > > > > greatly appreciate if someone could provide the correct code to run
> this
> > > > in
> > > > > Excel 9.0.
> > > > >
> > > > > Thanks.
> > > > > --
> > > > > Don''t forget to rate the post if it was helpful!
> > > > >
> > > > > email address is invalid
> > > > > Please reply to newsgroup only.
> > > > >
> > > >
> > > >
> > > >
> >
> > --
> >
> > Dave Peterson
>
>
>

Did you change xlSortNormal to a number, I assume so if you had included
Option Explicit

Regards,
Peter T

"john" <(E-Mail Removed)> wrote in message
news:7A92FB9B-0716-4D13-9051-(E-Mail Removed)...
> Hi Peter,
> I had tried my suggested approach awhile ago for desktops using different
> versions of Excel and much to my suprise, it worked. I think it's just one
of
> the Excel VBA quirks - you never know until you give it a go! However and
as
> I also stated, if changes required were more than just resolving sort
routine
> problem, Dale should follow your suggestion.
> --
> JB
>
>
> "Peter T" wrote:
>
> > Hi Dave,
> > Earlier I suggested pretty much the same as you as to how to cater for
> > multiple versions.
> > But somewhat to my surprise John's example does compile in my XL2k
providing
> > xlSortNormal is changed to its appropriate number.
> >
> > Regards,
> > Peter T
> >
> >
> >
> > "Dave Peterson" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed)...
> > > I don't think that this will compile in xl2k. That DataOption1
portion
> > will
> > > cause a compile error.
> > >
> > > There are workarounds, though.
> > >
> > > if val(application.version) < 11 then
> > > 'do the sort right here
> > > else
> > > 'call a routine in a different module that is written for xl2002+
> > > end if
> > >
> > > By having the routine in a different module, xl2k won't even try to
> > compile it.
> > >
> > > john wrote:
> > > >
> > > > if it's just sort routine causing problems then you could test for
excel
> > > > version - something likenot tested)
> > > >
> > > > With Selection
> > > > If Val(Application.Version) < 11 Then
> > > > .Sort Key1:=Range("A2"), _
> > > > Order1:=xlAscending, _
> > > > Header:=xlYes, _
> > > > MatchCase:=False, _
> > > > Orientation:=xlTopToBottom
> > > > Else
> > > > .Sort Key1:=Range("A2"), _
> > > > Order1:=xlAscending, _
> > > > Header:=xlYes, _
> > > > OrderCustom:=1, _
> > > > MatchCase:=False, _
> > > > Orientation:=xlTopToBottom, _
> > > > DataOption1:=xlSortNormal
> > > > End If
> > > > End With
> > > > However, if more than this then follow Peter T suggestion.
> > > > --
> > > > JB
> > > >
> > > > "Peter T" wrote:
> > > >
> > > > > Remove arguments OrderCustom:=1 and DataOption1:=xlSortNormal
which
> > are n/a
> > > > > in XL2000.
> > > > >
> > > > > If required, you can make version specific functions by placing
the
> > code
> > > > > that won't be recognized in say XL2000 in a module that will only
> > contain
> > > > > procedures that will be called in later versions.
> > > > >
> > > > > Regards,
> > > > > Peter T
> > > > >
> > > > > "Dale Fye" <(E-Mail Removed)> wrote in message
> > > > > news:46391028-E61D-4460-B9D8-(E-Mail Removed)...
> > > > > > I've got an Excel application that was written in 2003. Now I
find
> > out I
> > > > > > have a user that is still using 2000, and at least one segment
of my
> > 2003
> > > > > > code is not working. I have a routine that selects a worksheet,
and
> > sorts
> > > > > it
> > > > > > by a particular field. When this user runs this code, it bomb
on
> > the last
> > > > > > line of the code provided below.
> > > > > >
> > > > > > Selection.Sort Key1:=Range("A2"), _
> > > > > > Order1:=xlAscending, _
> > > > > > Header:=xlYes, _
> > > > > > OrderCustom:=1, _
> > > > > > MatchCase:=False, _
> > > > > > Orientation:=xlTopToBottom, _
> > > > > > DataOption1:=xlSortNormal
> > > > > >
> > > > > > I don't know whether this is because Excel 9.0 is not
recognizing
> > the
> > > > > > DataOption1 or the xlSortNormal, or something else in the Sort
> > method.
> > > > > Would
> > > > > > greatly appreciate if someone could provide the correct code to
run
> > this
> > > > > in
> > > > > > Excel 9.0.
> > > > > >
> > > > > > Thanks.
> > > > > > --
> > > > > > Don''t forget to rate the post if it was helpful!
> > > > > >
> > > > > > email address is invalid
> > > > > > Please reply to newsgroup only.
> > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > > --
> > >
> > > Dave Peterson
> >
> >
> >