Hi,

I've got a sheet where I want to select and then sort, via a macro, a
colum of data.
It always starts at "A11", but the end is always different.
How do I select this and then sort it this way that the data behind it
(in colum "B11:E11" till the end) will follow.

I have this code, but for some reasson only the selected colum will
sort, the data in the collums behind it will not follow.

Range("A11").Select
Range(Selection, Selection.End(xlDown)).Sort Key1:=Range("A11"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Can somebody please help me out?
Either by changing this code, or a total different solution.

Regards,
Maus

Range("A11").Select
Range(Selection, Selection.End(xlDown)).Resize(,5).Sort
Key1:=Range("A11"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


--
Regards,
Tom Ogilvy


wrote in message
oups.com...
Hi,

I've got a sheet where I want to select and then sort, via a macro, a
colum of data.
It always starts at "A11", but the end is always different.
How do I select this and then sort it this way that the data behind it
(in colum "B11:E11" till the end) will follow.

I have this code, but for some reasson only the selected colum will
sort, the data in the collums behind it will not follow.

Range("A11").Select
Range(Selection, Selection.End(xlDown)).Sort Key1:=Range("A11"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Can somebody please help me out?
Either by changing this code, or a total different solution.

Regards,
Maus

or
lr=range("a11").end(xldown).row
range("a11:e"&lr).sort etc

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Hi,

I've got a sheet where I want to select and then sort, via a macro, a
colum of data.
It always starts at "A11", but the end is always different.
How do I select this and then sort it this way that the data behind it
(in colum "B11:E11" till the end) will follow.

I have this code, but for some reasson only the selected colum will
sort, the data in the collums behind it will not follow.

Range("A11").Select
Range(Selection, Selection.End(xlDown)).Sort Key1:=Range("A11"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Can somebody please help me out?
Either by changing this code, or a total different solution.

Regards,
Maus

Gentleman,


Thank you for your solutions.
They are working both...of course...:-)
But......
For some reason, the data from the row of cell "A11" is the only data
that won't be sorted.
The rest sorts fine, but the row of "A11" stays, like it was before
sorting.
And this is NOT because the data starts with an 'A'.

Can you please provide me with any help on that as well???

regards,
Maus

Hi

Maybe it's because you have
Header = xlGuess and XL is guessing wrongly.
Try changing to
Header =xlNo
and see if it makes a difference.

--
Regards

Roger Govier


wrote in message
ps.com...
Gentleman,


Thank you for your solutions.
They are working both...of course...:-)
But......
For some reason, the data from the row of cell "A11" is the only data
that won't be sorted.
The rest sorts fine, but the row of "A11" stays, like it was before
sorting.
And this is NOT because the data starts with an 'A'.

Can you please provide me with any help on that as well???

regards,
Maus

Thank you Rogier.....
That did the trick...!