• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

twee macro's in 1 een macro

Status
Niet open voor verdere reacties.

bebobebo

Gebruiker
Lid geworden
2 nov 2006
Berichten
94
Hallo Excel-toppers.

Ik ben aan het zoeken gegaan maar kan het dus niet vinden.
Volgende zit ik mee:
Ik heb van twee macro's 1 macro gemaakt via de recorder.
Hij werkt maar het vervelende is dat er verwijzingen in zitten en dat wil ik niet.
De macro's zitten ook gewoon in het bestaande bestand.

Code:
Sub naarindex2()
'
' naarindex2 Macro
' De macro is opgenomen op 12-6-2009 door borgmanrwf.
'

'
    Application.Run _
        "'master prognose.xls'!sorteervalidatie_b_c"
    Application.Run "'master prognose.xls'!naarindex"
End Sub

Het gedeelte "'master prognose.xls'" moet dus weg en krijg dan een foutmelding.

Hoe moet de code er uitzien om de macro met de volgende macro samen te laten werken:
sorteervalidatie_b_c
naarindex

Ik ga de macro gewoon achter een knop zetten.

Wie weet.

Groet Bert.
 
Voorbeeld

Bert,

Zet even een voorbeeldje, dan kunnen we sneller helpen.

:)
 
stap 1: zet alle macro's in dezelfde module (werkblad, Thisworkbook of macromodule (Module1 bijv.)

Daarna hoef je alleen de namen van de macro's in de verzamelmacro op te nemen.
Gebruik voor een knop de werkset besturingselementen.
Zet in zo'n geval ook alle macro's in het blad dat de knop bevat.

Code:
Sub Commandbutton1_Click()
  sorteervalidatie_b_c
  naarindex
End Sub

Sub sorteervalidatie_b_c()
  ---------
End Sub

Sub naarindex()
  ---------
End Sub
 
Laatst bewerkt:
stap 1: zet alle macro's in dezelfde module (werkblad, Thisworkbook of macromodule (Module1 bijv.)

Daarna hoef je alleen de namen van de macro's in de verzamelmacro op te nemen.
Gebruik voor een knop de werkset besturingselementen.
Zet in zo'n geval ook alle macro's in het blad dat de knop bevat.

Code:
Sub Commandbutton1_Click()
  sorteervalidatie_b_c
  naarindex
End Sub

Sub sorteervalidatie_b_c()
  ---------
End Sub

Sub naarindex()
  ---------
End Sub

Hallo snb,

Top, werk helemaal oke, bedankt voor de moeite.

Groet,

Bert
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan