|
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 |
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 |
| All times are GMT +1. The time now is 09:06 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com