Do not run macro if multiple cells are empty?

[NessPJ]

Hi,

Right now i have a code preventing my Macro to run, if one of the used (required) cells are still empty.

Here is the code:

Sub Gegevens_Verwerken()
    If Range("C6") = Empty Then
    MsgBox "De Invoersheet is nog leeg of niet correct gevuld!", 64, "Gegevens niet verwerkt"
    Else
    Call Gegevens_Verwerken2
    End If
 
End Sub

I would want to change thise code to check if multiple cells are Empty.
(This would go for : C6 and G6...some of the cells in between will always be empty due to the layout so i would only need the code to look for those cells).

Any clues?

I tried using "IF AND(RANGE..." or "IF Array(..." but those kept giving me error messages.

 

[JackDanIce]

Something like:

Sub Gegevens_Verwerken()
    If Range("C6") = Empty Or Range("G6") = Empty Then
    MsgBox "De Invoersheet is nog leeg of niet correct gevuld!", 64, "Gegevens niet verwerkt"
    Else
    Call Gegevens_Verwerken2
    End If
    
End Sub

Or means if either C6 or G6 are empty
Change Or to And if you want both cells to be empty

 

[NessPJ]

Hey,

Am i limited to a number of Cells i can use?

Right now i'm using several Cells using the "AND" statement, but its not working correctly:

Sub Gegevens_Verwerken()
    If Range("C6") = Empty And Range("D6") = Empty And Range("E6") = Empty And Range("G6") = Empty And Range("H6") = Empty And Range("I6") = Empty And Range("J6") = Empty Then
    MsgBox "De Invoersheet is nog leeg of niet correct gevuld!", 64, "Gegevens niet verwerkt"
    Else
    Call Gegevens_Verwerken2
    End If
 
End Sub

 

[NessPJ]

Anyone else have an idea perhaps?
The Editor seems to accept the code without problems, yet it is not working the way it should.

 

[NessPJ]

Problem solved. The syntax had to be slightly different:

Sub Gegevens_Verwerken()

    If (Range("C6") = Empty) Or (Range("E6") = Empty) Or (Range("G6") = Empty) Or (Range("J6") = Empty) Or (Range("C7") = Empty) Or (Range("E7") = Empty) Or (Range("G7") = Empty) Or (Range("J7") = Empty) Then
    MsgBox "De Invoersheet is nog leeg of niet correct gevuld!", 64, "Gegevens niet verwerkt"
    Else
    Call Gegevens_Verwerken2
    End If
    
End Sub