Should do it. Or just use AUTOFILTER on the original to get one at a time to
view.
Option Explicit
Sub GetCountryData_SAS()
'fire while at Tes sheet
Dim lr As Long
Dim i As Long
Columns("I").Delete
lr = Cells(Rows.Count, 1).End(xlUp).Row
'get unique list
Range("h1:h" & lr).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("I1"), Unique:=True
'sort unique
Range("i2:i" & lr).Sort Key1:=Range("I2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1:H1,I2:I5").Font.Bold = True
'filter and copy
With Sheets("Sheet1")
For i = 2 To Cells(Rows.Count, "i").End(xlUp).Row
Cells(i, "i").Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Range("A1:H" & lr).AutoFilter Field:=8, Criteria1:=Cells(i, "I")
Range("A1:H" & lr).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Next i
Range("A1:H" & lr).AutoFilter
.Columns.AutoFit
End With
Columns("I").Delete
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: suryaprasad...@gmail.com
Sent: Thursday, October 13, 2011 12:13 AM
To: excel-macros@googlegroups.com
Subject: Fw: $$Excel-Macros$$ Help required
Hi Guys can anyone help me on this please
Thanks
Prasad
Sent from BlackBerry® on Airtel
--------------------------------------------------------------------------------
From: Mr Excellent <suryaprasad...@gmail.com>
Sender: excel-macros@googlegroups.com
Date: Thu, 13 Oct 2011 04:52:12 +0530
To: <excel-macros@googlegroups.com>
ReplyTo: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Help required
Hi Group,
Need a small help, i have a code which runs on the data and seggregates the
details as per the Country, but additional to that i require the Country name
should come on the top of each rows which are divided by country in the first
column and the heading should be applicable to all the seggregated rows as per
the country and should be bold and underlined.
The example data is given in the first TAB "Tes"
My Code example data is given in the second TAB "My Code"
Actual required data is given in third TAB " Actual Required"
Please help
Thanks
Prasad.
--
----------------------------------------------------------------------------------
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
--
----------------------------------------------------------------------------------
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
