vba als cel bevat datum dan werkt niet

[carloschouw]

Goedemorgen,

Wie zou mij kunnen helpen met een controle op een ingevulde datum check in dit voorbeeld op A1? Onderstaande code heb ik geprobeerd maar werkt op 1 of andere manier niet. Wat doe ik verkeerd?

Idee is: wanneer je in A1 niets ingevuld hebt kun je het bestand gewoon afsluiten. Echter wanneer je in A1 een datum ingevuld hebt, dan moet je A2 invullen. Is na het invullen van een datum in A1 cel A2 leeg dan kun je niet afsluiten en volgt een bericht dat je A2 in moet vullen. A1 en A2 ingevuld = toegestaan om het bestand af te sluiten.

  If Sheets("Blad1").Range("A1") <> "" And Sheets("Blad1").Range("A2") = "" Then
    MsgBox ("Bla bla bla"), vbOKOnly + vbInformation, "ONTBREKENDE GEGEVENS"
           Application.Goto Sheets("Blad1").Range("A1")
    Cancel = True
    Exit Sub
 End If

 

[carloschouw]

Probleem reeds gevond. And moest vervangen worden door Or

If Sheets("Blad1").Range("A1") <> "" Or Sheets("Blad1").Range("A2") = "" Then
    MsgBox ("Bla bla bla"), vbOKOnly + vbInformation, "ONTBREKENDE GEGEVENS"
           Application.Goto Sheets("Blad1").Range("A1")
    Cancel = True
    Exit Sub
 End If

 

[carloschouw]

Helaas, dacht de oplossing te hebben gevonden maar deze optie werkt ook niet. Iemand een idee?

 

[AD1957]

Onder welk Event heb je de code staan ?

 

[carloschouw]

Hoi AD1957,

Dat staat onder

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

[carloschouw]

Ik heb het uiteindelijk werkend gekregen met deze code

If Sheets("Blad1").Range("A1") >1 And Sheets("Blad1").Range("A2") = "" Then
    MsgBox ("Bla bla bla"), vbOKOnly + vbInformation, "ONTBREKENDE GEGEVENS"
           Application.Goto Sheets("Blad1").Range("A1")
    Cancel = True
    Exit Sub
 End If

 

[AD1957]

Idee is: wanneer je in A1 niets ingevuld hebt kun je het bestand gewoon afsluiten

Lijkt me dan niet juist.