Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro starten bij openen tabblad

829 views
Skip to first unread message

Joop Stolk

unread,
Apr 30, 2002, 3:46:29 PM4/30/02
to
Ik heb voor onervaren gebruikers een werblad gemaakt dat uit twee invoer
tabbladen en een drietal uitvoer tabbladen bestaat.
De uitvoer bestaat uit draaitabellen.
De gebruikers vergeten, nadat zij gegevens gemuteerd hebben, geregeld de
draaitabellen bij te werken.
Bestaat er een VBA-kunstje om, zodra naar een tabblad gesprongen wordt een
(draaitabel vernieuwen) macro te starten?
Ik heb de klok wel horen luiden (event triggered of zo ??) maar kan de
klepel niet ontdekken.

De macro's heb ik al, maar ze zijn nu nog aan een grafisch object
gekoppeld, de gebruiker moet daar op klikken.
En gebruikers zijn net als ik: ze vergeten nogal eens wat.!

Bij voorbaat dank

Joop Stolk


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.351 / Virus Database: 197 - Release Date: 19-4-02


Ber Visser

unread,
Apr 30, 2002, 5:46:58 PM4/30/02
to
Hallo Joop,
Klik met je rechter muisknop op het tabblad en keis Programmacode
weergeven.
Je komt dan in de VBA editor.
In het rechter vak staat al een (lege) macro, die verwijder je.
Daarboven zijn twee keuzevakken, in de linker staat Worksheet.
Klik op het pijltje van het rechter vak en je krijgt een
keuzemenu. Kies daarin "Activate"
In het witte vak staat nu een (lege) macro die er zo uitziet:

Private Sub Worksheet_Activate()
Jouw code
End Sub

Zet daar je code in. Die wordt nu uitgevoerd wanneer het blad
wordt geselecteerd.
Let wel: wanneer de code bijvoorbeeld in Blad1 staat en Excel
start op met Blad1 geactiveerd dan moet je wel eerst een ander
blad selecteren en daarna weer Blad1 om de macro automatisch te
starten.
Naast Activate staan er nog een aantal andere keuzemogelijkheden
zoals bijvoorbeeld Worksheet_Change of Worksheet_SelectionChange
waarmee je een macro kunt starten.

--
Met vriendelijke groeten,
Ber Visser

"Joop Stolk" <joop....@planet.nl> schreef in bericht
news:#rMDX$H8BHA.2232@tkmsftngp05...

0 new messages