Not Print if Cell A1 in each of these sheets = 0

[gottimd]

I have the following code:

    Sheets("TITLEPAGE").Visible = True
    Sheets("TITLEPAGE").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("TITLEPAGE").Select
    ActiveWindow.SelectedSheets.Visible = False
    Application.Run "Assets"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "LiabEq"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "IncomeStmt"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Intercompany"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Inventory"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "PPE-MONTH"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Intangibles"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Headcount"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "debt"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Bonus"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Statistics"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"
    Application.Run "Check"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.Run "DataPage"

How can I make the macro Not Print the page it selects in this code, if on that specific page it selects, if cell A1 (on that page) = 0, meaning there is no data on the page.

ANy help?

 

[jimboy]

if Sheets("TITLEPAGE").range("A1").value <>0 then
'print code here
else
msgbox("No data to print!")
end if

or if the sheet changes

if Sheets(activesheet.name).range("A1").value <>0 then
'print code here
else
msgbox("No data to print!")
end if

 

[TryingToLearn]

Here's one way with your exisiting code:

    Sheets("TITLEPAGE").Visible = True
    Sheets("TITLEPAGE").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.Visible = False
    Application.Run "Assets"

    If Not Range("a1") = 0 Then
        If Not Range("a1") = vbNullString Then
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        End If
    End If

Not sure what your application.run "xxxx" is doing, but if it's just selecting the sheets then this could all be much shorter with a FOR statment assuming you're operating on all the sheets in the workbook.

 

[gottimd]

Will that msgbox stop the printing if there is no data? I need it to cycle through all the sheets. For example, if sheet 3 out of 15 has no data, it doesn't print sheet 3, but it continues to sheet 4, sheet 5, etc.

 

[gottimd]

You are correct. Application.run "xxxx" is just selecting the sheets. I have buttons for the user, to press to "go to" that specific sheet.

 

[gottimd]

How would the "For" statement work?

 

[TryingToLearn]

How would the "For" statement work?

Sub printall()
    Dim ws As Worksheet

    Sheets("TITLEPAGE").Visible = True
    For Each ws In ThisWorkbook.Worksheets
        If Not Range("a1") = 0 Then
            If Not Range("a1") = vbNullString Then
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
            End If
        End If
    Next
End Sub