| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to print a sheet if a cell is a certain value
I have set up the following macro to print certain sheets and it works ok,
however I only want it to print sheet named 'Handback' if cell A1 in that sheet is greater than 1. How can I incorporate that in the macro? Thanks in advance of any help. Regards John Sub newprint() ' ' newprint Macro ' Macro recorded 08/02/2006 by ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Select Range("b15") = "NEW VEHICLE ENQUIRY" Sheets("DAN").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Checklist").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Handback").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("New").Select Range("M46") = "CUSTOMER COPY" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("M46").Select Selection.ClearContents Sheets("DAN").Select Range("Z70") = "CUSTOMER COPY" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("Z70").Select Selection.ClearContents Sheets("Disclosure").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("AA Cars").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("New").Select Range("G10").Select |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro to print a sheet if a cell is a certain value
Sheets("Handback").Select
if Range("A1") 1 then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End if -- Regards, Tom Ogilvy "John Davies" wrote: I have set up the following macro to print certain sheets and it works ok, however I only want it to print sheet named 'Handback' if cell A1 in that sheet is greater than 1. How can I incorporate that in the macro? Thanks in advance of any help. Regards John Sub newprint() ' ' newprint Macro ' Macro recorded 08/02/2006 by ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Select Range("b15") = "NEW VEHICLE ENQUIRY" Sheets("DAN").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Customer Profile").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Checklist").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Handback").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("New").Select Range("M46") = "CUSTOMER COPY" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("M46").Select Selection.ClearContents Sheets("DAN").Select Range("Z70") = "CUSTOMER COPY" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("Z70").Select Selection.ClearContents Sheets("Disclosure").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("AA Cars").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("New").Select Range("G10").Select |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Print mutiple sheet macro | Excel Worksheet Functions | |||
| Print mutiple sheet macro | Excel Discussion (Misc queries) | |||
| Active cell counting in particular print page (one sheet having different print area) | Excel Worksheet Functions | |||
| Need Macro to print a sheet conatining drop down menu | Excel Programming | |||
| Macro to print a hidden sheet | Excel Programming | |||
Hybrid Mode
