keuzerondje in userform

[verluc]

Heb een userform met verschillende keuzerondjes om een macro op te roepen.
Ik krijg deze echter niet in werking, daarvoor de macro die achter een keuzerondje OptionButton5 zit:

Sub OptionButton5_Click()
If OptionButton5.Value = True Then
   With Sheets("Algemeen")
   End With
Call druk
End Sub

I

 

[Roncancio]

Gebruik besturingselementen (keuzerondjes, knoppen, textboxen, etc) waar ze voor bedoeld zijn.
Men rekent er niet op dat een macro gestart wordt als een keuzerondje wordt aangeklikt.
Overigens zit er geen End IF in de code en is de bedoeling van het aanroepen van werkblad Algemeen niet duidelijk.

Met vriendelijke groet,


Roncancio

 

[verluc]

De macro druk staat in het blad Algemeen en het is deze die ik wil aanroepen via het keuzerondje.
Wat is dan een betere oplossing voor meerdere macro's te verzamelen?

 

[Roncancio]

Macro's behoren in een module te staan.

Met vriendelijke groet,


Roncancio

 

[verluc]

Roncancio,

Heb deze macro verplaatst van het werkblad naar een module en alles werkt.
Zeer bedankt.