Active sheet do not print if cell n8 to n15 are blank

[robrobet]

I have a workbook with 6 sheets in it but I want the active sheet Cell n8 to n15 must be filled with any number and can not leave blank. If those cells are are blank then sheet will show message to fill those cells and stop from printing. user should be ok to put zero in it.

[HaHoBe]

Hi, robrobet,

every sheet when itīs active?

Code goes into ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
  If WorksheetFunction.CountBlank(.Range("N8:N14")) = .Range("N8:N14").Cells.Count Then
    Cancel = True
    MsgBox "You need to fill out Range N8:N14 before printing!"
  End If
End With
End Sub

HTH,
Holger

[robrobet]

I also have this for my workbook for each sheet, is there way I can adjust these two togather, I mean to say before print f28 = i41 and cell n8 to n14 can not be blank. and message only pop up if one of the condition not met.

Thanks for your help

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("Sheet1").Range("f28") <> Worksheets("Sheet1").Range("i41") Then
Cancel = True
MsgBox "Please check the total amount in F28 (Highlight in Green) match with total I41!"
End If
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("sheet2").Range("f28") <> Worksheets("sheet2").Range("i41") Then
Cancel = True
MsgBox "Please check the total amount in F28 (Highlight in Green) match with total I41!"
End If
End Sub

[HaHoBe]

Hi, robrobet,

of course - if you use code-tags around your procedure?

There may only be one procedure with the Name of Worksheet_BeforePrint in ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
  If .Range("f28") <> .Range("i41") Then
    Cancel = True
    MsgBox "Please check the total amount in F28 (Highlight in Green) match with total I41!"
    Exit Sub
  End If
  If WorksheetFunction.CountBlank(.Range("N8:N14")) = .Range("N8:N14").Cells.Count Then
    Cancel = True
    MsgBox "You need to fill out Range N8:N14 before printing!"
  End If
End With
End Sub

First check is between F28 and I41, if they do not match show Message and exit sub.

Ciao,
Holger

[robrobet]

Thanks a lot it does what I want.