if ........... end if

[brandernl]

In bijgaande code blijft Excel (VBA) roepen End if zonder Blok If. En het staat er wel degelijk.
Wat doe ik fout?

Sub Kopiëren_Opslaan()
Application.ScreenUpdating = False
If Worksheets("formulier").Range("C2") = "" Then _
MsgBox ("Personeelsnummer niet ingevuld"), vbExclamation, "Gegevens niet compleet"
Exit Sub
End If
Worksheets("formulier").Range("C2:C92").Copy
Worksheets("totalen").Range("A65536").End(xlUp).Offset(1, 0). _
PasteSpecial Paste:=xlValues, Transpose:=True
' Worksheets("formulier").Range("C2:C92").ClearContents
Application.CutCopyMode = False
Worksheets("formulier").Range("C2").Activate

End Sub

 

[Roncancio]

De onderscore bij Then moet weg.

Sub Kopiëren_Opslaan()
Application.ScreenUpdating = False
If Worksheets("formulier").Range("C2") = "" Then _
MsgBox ("Personeelsnummer niet ingevuld"), vbExclamation, "Gegevens niet compleet"
Exit Sub
End If
Worksheets("formulier").Range("C2:C92").Copy
Worksheets("totalen").Range("A65536").End(xlUp).Offset(1, 0). _
PasteSpecial Paste:=xlValues, Transpose:=True
' Worksheets("formulier").Range("C2:C92").ClearContents
Application.CutCopyMode = False
Worksheets("formulier").Range("C2").Activate

End Sub

Met vriendelijke groet,


Roncancio

 

[Demeter]

Denk dat het aan je enterteken (_) ligt welke je achter je Then functie heb staan.
Haal deze eens weg?

Groet,
Ferenc

ps
graag de volgende keer je codee binnen de code tags plaatsen.
Leest wat makkelijker.

Sub Kopiëren_Opslaan()

Application.ScreenUpdating = False

If Worksheets("formulier").Range("C2") = "" Then
    MsgBox ("Personeelsnummer niet ingevuld"), vbExclamation, "Gegevens niet compleet"
    Exit Sub
End If

Worksheets("formulier").Range("C2:C92").Copy
Worksheets("totalen").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=True
' Worksheets("formulier").Range("C2:C92").ClearContents
Application.CutCopyMode = False

Worksheets("formulier").Range("C2").Activate

End Sub

te laat, wilde het nog testen.......

 

[brandernl]

Inderdaad de _ (underscore) was de boosdoener. Ik dacht een lange regel af te kappen, maar maakte een denkfout.
Dank voor uw hulp