fout in code met If

[kozijntje11]

Hallo allemaal,

Ik heb een probleem met een code zie hier onder
hij geef keer op keer if bok zonder end if ????????
wie kan mij helpen


Private Sub CommandButton2_Click()

If TextBox1.Value <> "" Then
If Not SheetExists(TextBox1.Value) Then
Dim Origineel As Worksheet
End If
If TextBox2.Value <> "" Then
If Not SheetExists(TextBox2.Value) Then
End If
If TextBox2.Value <> "" Then
If Not SheetExists(TextBox3.Value) Then
End If
If TextBox2.Value <> "" Then
If Not SheetExists(TextBox4.Value) Then
End If

Set Origineel = Sheets(OrigineelBladNaam)
Call MaakBlad
End If
End Sub

 

[HSV]

Je hebt 8 keer 'If', en 5 keer 'End if'.
Dit aantal moet gelijk zijn.
Maar wat je code precies moet doen is me een raadsel.

 

[kozijntje11]

Hoi Harry,

Ik heb een voorbeeld bij gedaan waar ik de code voor nodig had
het zal wel op een anderen manier kunnen
maar het werk nu wel goed

 

[HSV]

Hoi,

En als je nu maar één textbox invuld, en de andere drie leeg laat?

 

[kozijntje11]

Dat kan , maar ik wil dat je ze veel in een keer invult