Macro werkt pas na 2 x klikken op cel

[HendrX]

Beste Excelgenoten,

Ik heb een speedometer gemaakt waarbij de wijzer beweegt als ik handmatig in een cel een waarde ingeef. Dit gaat dmv een macro. Ik heb een scrollbar toegevoegd en bij het schuiven van de balk komt een waarde in een aangegeven cel. Ik heb een aantal scrollbars gemaakt en dus zijn er een aantal cellen met waardes. Deze cellen heb ik bij elkaar opgeteld dmv autosom.

Nu de vraag.... ik wil de totale uitkomst( de optelsom in aangegeven cel) gebruiken om de wijzer van de barometer te bewegen. Echter beweegt de wijzer nu pas als ik2 x klik op de cel waarin het totaal staat ( optelsom) en lijkt de macro pas dan geactiveerd te worden. Wanneer ik de macro toevoeg met . Calculate dan kan de scrollbar niet meer schuiven maar alleen maar per klik naar links of naar rechts. De wijzer gaat in dit geval wel per klik meedraaien.

Please advies.

Thanks

 

[edmoor]

Zonder voorbeeld docment wordt dit gissen.

 

[HendrX]

[Bekijk bijlage Vitaliteit en Tevredenheid dashboard voorbeeld.xlsm

Beste Edmoor,

Je hebt helemaal gelijk. Heb het bestand nu bijgesloten.
Hoop dat dit het verhaal meer verduidelijkt.

 

[edmoor]

Kennelijk triggert het wijzigen van de Linked cell door de schuifbalk niet het Worksheet_Change event.
Voor "Ben je trots..." heb ik dit toegevoegd en werkt het wel:

Private Sub ScrollBar7_Change()
    Range("A101").Value = "test"
    ActiveCell.Select
End Sub

Dat zou je dus voor iedere schuifbalk moeten doen.
Je kan er exact dezelfde code en dus ook die A101 voor gebruiken.

 

[HendrX]

Gij zijt geweldig! Thanks a lot Edmoor. :thumb:

 

[HSV]

Kan ook zo toch?

Private Sub Worksheet_Calculate()
 Shapes("Groep 12").Rotation = Range("C100").Value * 236
 Shapes("Groep 80").Rotation = Range("M106").Value * 236
End Sub