popup wanneer cel b2 leeg is

[davylenders123]

Ik heb een macro die het werkblad opslaat in een bepaalde map.
Is het mogelijk om aan die macro iets toe te voegen dat je een pop up krijgt als b2 leeg is als je de macro aktiveerd.
In cel b2 in tabblad 1 moet een datum worden ingevult en er zou een melding moeten komen wanneer te die cel vergeten in te vullen.

Hier de code die ik tot hiertoe heb.

Private Sub CommandButton1_Click()
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren magazijn\voorlopige uren lijst\Voorlopige Uren Magazijn " & Format(DateValue([uren!B1]), "dd-mm-yyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
  if [uren!B1] = "" then msgbox "Je hebt geen datum ingevuld !" : exit sub
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren magazijn\voorlopige uren lijst\Voorlopige Uren Magazijn " & Format(DateValue([uren!B1]), "dd-mm-yyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

In je vraag spreek je over B2, in je macro gebruik je B1. Pas dit nog aan indien nodig.

 

[davylenders123]

Private Sub CommandButton1_Click()
  if [uren!B1] = "" then msgbox "Je hebt geen datum ingevuld !" : exit sub
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren magazijn\voorlopige uren lijst\Voorlopige Uren Magazijn " & Format(DateValue([uren!B1]), "dd-mm-yyyy") & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

In je vraag spreek je over B2, in je macro gebruik je B1. Pas dit nog aan indien nodig.

Rudi,

Sorry moest b1 zijn , had het verkeerd gepost .

Dit was wat ik zocht.

Bedankt :thumb: