Opslaan voor macro uitvoeren

[markoesa]

Beste kenners,

Wie kan mij helpen met het volgende:

Ik heb een excel bestand vol macro knopjes waar af en toe iets goed mis gaat. Onderstaand een script van een macro die een bepaalde kleur geeft aan een geselecteerde cel in een bepaalde kolom. Zo kan het dat cellen in bijvoorbeeld A verschillende kleuren hebben. Waar het steeds mis gaat is, dat de gebruiker per ongeluk een hele kolom selecteert en dan op zo'n macro knop drukt, met het gevolg dat de hele kolom bijvoorbeeld rood wordt. Undo gaat niet. Is er een mogelijkheid om voordat de macro uitgevoerd wordt, het bestand eerst opgeslagen wordt? Dus dat er een code komt na ActiveSheet.Unprotect, die het bestand eerst opslaat en dan de macro uitvoert.

ActiveSheet.Unprotect
   With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0

Alvast hartelijk dank

 

[OctaFish]

Die regel kun je er makkelijk zelf bij zetten door eerst een macro te maken die het werkblad opslaat (één actie: <Ctrl>+<s>). De opgeslagen regel zet je er dan bij.

 

[edmoor]

Of wijzig Selection in Activecell.

 

[OctaFish]

Kijk, dat is nou leerzaam: ik wist niet dat je met ActiveCell een bestand kon opslaan .

 

[edmoor]

Je begrijpt het wel

 

[markoesa]

Hartelijk dank voor de reactie. Heb van Octafish getest en het werkt als een sneltrein.

Many thanks