Some help to make 2 codes shorter

[Belleke]

I have this piece of code when I click an option button

If OPB_01 Then [F10] = "R"
    If OPB_01 Then [H10] = ""
    If OPB_02 Then [H10] = "S"
    If OPB_02 Then [F10] = ""

R & S is because the cells are formated as Windings2
this works perfect. but
OPB_.. are option buttons, and I have 48 option buttons
Can this code shorter?
And the second question to make code shorter
I have this code to fill textboxes when I click in a listbox

T_02.Value = LB_03.Column(1)
T_03.Value = LB_03.Column(2)
T_04.Value = LB_03.Column(3)
T_05.Value = LB_03.Column(4)

etc.
(T_... are textboxes)
Same question
Please advice if it is possible.
Thanks

 

[SirJB7]

Hi, Belleke!

If OPB_01 Then [F10] = "R"
    If OPB_01 Then [H10] = ""
    If OPB_02 Then [H10] = "S"
    If OPB_02 Then [F10] = ""

This can be reduce to the half+1:

Private Sub x()
    [F10,H10] = ""
    If OPB_01 Then [F10] = "R"
    If OPB_02 Then [H10] = "S"
End SuB

T_02.Value = LB_03.Column(1)
T_03.Value = LB_03.Column(2)
T_04.Value = LB_03.Column(3)
T_05.Value = LB_03.Column(4)

If controls are ActiveX you can try this (doesn't work for Forms controls):

Private Sub y()
    Dim ctl As Control
    Dim I As Integer, J As Integer, A As String, B As String
    For I = 1 To ActiveSheet.OLEObjects.Count
        If Left(ActiveSheet.OLEObjects(I).Name, 3) = "TB_" Then
            B = Right(ActiveSheet.OLEObjects(I).Name, 2)
            J = Val(B)
            ActiveSheet.OLEObjects("TB_" & B).Object.Value = Range("LB_03").Cells(1, J + 1)
        End If
    Next I
End Sub

Hope it helps.
Regards!

 

[Belleke]

Thank you for your code and included example.
Works great.

 

[SirJB7]

Hi, Belleke!
Glad you solved it. Thanks for your feedback and welcome back whenever needed or wanted.
Regards!

 

[Belleke]

Hi SirJB7,
Thank you for the welcome.
Have a nice weekend
Regards