Cellen verplicht invoeren na print button

[coen17stam]

Hi,

Ik wil graag dat wanneer cellen (C3 t/m C5) leeg zijn een bericht moet verschijnen dat deze cellen ingevuld moeten worden, dit pas na het drukken van de print button.

Print code:
Sub PrintSomeCells()
Range("A1:F33").PrintOut
End Sub

Ik hoop dat iemand bij kan helpen.Bekijk bijlage test.xlsm

 

[Gijsbert1]

Zoiets?

Sub PrintSomeCells()
Blanks = WorksheetFunction.CountBlank(Worksheets("RTL LIVE").Range("C3:C5"))
    If Blanks <> 0 Then
        MsgBox ("Niet alles is ingevuld!"), vbCritical, "Waarschuwing"
Range("A1:F33").PrintOut
End Sub

 

[coen17stam]

Ik krijg deze melding

O en de benamingen van de tabbladen gaan steeds variëren ik weet niet of dat voor problemen gaat zorgen

 

[gast0660]

Typ End If net boven End Sub

 

[VenA]

In de module van ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Application.CountA(Range("C2:C5")) < 4 Then
    MsgBox "Lege cellen"
    Cancel = True
End If
End Sub

 

[coen17stam]

Hm bedankt allen, maar helaas werkt het nog steeds niet, ik heb de sheet even bijgevoegd

Bekijk bijlage test.xlsm

 

[gast0660]

Probeer deze, code onder uw printknop

 

[VenA]

In de module van ThisWorkbook

 

[coen17stam]

Super dit werkt!