Waarschuwing velden niet ingevuld voor ik ga printen

[Muiter]

Is er een macro mogelijk zodat ik een waarschuwing krijg als ik op print klik op het moment dat er bepaalde velden nog niet zijn ingevuld?

 

[richard1970]

Dat kan via een event voor ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Ben je bekend met VBA?

Richard

 

[DCWDPT]

Tussen die regels van Richard1970 komt dan iets als:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1").value = "" Then
    MsgBox "U hebt vergeten om cel A1 te vullen"
    End If
End Sub

 

[Muiter]

Bedankt voor jullie reacties.

 

[robdgr]

Zet je de vraag nog even op opgelost? :thumb:

 

[Wigi]

Nog wat zeer gelijkaardige voorbeeldcode: http://www.helpmij.nl/forum/showthread.php?t=432851

 

[Muiter]

Tussen die regels van Richard1970 komt dan iets als:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("A1").value = "" Then
    MsgBox "U hebt vergeten om cel A1 te vullen"
    End If
End Sub

Ik heb bovenstaande 1:1 overgenomen, alleen de cel aangepast. Helaas krijg ik de melding niet.

 

[Wigi]

Als je zegt

Range("A1").value

over welk tabblad gaat dat dan?

Of heb je maar 1 tabblad?