Hulp bij de knoppen - Evitje

[Evitje]

Hoi Excel-ers,

Als vrouw heb ik bitter 'weinig' verstand van excel.

Ik heb een boek excel die ik eens heb doorgenomen, maar daar staat mijn vraag niet in.

Ik zou graag een 'userform' maken met daarin ronde knopjes die ik kan aanvinken waaraan een tekst naast hangt.

(Aanpassing: Het zijn de knopjes die je aanduidt met een rond bolletje, geen vinkje)

Nu ben ik opzoek naar iemand die zo een bestandje heeft, zodat ik de formules eens kan bekijken / kopieren :evil:

Ook had ik graag een Ok-knop gehad om nadien mijn keuze te doen verschijnen in mijn excel cel.

Wie kan mij helpen?

Groetjes Evitje

 

[Wigi]

Mati6n2 zal je wel kunnen helpen http://www.helpmij.nl/forum/showthread.php?t=284313

 

[Demeter]

Kijk eens in dit bestandje!
Bij vragen horen we het graag.

edit:
voor enige info over userforms:
http://www.contextures.com/xlUserForm02.html

ps.
beveiliging heeft geen password

 

[jpvs]

Zie eens in dit forum bij Software Tips:

http://www.helpmij.nl/forum/forumdisplay.php?f=235

TIP : Formulieren
TIP : Werkset Besturingdelementen

Pierre

 

[Evitje]

Bedankt voor de reacties We gaan dat eens proberen vandaag !

 

[Evitje]

Oei ik was iets te enthousiast denk ik.

Zou iemand dit voorbeeldbestandje kunnen afwerken voor mij?

Dan zal ik wel verder kunnen met mijn vraagjes

Bedankt Excel-ers

 

[Demeter]

Probeer deze code eens:

Private Sub UserForm_Initialize()

OptionButton1 = False
OptionButton2 = False

End Sub

Private Sub Cancel_Click()

UserForm1.Hide

End Sub

Private Sub OK_Click()

    If OptionButton1 = True Then
        Sheets("Blad1").Range("C6") = 2
        UserForm1.Hide
    ElseIf OptionButton2 = True Then
        Sheets("Blad1").Range("C6") = 3
        UserForm1.Hide
    Else
        MsgBox "Maak eerst uw keuze voordat u verder gaat!"
    End If
    
End Sub


Was even lastig aangezien je de tekst opmaak dezelfde kleur hebt gemaakt als de celkleur :(.

 

[Evitje]

Was even lastig aangezien je de tekst opmaak dezelfde kleur hebt gemaakt als de celkleur .

Oei , dat weet ik niet.

Bedankt Demeter, maar ik heb deze code bij mijn userform geplakt, maar hij doet het niet

Als ik 2 selecteer en ik op OK druk gaat alles gewoon weg.

Ik heb je formule letterlijk overgenomen, hoe komt dit

 

[Demeter]

Heb je de code achter je Userform geplaatst en niet in een module?
Kijk eens naar je tekst opmaak van cel C6?

Hierbij mijn file.

 

[Evitje]

Hey bedankt Demeter, het werkt :thumb:

Groetjes Evitje