Is there a way to print based on a particular filter?

gsrikanth · #1 03-15-2012, 09:37 PM

Quote:

Originally Posted by Jamal NUMAN

Is there a way to print based on a particular filter?

I wanted to print in separate pages based on a particular filtered value. For example, in the attached file, I need to print according to the name of the governorate such that the “Bethlehem” governorate is never printed in the same page with next governorate, which is “Hebron” in this case.

I’m used to do this sort of work manually (by making empty rows) but wondering if there is an automated way that helps doing so. please, have a look on the attached screenshots.

the data file is attached.

Thank you for the help,

Best

Jamal

use this select first column named list in b2 kept this formula =INDEX(List,MATCH(0,COUNTIF($b$1:b1,List),0)) with ctrl+shift+enter

Jamal NUMAN · #2 03-16-2012, 01:57 AM

Quote:

Originally Posted by gsrikanth

use this select first column named list in b2 kept this formula =INDEX(List,MATCH(0,COUNTIF($b$1:b1,List),0)) with ctrl+shift+enter

thank you for the answer gsrikanth.

i tried what you have already advised but sounds not to work with me. I'm not sure if your time permits to stick the equation on my actual excel sheet (which is provided in my previous post) so that i can proceed.

all the best

Jamal

Catalin.B · #3 03-20-2012, 06:13 AM

You can place a page break when the cell value in column 1 changes.

Code:

Option Explicit
Sub MakePageBreaks()
Dim i As Integer
ActiveSheet.ResetAllPageBreaks
Application.ScreenUpdating = False

For i = 2 To 800
If ActiveSheet.Cells(i, 1).Text <> ActiveSheet.Cells(i + 1, 1).Text Then
ActiveSheet.Cells(i + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
End If
Next
Application.ScreenUpdating = True
End Sub

Jamal NUMAN · #4 03-20-2012, 11:32 AM

Quote:

Originally Posted by Catalin.B

You can place a page break when the cell value in column 1 changes.

Code:

Option Explicit
Sub MakePageBreaks()
Dim i As Integer
ActiveSheet.ResetAllPageBreaks
Application.ScreenUpdating = False

For i = 2 To 800
If ActiveSheet.Cells(i, 1).Text <> ActiveSheet.Cells(i + 1, 1).Text Then
ActiveSheet.Cells(i + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
End If
Next
Application.ScreenUpdating = True
End Sub

Perfect… this is what I’m looking for exactly. Many thanks Catalin.B. your time and efforts are highly appreciated.

Best

Jamal

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Apply filter with VBA	bobsawyer7	Outlook	0	03-12-2012 04:02 AM
Mail Merge to print specific record based on mergefield criterias	nicnad	Mail Merge	1	02-22-2012 01:53 AM
Modify vba code to print based on name in the InputBox	OTPM	Project	0	05-25-2011 02:03 AM
filter	kwlickt	Excel	1	03-28-2011 11:15 AM
could you help me help me with advanced filter	Nora	Excel	1	05-15-2009 11:10 AM