Help with SORT property in xl2007 and xl2007 !!!!!!!!!!!!!!!!!!!!

A

Ayo

I have this line of code in my macro. Someone with Excel 2003 can go past it.

BOReportWS.Sort.SortFields.Clear

Is there a way to get it to run in xl2003?


'BOReportWS.Sort.SortFields.Add Key:=Range("A3:A" & BO_DownloadWS_lastRow)
 
D

Dave Peterson

xl2007 still supports the old syntax. So you could create the macro (record
it???) in xl2003 and it'll work ok.

This may help (or not!):

Dim wks As Worksheet
Dim myRng As Range

Set wks = Worksheets("Sheet9999")

With wks
Set myRng = .Range("A3:x" & BO_DownloadWS_lastRow)
End With

With myRng
.Cells.Sort _
key1:=.Columns(1), order1:=xlAscending, _
key2:=.Columns(3), order1:=xlAscending, _
header:=xlYes
End With

This is sorting A3:X(lastrow) by columns A and C. And the data has header in
the first row.
 
A

Ayo

Thanks Dave.
I was thinking of actually using both versions by inserting an:
If Application.Version>12.0 then
Use xl2007 syntax
ElseIf Application.Version<12.0 then
Use xl2003 syntax
End If
 
J

Javed

xl2007 still supports the old syntax.  So you could create the macro (record
it???) in xl2003 and it'll work ok.

This may help (or not!):

    Dim wks As Worksheet
    Dim myRng As Range

    Set wks = Worksheets("Sheet9999")

    With wks
        Set myRng = .Range("A3:x" & BO_DownloadWS_lastRow)
    End With

    With myRng
        .Cells.Sort _
            key1:=.Columns(1), order1:=xlAscending, _
            key2:=.Columns(3), order1:=xlAscending, _
            header:=xlYes
    End With

This is sorting A3:X(lastrow) by columns A and C.  And the data has header in
the first row.
Click to expand...

This line is wrong key2:=.Columns(3), order1:=xlAscending, _
This line is correct key2:=.Columns(3), order2:=xlAscending, _
 
D

Dave Peterson

Thanks for the correction.



Javed wrote:
This line is wrong key2:=.Columns(3), order1:=xlAscending, _
This line is correct key2:=.Columns(3), order2:=xlAscending, _
Click to expand...
 
Top