Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Special Print Instructions
I have a table in excel which contains the following type of data:
Column A Column B Column C Member#1 Member Name1 1st Child Name Member#1 Member Name1 2nd Child Name Member#1 Member Name1 3rd Child Name Member#2 Member Name2 1st Child Name Member#2 Member Name2 2nd Child Name Member#5 Member Name5 1st Child Name I want to print only the rows which are respective to member #1, then member #2 and so on.....I have about 4,000 rows and about 1,300 members. Any Ideas? Thank you- |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Special Print Instructions
I might suggest using a for i next i loop with a filterdata filter
incorporated. Change to suit Sub FilterAndPrint() lr = Cells(Rows.Count, "m").End(xlUp).Row On Error Resume Next For i = 1 To 8 Set x = Columns("m").Find(i, LookIn:=xlValues) If Not x Is Nothing Then With Range("M2:Q" & lr) .AutoFilter Field:=1, Criteria1:="Member#" & i .PrintPreview .AutoFilter End With End If Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "GatorGirl" wrote in message ... I have a table in excel which contains the following type of data: Column A Column B Column C Member#1 Member Name1 1st Child Name Member#1 Member Name1 2nd Child Name Member#1 Member Name1 3rd Child Name Member#2 Member Name2 1st Child Name Member#2 Member Name2 2nd Child Name Member#5 Member Name5 1st Child Name I want to print only the rows which are respective to member #1, then member #2 and so on.....I have about 4,000 rows and about 1,300 members. Any Ideas? Thank you- |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Special Print Instructions
Don-You lost me. I copied your text into Visual Basic but not really sure
what the text means. If you could explain to an elementary visual basic user. Thank you- "Don Guillett" wrote: I might suggest using a for i next i loop with a filterdata filter incorporated. Change to suit Sub FilterAndPrint() lr = Cells(Rows.Count, "m").End(xlUp).Row On Error Resume Next For i = 1 To 8 Set x = Columns("m").Find(i, LookIn:=xlValues) If Not x Is Nothing Then With Range("M2:Q" & lr) .AutoFilter Field:=1, Criteria1:="Member#" & i .PrintPreview .AutoFilter End With End If Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "GatorGirl" wrote in message ... I have a table in excel which contains the following type of data: Column A Column B Column C Member#1 Member Name1 1st Child Name Member#1 Member Name1 2nd Child Name Member#1 Member Name1 3rd Child Name Member#2 Member Name2 1st Child Name Member#2 Member Name2 2nd Child Name Member#5 Member Name5 1st Child Name I want to print only the rows which are respective to member #1, then member #2 and so on.....I have about 4,000 rows and about 1,300 members. Any Ideas? Thank you- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
is there a way to do 4 instructions with one macro | Excel Discussion (Misc queries) | |||
I am unable to "print screen" flollowing the instructions in HELP | Excel Discussion (Misc queries) | |||
Print cell borders with special 'skin' | Excel Discussion (Misc queries) | |||
How to print detailed instructions for all functions in Excel? | Excel Worksheet Functions | |||
How to print detailed instructions for all functions in Excel? | Excel Worksheet Functions |