populate values in textbox based on optionbutton doesn't work

[Maklil]

Hello
I try to populate values in textbox based on select optionbuttonS after select combobox.
so should brings the values from cloumn F when select combobox1 and optionbutton1 into textbox1,and if I select combobox1 and optionbutton2 should brings the values from cloumn G and populate into textbox1.

Private Sub ComboBox1_Change()
Dim c As Range
With Sheets("BS")
  
    Set c = .Range("B:B").Find(What:=ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If OptionButton1.Value = True Then
    If Not c Is Nothing Then
        ComboBox2.Value = c.Offset(, 1).Value
        ComboBox3.Value = c.Offset(, 2).Value
        ComboBox4.Value = c.Offset(, 3).Value
        TextBox1.Value = c.Offset(, 5).Value
        ElseIf OptionButton2.Value = True Then
        If Not c Is Nothing Then
        ComboBox2.Value = c.Offset(, 1).Value
        ComboBox3.Value = c.Offset(, 2).Value
        ComboBox4.Value = c.Offset(, 3).Value
        TextBox1.Value = c.Offset(, 6).Value
        End If
    End If
    End If
End With

End Sub

How can I do that ,please

 

[Maklil]

you count from the search column so column C = 1, D = 2 on so on

umm ! thanks for this clarification

Using your code, Textbox value is returned from Column F for optionbutton1 & Column G for optionbutton2

do you mean like this?

Private Sub OptionButton1_Click()
    
     If Me.OptionButton1.Value = True Then
            Me.TextBox1.Value = c.Offset(, 4).Value
            End If
End Sub

actually doesn't succeed and gives error object required in this line

            Me.TextBox1.Value = c.Offset(, 4).Value

but if you mean put whole procdure like this

Private Sub OptionButton1_Click()
    
     Dim c       As Range, rng As Range
    Dim search  As String
    
    Set rng = ThisWorkbook.Worksheets("BS").Range("B:B")
    
    search = Me.ComboBox1.Value
    
    Set c = rng.Find(What:=search, LookIn:=xlValues, LookAt:=xlWhole, _
                     SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
                    SearchFormat:=False)
                    
    If Not c Is Nothing Then
    Me.ComboBox2.Value = c.Offset(, 1).Value
        Me.ComboBox3.Value = c.Offset(, 2).Value
        Me.ComboBox4.Value = c.Offset(, 3).Value
        Me.TextBox1.Value = c.Offset(, 4).Value
        End If
End Sub

then it works .

 

[dmt32]

None of that - I used the codes you published in #Post 7 along with the updated combobox1_change code & that worked ok but as I stated, it needs a value in combobox1 that can be found in the search range.

Dave

 

[Maklil]

but as I stated, it needs a value in combobox1 that can be found in the search range.

yes you'r right the number of combobox is not right that's why doesn't change the value when move from optionbutton to another
now everyting is great !
I appreciated for your time and help

 

[dmt32]

I appreciated for your time and help

Glad resolved & appreciate feedback

Dave