userform controleren op lege velden

[Bjorkie]

hoi,

volgende situatie wil ik bereiken.
ik heb een userform waar er 4 velden moeten ingevuld worden. (3 manueel, 1 gaat automatisch)
nu wil ik berieken, dat je enkel kan doorgaan indien je overal iets hebt ingegeven.
deze code heb ik al.
maar u kan ik niet verder.

Private Sub Cancel_button_Click()
Unload Me
End Sub

Private Sub OK_button_Click()
    
    If CustomerField.Value = "" Then
        MsgBox "Please enter a value 1"
        Exit Sub
    
        If ProjectName.Value = "" Then
        MsgBox "Please enter a value 2"
        Exit Sub

        If CreatedBy.Value = "" Then
        MsgBox "Please enter a value 4"
        Exit Sub
               
'       Code if not empty
    End sub
 
    For Each sh In ThisWorkbook.Sheets
      With sh.PageSetup
        .LeftFooter = CustomerField.Text
        .CenterFooter = ProjectName.Text
        .RightFooter = OfferDate.Text
      End With
      Unload Me
    Next
   
End Sub
Private Sub UserForm_Initialize()
  OfferDate = Format(Date, "dd-mm-yyyy")
End Sub

Bekijk bijlage test userform conditions.xlsm

cancel knop moet alles afsluiten (ook excel)
OK knop enkel werkende indien alles ingevuld is.
indien nog lege velden, infobox met tekst op scherm

 

[SjonR]

komt dit in de buurt?

 

[Bjorkie]

hey SjonR
hartelijk bedankt.
dit is exact wat ik nodig had.
super bedankt
ook aan de andere die er aan bezig waren, ook bedankt.

 

[VenA]

Zet in voorbeeldbestanden geen Application.Quit en gebruik ook geen Workbook_Open(). Argeloze bezoekers die jouw bestand openen kunnen dan tegen onverwachte toestanden aanlopen en het heeft niets met de vraag te maken.

Gebruik 1 functie die je kan aanroepen ipv van onder elke knop dezelfde code te zetten. De code kan je ook reduceren tot

OK_button.Enabled = CustomerField <> "" And ProjectName <> "" And CreatedBy <> ""

Een alternatief in het bestand.

 

[Bjorkie]

ok thx.
ik probeer het morgen eens