report with loops and conditional printing

[patje1703]

Hi All,

I'm making a report form in dutch for my work, certain cells have to be filled in that's why i made this program. I want to create a loop so that if something is left blank c5 it loops back until that cell is filled, then it can check if cell f5 is filled in if it is not it has to loop back until this cell is filled.
the next part is that I want to work with 9 cells which have to be filled in but if one or more of them is filled in it is enough. (probably with or/and)
the last part is that they should not be able to save the report until everything is filled in.

Sub Knop6_Klikken()
If Range("c5").Value = "" Then
MsgBox "Vul naam in!!!!"
Else:
End If
If Range("f5").Value = "" Then
MsgBox "Vul begin dienst in!!!!"
Else:
End If
If Range("f6").Value = "" Then
MsgBox "Vul einde dienst in!!!!"
Else:
End If
If Range("c3").Value = "" Then
MsgBox "Vul datum in!!!!"
Else:
End If
If Range("f3").Value = "" Then
MsgBox "Vul shift in!!!!"
Else: MsgBox "alles ingevuld ok"
End If
End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. It would be very helpful to indent code to show structure. --6StringJazzer

[davesexcel]

Maybe just count the cells?

Sub CnT()
    Dim rng As Range
    Set rng = Range("A1,B2,C3,D4,E5,F6,G7,H8,I9")
    If Application.WorksheetFunction.CountA(rng) > 0 Then
        MsgBox "Do Something here"
    Else
        MsgBox "Do something else here"
    End If
End Sub

[patje1703]

Thanks it worked I now have the following structure. I also hope I did not forget the code tags this time because I don't know what these are yet
the next thing that needs to be done is loop everything so they can't save the workbook until everything is entered. Meanwhile I'll search the forum for answers.

Sub Knop6_Klikken()
If Range("c5").Value = "" Then
MsgBox "Vul naam in!!!!"
Else:
End If
If Range("f5").Value = "" Then
MsgBox "Vul begin dienst in!!!!"
Else:
End If
If Range("f6").Value = "" Then
MsgBox "Vul einde dienst in!!!!"
Else:
End If
If Range("c3").Value = "" Then
MsgBox "Vul datum in!!!!"
Else:
End If
If Range("f3").Value = "" Then
MsgBox "Vul shift in!!!!"
Else:
End If
Dim rng As Range
Set rng = Range("G12,G13,G14,J12,J13,J14,M12,M13,M14")
If Application.WorksheetFunction.CountA(rng) > 0 Then
MsgBox "Alles ok"
Else
MsgBox "Gelieve het aantal uren bij de IpCode in te vullen"
End If
End Sub