gebruik van OptionButtons

[bowlingman]

Hallo,
Ik ben met mijn Userform al aardig opgeschoten, met de beste hulp die je hier kan vinden en het beetje kennis dat ik zelf heb (ook het meeste hier geleerd).
Nu wordt alles wat op het frm wordt ingebracht netjes weggeschreven met de volgende code

Private Sub cboLedenWegschrijven_Click()
    Dim c As Range, i As Long, ctrl As Control
    Application.ScreenUpdating = False
        Set c = Sheets("Leden").Columns(1).Find(cboiD.Value, , xlValues, xlWhole)
            For i = 1 To 11
                c.Offset(, i) = Me("txtLeden" & i).Text
                c.Offset(0, 12) = Me("cboTeams").Text
            Next
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is MSForms.TextBox Then
                ctrl.Text = vbNullString
            End If
            If TypeOf ctrl Is MSForms.ComboBox Then
                ctrl.Text = vbNullString
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Zoals jullie kunnen zien wordt er weggeschreven tot in kolom "M" van de sheet "Leden".
Nu heb ik op het frm nog twee OptionButtons geplaatst namelijk "OptionButtonMan" en "OptionButtonVrouw"
Hoe kan ik nu bovenstaande code nog aanpassen zodat één van beide OptionButtons is geselecteerd er respectievelijk in Kolom "N" een M voor Man of een V voor Vrouw komt te staan.
Heb al het een ander geprobeerd, maar niets lukt mij.

Grtjs.
Armand

 

[Niels28]

Uit de losse pols zonder voorbeeld.

Private Sub cboLedenWegschrijven_Click()
    Dim c As Range, i As Long, ctrl As Control
    Application.ScreenUpdating = False
        Set c = Sheets("Leden").Columns(1).Find(cboiD.Value, , xlValues, xlWhole)
            For i = 1 To 11
                c.Offset(, i) = Me("txtLeden" & i).Text
                c.Offset(0, 12) = Me("cboTeams").Text
            Next
                If OptionButtonVrouw = True Then c.Offset(0, 14) = "V"
                If OptionButtonMan = True Then c.Offset(0, 14) = "M"
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is MSForms.TextBox Then
                ctrl.Text = vbNullString
            End If
            If TypeOf ctrl Is MSForms.ComboBox Then
                ctrl.Text = vbNullString
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Niels

 

[bowlingman]

Amai Niels,
Dat was snel, en zo uit de losse pols nog correct ook.
Alleen moest ik "14" vervangen door "13".
Knap werk, bedankt

Weet jij misschien ook hoe ik na het wegschrijven de OptionButton terug kan de-selecteren.
Heb geprobeert met het volgende aan de code toe te voegen

If TypeOf ctrl Is MSForms.OptionButton Then
                ctrl.Text = vbNullString
            End If

Zoals voor het leegmaken van de textboxen en de comboboxen, maar dat lukt niet.

Grtjs.
Armand

 

[Niels28]

N is de 14de letter dan is dat natuurlijk een offset van 13.

ctrl.value = false

Niels

 

[bowlingman]

Perfect Niels,
Ik wou dit ook eerst proberen, maar vermits er na het punt in het lijstje geen "value" voorkwam dacht ik dat dit niet juist was.

Hartelijk dank
Grtjs.
Armand