Meerdere voorwaarden in 1 functie

[Iguard]

Hallo,

Ik gebruik onderstaande code en dit werkt perfect.

If CheckBox1.Value = True Then

Range("A1").Select
If ActiveCell.Value = 0 Then

Range("S1").Select
ActiveCell.Value = "Ja"
Range("H1").Select
 
Else

Hier volgt een code..

End If

Nu zou ik nog graag een voorwaarde willen toevoegen;

Range("A2").Select
If ActiveCell.Value = 1 Then

Range("T1").Select
ActiveCell.Value = "Ja"
Range("I1").Select

Kan ik bovenstaande voorwaarde toevoegen aan de huidige code? Dus als er in A1 bijvoorbeeld 0 staat en in A2 staat 2 dan moet hij automatisch de code oppakken na "Else".

Mvg

Bas

[CODE]

[/CODE]

 

[edmoor]

Plaats je code in codetags, het is zo slecht te lezen tussen je gewone tekst.
Plaats ook de header van de routine want nu is niet te zien om welk soort routine het gaat.
En zit die code achter een userform of achter een werkblad?
Tevens is het over het algemeen overbodig om al die .Select methodes te gebruiken.

 

[Iguard]

Ik heb het aangepast. De code zit achter een Userform...

 

[edmoor]

Gebruik ook juiste inspringpunten in je code.
Zoiets dan:

If CheckBox1.Value = True Then
    If Range("A1") = 0 And Range("A2") <> 2 Then
        Range("S1").Value = "Ja"
    Else
        If Range("A1") = 0 And Range("A2") = 2 Then
            [COLOR="#008000"]'Hier volgt een code..[/COLOR]
        End If
    End If
End If