Printen verhinderen in excel indien een bepaalde cel leeg is

[scalle68]

Hallo,

Ik neem aan dat ik volgend probleempje het best met VBA oplos : het exceldocument is een onkostennota waarvan ik niet wil dat die kan afgedrukt worden indien de naam in een welbepaalde cel ontbreekt (ik krijg nogal vaak te maken met naamloze nota's).
Kan iemand mij hiervoor de coderegels laten weten ? Dus klikken op het printericoon of kiezen voor afdrukken en een bepaalde cel is leeg dan moet er een foutboodschap verschijnen (bv vul eerst uw naam in).

Alvast bedankt voor jullie moeite !

PC

 

[wampier]

Ga naar VBA (alt-f11)

kies aan de linker kant in de explorer "thisworkbook" en dubbelclick.

In de twee textvakjes bovenaan het grote textvak aan de rechterkant kies: "workbook" in het eerste vakje en "beforeprint" in het tweede vakje.

Je hebt nu als het goed is een

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Vul daar zoiets in (naar gelang de situatie):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Sheets(1).[a1].Value = "" Then
        MsgBox ("cel [A1] invullen op het eerste blad voordat je print AUB")
        Cancel = True
    End If
End Sub

 

[scalle68]

Opgelost

Hartelijk dank voor de oplossing en de snelle reactie, wampier, dit is wat ik zocht !