togglebutton

[kareltje555]

geachte ..
op een userform een rij van toggle buttons staan .
deze geven op sheet een ja of een nee.
maar hoe kun je het nu zo maken dat er geen antwoord komt te staan - lege cel inhoud dus , maw een soort reset van de togglebutton.
tripple state geeft me [nog] geen oplossing , dubble klik evenmin

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "JA"
Sheets("oos").Range("h21").Value = "JA"
Sheets("oos").Range("i21").Value = "NEE"
Else
ToggleButton1.Caption = "NEE"
Sheets("oos").Range("h21").Value = "NEE"
Sheets("oos").Range("i21").Value = "JA"
End If
TextBox273.Value = Sheets("oos").Range("h44").Value
TextBox274.Value = Sheets("oos").Range("i44").Value
End Sub

mvg charles

 

[VenA]

je kan hier eens kijken. https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/triplestate-property-togglebutton-control-example

 

[snb]

Private Sub ToggleButton1_Click()
  with ToggleButton1
    .Caption = format(.value,"yes/no')
     Sheets("oos").Range("h21"),resize(,2)= array(.caption,format(not .value,"yes/no')
  end with
End Sub