melding krijgen dat er in de cel c2 niets staat.

[davylenders123]

Heb een excel bestand waar steeds iets moet worden ingegeven in de cel c2.
Omdat dit belangrijk is en zeker niet vergeten mag worden zou ik graag een melding krijgen wanneer het bestand wordt opgeslagen en er in de cel c2 niets is ingegeven.
Hoe kan ik dit het beste oplossen ?

 

[Leotaxi]

code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("blad1").Range("C2") = vbNullString Then
    MsgBox "Cel C2 is niet ingevuld"
    Cancel = True
End If
End Sub

mvg
Leo

 

[edmoor]

Of in de Workbook_BeforeSave
Die ziet er iets anders uit maar verder blijft het voorbeeld van Leo hetzelfde.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("blad1").Range("C2") = vbNullString Then
        MsgBox "Cel C2 is niet ingevuld"
        Cancel = True
    End If
End Sub

 

[davylenders123]

Alvast beide bedankt voor de snelle reactie

Heb de code van edmoor genomen omdat hij het ook vroeg wanneer het bestand gewoon gesloten werd bij de code van Leotaxi.

Maar als ik nu een wijziging wil doen en opslaan aan het originele bestand gaat dat niet want dan moet er iets worden ingegeven in cel c2.

Moet ik dan steeds de macro even verwijderen eer ik wijzigingen kan aan brengen aan het originele of kan dat op een andere manier ?

 

[edmoor]

Maar als ik nu een wijziging wil doen en opslaan aan het originele bestand gaat dat niet want dan moet er iets worden ingegeven in cel c2.

Dit begrijp ik niet. Je vraag was dat er iets in C2 moet staan als het bestand wordt opgeslagen en daar heb je antwoord op gekregen.

 

[davylenders123]

Edmoor

Het bestand is een bestand dat door meerder personen ingevuld dient te worden .
Daarom moest er een melding komen als ze cel c2 niet hadden ingevuld.

Maar aan het bestand moeten soms ook aan de originele opmaak wijzigingen gebeuren door mij.
En dan moet het bestand opnieuw kunnen worden opgeslagen zonder dat cel c2 gevuld is.

Sorry dat ik het van het begin niet beter heb verwoord.

 

[edmoor]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("blad1").Range("C2") = vbNullString And Environ("USERNAME") <> "davylenders123" Then
        MsgBox "Cel C2 is niet ingevuld"
        Cancel = True
    End If
End Sub

 

[Leotaxi]

Of een keuze

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("blad1").Range("C2") = vbNullString Then
    If MsgBox("Cel C2 is niet ingevuld doorgaan ?", vbYesNo) = vbNo Then
    Cancel = True
    End If
End If
End Sub

mvg
Leo

 

[HSV]

Of:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("blad1").Range("C2") = vbNullString Then
    Cancel = IIf(MsgBox("Cel C2 is niet ingevuld...." & vbLf & "wilt u het alsnog aanvullen?", vbYesNo) = vbYes, 1, 0)
End If
End Sub

 

[davylenders123]

alle

Bedankt voor jullie oplossingen.

Heb deze van leotaxi genomen.

Die van edmoor kan ik niet proberen omdat ik mijn usernaam die op het werk gebruikt wordt binnen excel niet ken.

Die van hsv werkte ook.

 

[edmoor]

De username is de naam waarmee je je in Windows aanmeld.