vlookup using a listbox for item to search for and the next column over to be an answer that changes the value in option buttons

[GBDavis]

I am trying to have the user choose a serial number in a list and from that the option box will change.

here is the partial code i am trying.

lsn=worksheetfunction.VLookup(lstSN.Value,worksheets("Serial Numbers").Range("a":"b"),2,False)
if lsn="" then exit sub
else if lsn="25 in_lbs +/- 6%" then
optionbutton1 = true
else if lsn="35 in_lbs +/- 6%" then
optionbutton2 = true
else if lsn="55 in_lbs +/- 6%" then
optionbutton3 = true
else if lsn="65 in_lbs +/- 6%" then
optionbutton4 = true

any ideas?

 

[DanteAmor]

Try this

Private Sub lstSN_Click()
    Dim f As Range, lsn As String


    Set f = Worksheets("Serial Numbers").Range("A:A").Find(lstSN, LookIn:=xlValues, lookat:=xlWhole)
    If Not f Is Nothing Then
        lsn = f.Offset(0, 1).Value
        Select Case lsn
            Case "25 in_lbs +/- 6%": OptionButton1 = True
            Case "35 in_lbs +/- 6%": OptionButton2 = True
            Case "55 in_lbs +/- 6%": OptionButton3 = True
            Case "65 in_lbs +/- 6%": OptionButton4 = True
        End Select
    End If
End Sub

 

[GBDavis]

I placed the code in and nothing seems to happen. No error and the radio buttons do not change. do you have any other ideas? Thank you

 

[DanteAmor]

I placed the code in and nothing seems to happen. No error and the radio buttons do not change. do you have any other ideas? Thank you

You must have a listbox called lstSN and 4 optionbutton called optionbuton1 at optionbutton4. You must click on any record (previously loaded in the listbox) and then the optionbutton will be activated.

my test file:

https://www.dropbox.com/s/iqdvkax00io4ey7/listbox.xlsm?dl=0