And if you still insist :)
Sub Consolidator()
Dim col As New Collection
Dim lngRow As Long
Dim strSheetName As String
For lngRow = Sheets.Count To 1 Step -1
Application.DisplayAlerts = 0
If Sheets(lngRow).Name <> "Jan1Rake" Then 'ActiveSheet.Name Then
Sheets(lngRow).Delete
End If
Application.DisplayAlerts = 1
Next
strSheetName = ActiveSheet.Name
For lngRow = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lngRow, "D").Value <> "" Then
On Error Resume Next
col.Add Cells(lngRow, "D").Value, Cells(lngRow, "D").Value
Err.Clear: On Error GoTo 0
End If
Next lngRow
For lngRow = 1 To col.Count
Worksheets(strSheetName).Range("A2:K" &
Worksheets(strSheetName).Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter 4,
col.Item(lngRow)
With Worksheets.Add(After:=Sheets(Sheets.Count))
.Name = col.Item(lngRow)
Worksheets(strSheetName).Range("A2:K" &
Worksheets(strSheetName).Cells(Rows.Count, 1).End(xlUp).Row).Copy .Cells(1)
End With
Next lngRow
Worksheets(strSheetName).AutoFilterMode = 0
End Sub
Regards,
Sam Mathai Chacko
On Tue, Jan 31, 2012 at 7:58 PM, dguillett1 <dguille...@gmail.com> wrote:
> I suggest you NOT do that. Instead delete the blanks and use
> data>filter>autofilter>filter as desired.
>
> Don Guillett
> SalesAid Software
> dguille...@gmail.com
>
> *From:* raghu gr <balaji.bra...@gmail.com>
> *Sent:* Tuesday, January 31, 2012 8:04 AM
> *To:* excel-macros@googlegroups.com
> *Subject:* $$Excel-Macros$$
>
> Hi,
>
> In customer data base i want to copy each customer details in each page.
>
> mean to say - i want Ramu details in Page2 (3 rows), Bhaskar details in
> page3, Shannu details in page 4 and so on.
>
> how to do this using vba, pls help regarding this
>
> Attached sample file,
>
> Thank you
> Balaji
>
>
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
--
Sam Mathai Chacko
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
