[Excel 2003] VBA (If Range() = Empty And If Range() = Empty)

[Da_maniaC]

Hey,

Ik heb een simpel stukje code om te zorgen dat een bepaalde macro enkel wordt uitgevoerd wanneer een aantal cellen niet leeg zijn:

code:

Sub Gegevens_Verwerken()

    If Range("C6") = Empty And  Range("E6") = Empty And Range("G6") = Empty And Range("J6") = Empty And Range("C7") = Empty And  Range("E7") = Empty And Range("G7") = Empty And 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

Echter lijkt de code alleen te werken op de eerste cell (C6), naar de andere cellen lijkt niet te worden gekeken?

[3xNix]

Moet dit niet gewoon If - Or zijn dan?

[Lustucru]

Wat wil je nu?
Moeten ze allemaal gevuld zijn

code:

If (a is leeg) OR (b is leeg) etc then foutmelding
of
if (A gevuld) AND (b gevuld) then doehet else foutmelding

of is het voldoende als er slechts een gevuld is?

code:

If (a is leeg) AND (b is leeg) then foutmelding
of
if (A gevuld) OR (b gevuld) then doehet else foutmelding

[ Voor 22% gewijzigd door Lustucru op 08-06-2011 13:14 ]

[Da_maniaC]

Hey,

Alle cellen die ik aangeef moeten gevuld zijn voordat de macro het mag gaan doen.

Dus ik moet juist een OR statement gebruiken?

[Edit]

Nu is de werking exact andersom....

code:

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

Ook wanneer alle genoemde cellen zijn gevuld werkt de macro nog steeds niet.

[ Voor 86% gewijzigd door Da_maniaC op 08-06-2011 16:51 ]

[Da_maniaC]

Problem solved. De syntax moest zijn:

code:

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