Code link optionbutton ,compobox with textbox and cells in sheet

[abdelfattah]

hi, expert i would help finding code connect the data sheet with optionbutton , compobox and textbox in userform

for explanation i have data in sheet1 in columns c,d are two prices price the column b is the brand and userform 2 optionbuttons and compobox1, textbox1 here when i choose the brand in compox1 and choose optionbutton1 it gives me the price of column c and put in textbox1 into userform and if i choose optionbuttons2 it give me the price of column d and put in textbox1 into userform

 

[My Aswer Is This]

Try this:
Put this script in ComboBox1

Private Sub ComboBox1_Change()
'Modified  9/19/2019  12:22:01 PM  EDT
Dim ans As String
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B1:B" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
If OptionButton1.Value = True Then ans = SearchRange.Offset(0, 1).Value
If OptionButton2.Value = True Then ans = SearchRange.Offset(0, 2).Value
TextBox1.Value = ans
End Sub

 

[abdelfattah]

Try this:
Put this script in ComboBox1

Private Sub ComboBox1_Change()
'Modified  9/19/2019  12:22:01 PM  EDT
Dim ans As String
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B1:B" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
If OptionButton1.Value = True Then ans = SearchRange.Offset(0, 1).Value
If OptionButton2.Value = True Then ans = SearchRange.Offset(0, 2).Value
TextBox1.Value = ans
End Sub

thanks but there is problem when i press optionbutton2 it doesn't show price in textbox what in column d it stays price column c which connected optionbutton1

 

[My Aswer Is This]

I thought you wanted the script to run when you choose the item in the ComboBox

So choose the value in the ComboBox and then click the option Button.

Put these two scripts in the proper Option Buttons

Private Sub OptionButton1_Click()
'Modified  9/19/2019  4:49:01 PM  EDT
Dim ans As String
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B1:B" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
If OptionButton1.Value = True Then ans = SearchRange.Offset(0, 1).Value
If OptionButton2.Value = True Then ans = SearchRange.Offset(0, 2).Value
TextBox1.Value = ans
End Sub
Private Sub OptionButton2_Click()
'Modified  9/19/2019  4:49:01 PM  EDT
Dim ans As String
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B1:B" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
If OptionButton1.Value = True Then ans = SearchRange.Offset(0, 1).Value
If OptionButton2.Value = True Then ans = SearchRange.Offset(0, 2).Value
TextBox1.Value = ans
End Sub

 

[abdelfattah]

I thought you wanted the script to run when you choose the item in the ComboBox

So choose the value in the ComboBox and then click the option Button.

Put these two scripts in the proper Option Buttons

Private Sub OptionButton1_Click()
'Modified  9/19/2019  4:49:01 PM  EDT
Dim ans As String
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B1:B" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
If OptionButton1.Value = True Then ans = SearchRange.Offset(0, 1).Value
If OptionButton2.Value = True Then ans = SearchRange.Offset(0, 2).Value
TextBox1.Value = ans
End Sub
Private Sub OptionButton2_Click()
'Modified  9/19/2019  4:49:01 PM  EDT
Dim ans As String
Dim SearchString As String
Dim SearchRange As Range
SearchString = ComboBox1.Value
Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Set SearchRange = Range("B1:B" & lastrow).Find(SearchString, LookIn:=xlValues, lookat:=xlWhole)
If SearchRange Is Nothing Then MsgBox SearchString & "  Not Found": Exit Sub
If OptionButton1.Value = True Then ans = SearchRange.Offset(0, 1).Value
If OptionButton2.Value = True Then ans = SearchRange.Offset(0, 2).Value
TextBox1.Value = ans
End Sub

it doesn't show any price buddy!

 

[My Aswer Is This]

I have no other solution for you.
Maybe someone else here on the forum will have another solution.
You did not say what it did.