try it
Sub reverse_order()
Dim i, j As Integer
j = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For i = 1 To j
Sheet1.Cells(i, 2).Value = Sheet1.Cells((j + 1) - i, 1)
Next i
End Sub
--
Thanks & regards,
Noorain Ansari
*http://noorain-ansari.blogspot.com/* <http://noorain-ansari.blogspot.com/>
---------- Forwarded message ----------
From: qcan <[email protected]>
Date: Wed, Jul 27, 2011 at 3:38 AM
Subject: $$Excel-Macros$$ Reverse Sorting Of Rows
To: MS EXCEL AND VBA MACROS <[email protected]>
Hi,
A little different request here. I am looking for a way to reverse
sort rows:
Example:
ABC123
ABC493
ABC961
Would become sorted in decending order as:
ABC961
ABC123
ABC493
Thanks.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
