Opmaak en tekst afhankelijk van checkbox

[Paul-RT]

Ik heb 2 option buttons, waarvan er maar 1 tegelijk kan worden geselecteerd.
Als option button 1 wordt geklikt, moet er in cel M7 het woord "Goedgekeurd" in groene letters komen te staan. (kleur code &H0000C000&)
Als option button 2 wordt geklikt, moet er in cel M7 het woord "Afgekeurd" in rode letters komen te staan. (kleur code &H000000C0&)

Private Sub OptionButton1_Click()
  
End Sub

Hoe doe ik dat verder?

 

[Warme bakkertje]

Private Sub OptionButton1_Click()
  Range("M7").Select
    With Selection
        .Value = "Goedgekeurd"
        .Font.ColorIndex = 10
    End With
End Sub

Private Sub OptionButton2_Click()
  Range("M7").Select
    With Selection
        .Value = "Afgekeurd"
        .Font.ColorIndex = 3
    End With
End Sub

Mvg

Rudi

 

[Paul-RT]

Super !

Thanx bakkertje :thumb:

 

[Roncancio]

Ik heb 2 option buttons, waarvan er maar 1 tegelijk kan worden geselecteerd.
Als option button 1 wordt geklikt, moet er in cel M7 het woord "Goedgekeurd" in groene letters komen te staan. (kleur code &H0000C000&)
Als option button 2 wordt geklikt, moet er in cel M7 het woord "Afgekeurd" in rode letters komen te staan. (kleur code &H000000C0&)

Private Sub OptionButton1_Click()
  
End Sub

Hoe doe ik dat verder?

M.i. zijn er 3 mogelijkheden.

1.

Sub Knop1_BijKlikken()
Range("M7").Value = "Goedgekeurd"
Range("M7").Font.Color = &HC000&
End Sub

De hexadecimale waarde voor de tekstkleur lijkt mij niet echt leesbaar.

2.

Sub Knop1_BijKlikken()
Range("M7").Value = "Goedgekeurd"
Range("M7").Font.ColorIndex = 4
End Sub

4 = groen
3 = rood

3.

Sub Knop1_BijKlikken()
Range("M7").Value = "Goedgekeurd"
Range("M7").Font.Color = vbGreen
End Sub

En uiteraard vbRed voor rood.

Met vriendelijke groet,


Roncancio

 

[Paul-RT]

Nog 1 in deze serie:

Ergens in het document staan deze 2 option buttons, naast elkaar.
Ik kan 1 van beide selecteren. Prima.

Nu heb ik verderop 3 option buttons naast elkaar. Ik wil er 1 van de 3 selecteren.
De vorige serie van 2 moet blijven zoals ie is.(1 geselecteerd)
Kan dat? of krijg ik bij 50 option buttons telkens maar 1 van de 50?

 

[Roncancio]

Dat kan maar dan moet je de optionbuttons in een frame (groepsvak) zetten.
(zie voorbeeld).
Per frame (groepsvak) kan maar 1 optionbutton aangeklikt zijn.

Met vriendelijke groet,


Roncancio

 

[Paul-RT]

Wow. Mooi

Maar, waar vind ik die optie? De help-functie geeft hier niets over.....

 

[Roncancio]

Wow. Mooi

Maar, waar vind ik die optie? De help-functie geeft hier niets over.....

Dit zit in de werkset waar ook de optiebuttons e.d. zitten.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Beeld >> Werkbalken >> Formulieren >> Vierkantje met xyz aanklikken (onder Aa) en met linkermuisknop ingedrukt tekenen op je werkblad

Het gaat hier snel

Mvg

Rudi

 

[Paul-RT]

Stond er niet, maar na even zoeken, toe kunnen voegen.

Wederom VEEL dank !:thumb:

Echter, als ik 2 groepsvakken maak (irritant op je scherm-->> zichtbaar randje)
Dan werken ze niet zoals jou voorbeeld.
Nog steeds maar 1 rondje klikken.

Wat doe ik verkeerd?

 

[Roncancio]

Ik neem aan dat de optionbuttons in de frames zijn geplaatst.
Voor de zekerheid een aangepaste versie van mijn vorige bestand.
In deze nieuwe versie zitten meerdere frames met optionbuttons.
Bovendien zijn de randen van de frames niet zo overduidelijk aanwezig.

Met vriendelijke groet,


Roncancio

 

[Paul-RT]

Vreemd. Ik heb op 2 manieren geprobeerd. Beiden werken bij mij niet.
In jou document heb ik eerst 4 option buttons geplaatst.
Daarna 1 frame om 2 buttons gezet.
Ik kan slechts 1 van de 4 kiezen.

Darna heb ik eerst een frame geplaatst. Daarin 2 rondjes en 2 erbuiten.
Ik kan nog steeds maar 1 van de 4 kiezen.
Ik heb een kopie van deze laatste actie als bijlage.

 

[Roncancio]

Vreemd. Ik heb op 2 manieren geprobeerd. Beiden werken bij mij niet.
In jou document heb ik eerst 4 option buttons geplaatst.
Daarna 1 frame om 2 buttons gezet.
Ik kan slechts 1 van de 4 kiezen.

Darna heb ik eerst een frame geplaatst. Daarin 2 rondjes en 2 erbuiten.
Ik kan nog steeds maar 1 van de 4 kiezen.
Ik heb een kopie van deze laatste actie als bijlage.

Je gebruikt andere optionbuttons dan degene voor de frame.
Er is een werkset Formulieren en een werkset Besturingselementen en je hebt de frame van Formulieren gecombineerd met de optionbuttons van Besturingselementen.

Met vriendelijke groet,


Roncancio

 

[Paul-RT]

Het was me al opgevallen dat jou rondje er anders uitzag dan de mijne.

Ik heb de rondjes van de werkbalk verwijderd.
Dan op aanpassen geklikt, besturingselementen, dan keuze rondje geplaatst.
Na plaatsen heet ie "Optionbutton" en werkt niet zoals die van jou en ziet er ook anders uit
Ik wordt gek ! :shocked:

 

[Roncancio]

Het was me al opgevallen dat jou rondje er anders uitzag dan de mijne.

Ik heb de rondjes van de werkbalk verwijderd.
Dan op aanpassen geklikt, besturingselementen, dan keuze rondje geplaatst.
Na plaatsen heet ie "Optionbutton" en werkt niet zoals die van jou en ziet er ook anders uit
Ik wordt gek ! :shocked:

Ik heb de keuzerondjes van Formulieren gebruikt.

Met vriendelijke groet,


Roncancio

 

[Paul-RT]

Juiste button gevonden.
Eens zien, of het ook wil werken met de optie uit mijn startpost.