Try this:
Sub SortList()
On Error Resume Next
Dim Record As Integer
Record = ActiveSheet.UsedRange.Rows.Count
For i = 1 To Record
If Range("D" & i).Value = "HD" Then
Range("D" & i + 1).Select
ActiveCell.Resize(ActiveCell.End(xlDown).Row,
ActiveCell.End(xlToRight).Column).Sort Range("F" & i)
End If
Next
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Cab Boose
Sent: Friday, August 26, 2011 6:41 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Multiple sorts on one Sheet
Hi
On attached workbook there is a sheet tha has multiple lists with empty
rows in between. No of empty rows can vary.
What I am trying to do is sort each list on the list into say into col F
ascending order. Once the first list sorted vba takes it onto the next
list, until all lists have been sorted. The empty rows still remain.
Each list is always started with a heading row which with a ' HD' ref in the
same row D. Is this the best reference for finding each list.
In plain English
go to first entry of HD
xldown to last entry in that list
data sort by col F
next list
Your help would be appreciated.
Thanks
Charlie Harris
--
----------------------------------------------------------------------------
------
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 excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
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 excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
