Hallo,
Mijn probleem is de volgende
Ik heb twee macro’s. Macro 1 staat in een module en macro 2 staat in ThisWorkbook.
Macro 1 voert allerlei handelingen uit en slaat het bestand op.
Macro 2 is een BeforeSave macro (wordt dus uitgevoerd voordat het bestand wordt opgeslagen.
Het probleem is nu dat macro 2 ook wordt uitgevoerd als macro 1 wordt uitgevoerd. Dit is niet mijn bedoeling. Macro 2 moet alleen uitgevoerd worden als het bestand op de normale wijze wordt opgeslagen.
Zelf het ik onderstaande oplossingen geprobeerd maar zonder succes.
Oplossing 1:
In Macro 1 een opdracht zetten (voor de save opdracht) dat bijvoorbeeld cel A1 de waarde “1” krijgt. Vervolgens laat ik Macro 2 controleren of de waarde in cel A1 inderdaad “1” is. Is dit het geval dan macro 2 afbreken.
Dit werkt blijkbaar niet omdat de waarde in cel A1 blijkbaar pas na het uitvoeren van alle macro’s de waarde 1 krijgt. Op het moment dat Macro 2 de waarde van A1 bepaald is deze dus nog niet “1”.
Oplossing 2:
In Macro 1 de onderstaande codes toegevoegd (voor de save opdracht).
Dim Controle As String
Controle = aan
Vervolgens in Macro 2
If Controle = aan Then Exit Sub
Beide oplossingen werken blijkbaar niet. Wie weet wat ik fout doe of wie weet een andere oplossing voor mijn probleem?
Alvast bedankt voor het meedenken.
Peter
Mijn probleem is de volgende
Ik heb twee macro’s. Macro 1 staat in een module en macro 2 staat in ThisWorkbook.
Macro 1 voert allerlei handelingen uit en slaat het bestand op.
Macro 2 is een BeforeSave macro (wordt dus uitgevoerd voordat het bestand wordt opgeslagen.
Het probleem is nu dat macro 2 ook wordt uitgevoerd als macro 1 wordt uitgevoerd. Dit is niet mijn bedoeling. Macro 2 moet alleen uitgevoerd worden als het bestand op de normale wijze wordt opgeslagen.
Zelf het ik onderstaande oplossingen geprobeerd maar zonder succes.
Oplossing 1:
In Macro 1 een opdracht zetten (voor de save opdracht) dat bijvoorbeeld cel A1 de waarde “1” krijgt. Vervolgens laat ik Macro 2 controleren of de waarde in cel A1 inderdaad “1” is. Is dit het geval dan macro 2 afbreken.
Dit werkt blijkbaar niet omdat de waarde in cel A1 blijkbaar pas na het uitvoeren van alle macro’s de waarde 1 krijgt. Op het moment dat Macro 2 de waarde van A1 bepaald is deze dus nog niet “1”.
Oplossing 2:
In Macro 1 de onderstaande codes toegevoegd (voor de save opdracht).
Dim Controle As String
Controle = aan
Vervolgens in Macro 2
If Controle = aan Then Exit Sub
Beide oplossingen werken blijkbaar niet. Wie weet wat ik fout doe of wie weet een andere oplossing voor mijn probleem?
Alvast bedankt voor het meedenken.
Peter