• 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.

Macro BeforeSave overslaan ?

Status
Niet open voor verdere reacties.

peter16

Gebruiker
Lid geworden
2 dec 2000
Berichten
87
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
 
Plaats volgende regel net voor het opslaan:

Application.EnableEvents = False

Vergeet niet om het nadien terug op True te zetten.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan