VBA foutmelding? Wat doe ik fout?

[RVDV88]

Hallo,

bij onderstaande krijg ik een foitmelding in VBA "Object required"?

Sub CopyStuff()

MsgBox "Is alles correct ingevuld?"

Worksheets("Historie").Unprotect Password:="1"

Range("B4:E62").Copy

Sheets("Historie").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Worksheets("Blad1").Range("D4:E62").ClearContents

Worksheets("Historie").Protect Password:="1", AllowFiltering:=True, AllowUsingPivotTables:=True
Worksheet.EnableSelection = xlUnlockedCells

End Sub

Kan iemand mij helpen wat er fout is?

 

[Cobbe]

Welke regel wordt als fout gemarkeerd?

 

[edmoor]

Dat zal deze zijn:
Worksheet.EnableSelection = xlUnlockedCells
De bladnaam mist dus.

Tevens staat bij de Copy opdracht geen bladnaam vermeld.
Die MsgBox heeft enkele zin als je geen Ja, Nee, Cancel vraagt en niks met het antwoord doet.

 

[RVDV88]

ja super hij doet het nu.

hoe krijg ik het zo dat ik bij de message box ja of nee kan selecteren.

Bij ja: gaat hij door met volgende opdrachten
Bij nee: niks doen zodat er nog aangevuld kan worden.

 

[edmoor]

Zo:

Select Case MsgBox("Vraag", vbYesNoCancel, "Titel voor de messagebox")
    Case vbYes
        [COLOR="#008000"]'Actie bij Ja[/COLOR]
        MsgBox "Antwoord is ja"
    Case vbNo
        [COLOR="#008000"]'Actie bij Nee[/COLOR]
        MsgBox "Antwoord is nee"
    Case vbCancel
       [COLOR="#008000"] 'Actie bij Cancel[/COLOR]
        MsgBox "Antwoord is Cancel"
End Select

 

[gast0660]

Verander:

MsgBox "Is alles correct ingevuld?"

in

If MsgBox("Is alles correct ingevuld?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub

 

[snb]

Vermijd overbodige mededelingen: ze illustreren de onkunde van de programmeur.

En vermijd altijd die overbodige, irritante uitroeptekens in mededelingen !!