CODE rectification while sorting in descending order

[Thulasiram]

Hello all,

I have a a small set like this:

1.1 1 1 1 0 0 3
1.2 1 0 0 1 0 2
1.3 1 0 0 0 0 1
2.1 0 1 1 1 1 4
2.2 1 1 1 1 1 5

This set should be rearranged according to the descending order of the
last column. i.e. last column is sorted in descending order and its
corresponding rows are swapped accordingly.

End result would be:

2.2 1 1 1 1 1 5
2.1 0 1 1 1 1 4
1.1 1 1 1 0 0 3
1.2 1 0 0 1 0 2
1.3 1 0 0 0 0 1

I am using a code like this.

sub test()

Dim rng As Range

Set rng = Range("A2:G6") ' where A2 is 1 and G6 is 5
rng.Copy Destination:=Range("A10") ' copies the range to the A10 and
pastes the range

Range("O6").CurrentRegion.Sort Key1:=Range("O6"), Order1:=xlDescending

end sub

How to change the code to arrive at the end result as given in the
example above? Please help.

Thanks,
Thulasiram

 

[Thulasiram]

Sorry, the line in the sub in previous post should have been:

Range("G10").CurrentRegion.Sort Key1:=Range("G10"),
Order1:=xlDescending

This arranges the last column in descending order but not its
associated rows.

The full procedure is given again:

sub test()
Dim rng As Range

Set rng = Range("A2:G6")
rng.Copy Destination:=Range("A10")

Range("G10").CurrentRegion.Sort Key1:=Range("G10"),
Order1:=xlDescending
End Sub

Thanks,
Thulasiram

 

[Guest]

Range("A2:G6").Sort Key1:=Range("G2"), Order1:=xlDescending

 

[Thulasiram]

That was perfect Jim.

Thanks...

Range("A2:G6").Sort Key1:=Range("G2"), Order1:=xlDescending

 

[Guest]

Change "Range("G10")" to "Range("A2:G10")" and all the data will sort as
intended.

 

[Guest]

Glad I could help.
--
Best wishes,

Jim

That was perfect Jim.

Thanks...

 

[Thulasiram]

The modified code given in the second post solved the problem that I
faced (in my first post in this thread). I was able to rectify it. So,
got the solution!

Just wanted to post the update so that none ponders over the solved
issue.

Thanks,
Thulasiram