On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?

I made a typo when copying the code is "End Sub".

"Francisco" wrote:

On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?

The range in Key1 is not full qualified,
try this:
Sheets(1).Range(SortRange1).Sort _
Key1:=Sheets(1).Range(CellToSort), _
Order1:=xlAscending, Header:=xlYes

Helmut.

"Francisco" schrieb im Newsbeitrag
...
On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?

Thanks, but it does not work.
I have sheet(1) as active sheet and it does work on Excel 2003, the problem
is Excel 2007.

"Helmut Meukel" wrote:

The range in Key1 is not full qualified,
try this:
Sheets(1).Range(SortRange1).Sort _
Key1:=Sheets(1).Range(CellToSort), _
Order1:=xlAscending, Header:=xlYes

Helmut.

"Francisco" schrieb im Newsbeitrag
...
On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?


.

Your code, as posted originally, worked fine for me on my copy of XL2007. I
did not get any error when I tried it with headers in A1:G1, sample data in
A2:G10 and using this line to call your code...

SortSalary "C1", "A1:G10"

No errors were reported and the data sorted as expected.

--
Rick (MVP - Excel)



"Francisco" wrote in message
...
Thanks, but it does not work.
I have sheet(1) as active sheet and it does work on Excel 2003, the
problem
is Excel 2007.

"Helmut Meukel" wrote:

The range in Key1 is not full qualified,
try this:
Sheets(1).Range(SortRange1).Sort _
Key1:=Sheets(1).Range(CellToSort), _
Order1:=xlAscending, Header:=xlYes

Helmut.

"Francisco" schrieb im Newsbeitrag
...
On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?


.

This is very very odd.
My built is 12.0.6214.1000

"Rick Rothstein" wrote:

Your code, as posted originally, worked fine for me on my copy of XL2007. I
did not get any error when I tried it with headers in A1:G1, sample data in
A2:G10 and using this line to call your code...

SortSalary "C1", "A1:G10"

No errors were reported and the data sorted as expected.

--
Rick (MVP - Excel)



"Francisco" wrote in message
...
Thanks, but it does not work.
I have sheet(1) as active sheet and it does work on Excel 2003, the
problem
is Excel 2007.

"Helmut Meukel" wrote:

The range in Key1 is not full qualified,
try this:
Sheets(1).Range(SortRange1).Sort _
Key1:=Sheets(1).Range(CellToSort), _
Order1:=xlAscending, Header:=xlYes

Helmut.

"Francisco" schrieb im Newsbeitrag
...
On Excel 2003 it works perfectly, on Excel 2007 I have error 1004 "sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?


.

.

My build is 12.0.6524.5003 and it is SP2.

--
Rick (MVP - Excel)



"Francisco" wrote in message
...
This is very very odd.
My built is 12.0.6214.1000

"Rick Rothstein" wrote:

Your code, as posted originally, worked fine for me on my copy of XL2007.
I
did not get any error when I tried it with headers in A1:G1, sample data
in
A2:G10 and using this line to call your code...

SortSalary "C1", "A1:G10"

No errors were reported and the data sorted as expected.

--
Rick (MVP - Excel)



"Francisco" wrote in message
...
Thanks, but it does not work.
I have sheet(1) as active sheet and it does work on Excel 2003, the
problem
is Excel 2007.

"Helmut Meukel" wrote:

The range in Key1 is not full qualified,
try this:
Sheets(1).Range(SortRange1).Sort _
Key1:=Sheets(1).Range(CellToSort), _
Order1:=xlAscending, Header:=xlYes

Helmut.

"Francisco" schrieb im
Newsbeitrag
...
On Excel 2003 it works perfectly, on Excel 2007 I have error 1004
"sort
method of range class failed".


Sub SortSalary(CellToSort As String, SortRange1 As String)
Sheets(1).Range(SortRange1).Sort Key1:=Range(CellToSort),
Order1:=xlAscending, Header:=xlYes
End if


Is it a bug on Excel 2007?


.

.