meerdere macro's in VBA na elkaar laten runnen

[uterie]

Beste,

Ik weet dat het eenvoudig is maar vind niet de juiste macro of formule.

Ik heb 7 macro's die te groot zijn om in 1 macro op te nemen. Nu had ik graag bij het activeren van de eertse macro dat de andere automatisch volgen.

de macro's zijn

1 InlezenArtikellijst
2 VerwerkenArtikellijst
3 InlezenGerechtenlijst
4 VerwerkenGerechtenlijst
5 InlezenCataloog
6 PrijzenAanpassenInArtikellijst
7 PrijzenAanpassenInGerechtenlijst

Kan er mij iemad helpen aub en alvast bedankt.

 

[edmoor]

Korte vraag, kort antwoord:

Sub InlezenArtikellijst()
    Call VerwerkenArtikellijst
    Call InlezenGerechtenlijst
    Call VerwerkenGerechtenlijst
    Call InlezenCataloog
    Call PrijzenAanpassenInArtikellijst
    Call PrijzenAanpassenInGerechtenlijst
End Sub

 

[uterie]

Beste,

Dank u wel voor de info maar wanneer ik dit programmeer geeft hij een compileerfout:

"er wordt een variabele of procedure verwacht, geen module"

wat doe ik verkeerd.

 

[edmoor]

Dat is alleen te zien als je je huidige code toont. Bijvoorbeeld d.m.v. je document.
Ik zei al dat de vraag erg kort was. Voor dat soort dingen is vaak meer informatie nodig om er een goed antwoord op te kunnen geven.

 

[uterie]

het volledig document tonen is moeilijk, had gehoopt dit te doen zonder mijn bestand erbij te voegen.

ik heb dus een 20 tal modulles geschreven waaronder deze 7 die ik graag na elkaar zo willen laten runnen.

ik weet dat je ook een macro kan schrijven met run maar daar krijg ik dezelfde opmerking.

 

[edmoor]

Dan wordt het lastig. Dit is de meest simpele vorm met die routines in een module en dat werkt goed:

Sub InlezenArtikellijst()
    MsgBox "InlezenArtikellijst"
    Call VerwerkenArtikellijst
    Call InlezenGerechtenlijst
    Call VerwerkenGerechtenlijst
    Call InlezenCataloog
    Call PrijzenAanpassenInArtikellijst
    Call PrijzenAanpassenInGerechtenlijst
End Sub

Sub VerwerkenArtikellijst()
    MsgBox "VerwerkenArtikellijst"
End Sub

Sub InlezenGerechtenlijst()
    MsgBox "InlezenGerechtenlijst"
End Sub

Sub VerwerkenGerechtenlijst()
    MsgBox "VerwerkenGerechtenlijst"
End Sub

Sub InlezenCataloog()
    MsgBox "InlezenCataloog"
End Sub

Sub PrijzenAanpassenInArtikellijst()
    MsgBox "PrijzenAanpassenInArtikellijst"
End Sub

Sub PrijzenAanpassenInGerechtenlijst()
    MsgBox "PrijzenAanpassenInGerechtenlijst"
End Sub

E.e.a. is afhankelijk van de routineheaders en waar de routines zich bevinden.
Maar waarom is het plaatsen van je document moeilijk?