kiezen tussen 6 userforms

[hecosys]

Beste mensen,

Door middel van een marco klik wordt bekeken welke userform wordt opgestart.

Web1()
Sheets("Web1").Visible = True
    Sheets("Web1").Select
    ActiveWindow.DisplayWorkbookTabs = False
    If Worksheets("Web1").Range("L14 , P14") = "" Then UserForm1.Show
    If Worksheets("Web1").Range("L21 , P21") = "" Then UserForm2.Show
    If Worksheets("Web1").Range("L28 , P28") = "" Then UserForm3.Show
    If Worksheets("Web1").Range("L35 , P35") = "" Then UserForm4.Show
    If Worksheets("Web1").Range("L42 , P42") = "" Then UserForm5.Show
    If Worksheets("Web1").Range("L49 , P49") = "" Then UserForm6.Show
    If Worksheets("Web1").Range("L49 , P49") = >"1" Then UserForm7.Show

De web1 link moet de juiste userform selecteren, als een van de cel L of P leeg is dan dient het betreffende userform opgestart te worden.
bijv. L 14 is leeg en P 14 staat het cijfer 8 in, dan moet userform 2 worden gestart.
bijv. L 14 is staat het cijfer 8 en P14 is leeg, dan moet userform 2 worden gestart.
bijv. zowel L 14 als P14 is leeg, dan moet userform 1 worden gestart.

misschien kunnen jullie mij verder helpen

thanks.

 

[HSV]

Lukt het hiermee?

If Range("L14") > 0 Or Range("P14") > 0 Then
      UserForm2.Show
Else: UserForm1.Show

 

[hecosys]

If Range("L14") > 0 Or Range("P14") > 0 Then
      UserForm2.Show
Else: UserForm1.Show
    If Range("L21") > 0 Or Range("P21") > 0 Then
      UserForm3.Show
Else: UserForm2.Show
     If Range("L28") > 0 Or Range("P28") > 0 Then
      UserForm4.Show
Else: UserForm3.Show
    If Range("L35") > 0 Or Range("P35") > 0 Then
      UserForm5.Show
Else: UserForm4.Show
    If Range("L42") > 0 Or Range("P42") > 0 Then
      UserForm6.Show
Else: UserForm5.Show
 If Range("L49") > 0 Or Range("P49") > 0 Then
      UserForm6.Show
Else: UserForm7.Show

Ik krijg nu de foutmelding van geen einde If.
Hoe kan ik deze functie aanpassen zodat hij alle 12 cellen worden gecontroleerd

 

[hecosys]

is het niet verstandig, dmv een formule te zoeken of er een waarde in de cellen staat?

 

[hecosys]

If Worksheets("webl1").Range("L14") = "" Or Worksheets("webl1").Range("P14") = "" Then
      userform1.Show
      ElseIf Worksheets("web1").Range("L21") = "" Or Worksheets("webl1").Range("P21") = "" Then userform2.Show

dat is de oplossing

 

[hecosys]

het is nog niet helmaal gelukt,
wanneer ik bijv. L14 = 0 en P 14 = 1 dan moet het wel naar userform1 gaan.
dus "" is dus echt leeg en wanneer een 0 wordt ingevuld moet het gezien worden als getal

wat doe ik fout?