| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print if populated
Hi All
I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then
Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Tom
Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Private Sub Commandbutton1_Click()
if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Tom
Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then
has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Tom
Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Private Sub Commandbutton1_Click()
if Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Tom
The code now prints the sheet even if there is no data in any of the cells? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
counta gives the count of cells that are not empty.
do you have formulas in the cells that are returning empty strings? - then those are not empty. I don't see any reason it wouldn't work if the cells are actually empty. demo'd from the immediate window: Worksheets("Continuation sheet").Range("A8:K20").ClearContents ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 Worksheets("Continuation sheet").Range("B10").Value = 6 ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 1 -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom The code now prints the sheet even if there is no data in any of the cells? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Tom
Yes there is formula in the cells having removed these formula the code works as you say. Is there anyway to check these cells with formula in as the first code for a single cell works with formula in the cell. Stuart "Tom Ogilvy" wrote in message ... counta gives the count of cells that are not empty. do you have formulas in the cells that are returning empty strings? - then those are not empty. I don't see any reason it wouldn't work if the cells are actually empty. demo'd from the immediate window: Worksheets("Continuation sheet").Range("A8:K20").ClearContents ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 Worksheets("Continuation sheet").Range("B10").Value = 6 ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 1 -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom The code now prints the sheet even if there is no data in any of the cells? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Assuming you want a printout if any cell in the range is displaying a value:
Private Sub Commandbutton1_Click() Dim cell as Range For each cell in Worksheets("continuation sheet").Range("A8:K20") if len(trim(cell.Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True Exit for End if Next End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Yes there is formula in the cells having removed these formula the code works as you say. Is there anyway to check these cells with formula in as the first code for a single cell works with formula in the cell. Stuart "Tom Ogilvy" wrote in message ... counta gives the count of cells that are not empty. do you have formulas in the cells that are returning empty strings? - then those are not empty. I don't see any reason it wouldn't work if the cells are actually empty. demo'd from the immediate window: Worksheets("Continuation sheet").Range("A8:K20").ClearContents ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 Worksheets("Continuation sheet").Range("B10").Value = 6 ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 1 -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom The code now prints the sheet even if there is no data in any of the cells? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
|
#13
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Print if populated
Tom
Thanks very much for your help thats sorted the problem. Stuart "Tom Ogilvy" wrote in message ... Assuming you want a printout if any cell in the range is displaying a value: Private Sub Commandbutton1_Click() Dim cell as Range For each cell in Worksheets("continuation sheet").Range("A8:K20") if len(trim(cell.Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True Exit for End if Next End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Yes there is formula in the cells having removed these formula the code works as you say. Is there anyway to check these cells with formula in as the first code for a single cell works with formula in the cell. Stuart "Tom Ogilvy" wrote in message ... counta gives the count of cells that are not empty. do you have formulas in the cells that are returning empty strings? - then those are not empty. I don't see any reason it wouldn't work if the cells are actually empty. demo'd from the immediate window: Worksheets("Continuation sheet").Range("A8:K20").ClearContents ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 Worksheets("Continuation sheet").Range("B10").Value = 6 ? Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 1 -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom The code now prints the sheet even if there is no data in any of the cells? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if Application.CountA(Worksheets("continuation sheet").Range("A8:K20")) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thats Sorted it thank you. Just one more what code do I need to check a range of cells say A8:K20 in the same sheet? Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then has continuation mispelled. if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0 then -- Regards Tom Ogilvy Stuart Evans wrote in message ... Tom Nope cant get this working I get a Subscript out of range error when I click the button? Am I missing something here? Stuart "Tom Ogilvy" wrote in message ... Private Sub Commandbutton1_Click() if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if End Sub -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Tom Thanks for the reply however I cant seem to get this working can you explain where I put this code please. Stuart "Tom Ogilvy" wrote in message ... if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0 then Application.ScreenUpdating = False Worksheets("continuation sheet").Visible = xlSheetVisible Worksheets("continuation sheet").Printout Worksheets("continuation sheet").Visible = xlSheetHidden Application.ScreenUpdating = True End if -- Regards, Tom Ogilvy Stuart Evans wrote in message ... Hi All I have a workbook with a number of sheets one of which is hidden and called "continuation sheet" I have a command button on a frontend sheet with a macro attached. What i need to do is look at the sheet named "continuation sheet" and if cell B5 is populated print the sheet. Stuart |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Want only rows with populated data | Excel Worksheet Functions | |||
| how can i show/print just populated rows from a list | Excel Discussion (Misc queries) | |||
| Macro button to print sheets populated from drop-down list | Excel Discussion (Misc queries) | |||
| First populated cell in row array/ Last populated cell in row arra | Excel Worksheet Functions | |||
| populated | Excel Discussion (Misc queries) | |||
Linear Mode
