een macro starten via een MsgBox

[uterie]

beste,

ik probeer via een msgbox een macro te starten maar krijg telkens de fout run error 1004.

kan er iemand mij helpen waarom de yes knop niet werkt en de No knop wel.

de code is als volgt,

Sub StartenTransferRevalidatieK7()

starten = MsgBox("Transfer Revalidatie K7 STARTEN?", vbQuestion + vbYesNo, "Transfer Revalidatie K7")
If starten = vbYes Then
Run ("VerwerkenTransferRevalidatieK7")
Else
If starten = vbNo Then
Sheets("Overdracht").Select
End If
End If

End Sub

Sub VerwerkenTransferRevalidatieK7()


Application.ScreenUpdating = False

Sheets("Inventaris Revalidatie K7").Select

' verwerken met prijzen
Range("H2").Select
For zoeken = 1 To 1400
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Cataloog!R4C2:R1100C15,12,FALSE)"
ActiveCell.Offset(1, 0).Select
Next zoeken

Range("H6").Select
ActiveCell.FormulaR1C1 = "=1.50"

alvast bedankt voor de hulp.

 

[edmoor]

Maak er dit van:

Sub StartenTransferRevalidatieK7()
    starten = MsgBox("Transfer Revalidatie K7 STARTEN?", vbQuestion + vbYesNo, "Transfer Revalidatie K7")
    If starten = vbYes Then
        Call VerwerkenTransferRevalidatieK7
    Else
        Sheets("Overdracht").Select
    End If
End Sub

 

[uterie]

dank u wel

dank u wel voor de oplossing

werkt perfect

 

[Warme bakkertje]

Of zefs.

Sub StartenTransferRevalidatieK7()

    If MsgBox("Transfer Revalidatie K7 STARTEN?", vbQuestion + vbYesNo, "Transfer Revalidatie K7") = vbYes Then
        VerwerkenTransferRevalidatieK7
    Else
        application.goto Sheets("Overdracht").range("a1")
    End If


End Sub

 

[E v R]

Waarschijnlijk kwam jouw melding omdat de code in een sheetmodule stond en niet in een gewone module