Vlookup using textbox and commandbutton

[mmenofy]

Hi there,

I have a sheet as follows

A B
x www.google.com
y www.yahoo.com
z www.anything.com

I created userform with (textBox1) & (commandbutton1)
i need it to : when i insert a value in textbox1 (say x or y or z), and then clicking commandbutton1 it opens the link in B column using vlookup


(I tried alot , but unfortunately it doesn't work)

 

[steve the fish]

Hi. Something like this will work but you do need the full address (ie including the https:// part)

Private Sub CommandButton1_Click()

Dim fnd As Range

If UserForm1.TextBox1.Value <> "" Then
    Set fnd = Sheets("Sheet1").Range("A:A").Find(TextBox1.Value)
    If Not fnd Is Nothing Then
        If fnd.Offset(0, 1).Value <> "" Then
            ActiveWorkbook.FollowHyperlink Address:=fnd.Offset(0, 1).Value, NewWindow:=True, AddHistory:=True
            Application.WindowState = xlNormal
        End If
        Unload Me
    End If
End If

End Sub

 

[mmenofy]

Thank you sooooo much, it works

 

[mmenofy]

Sorry for disturbance steve, but the file is not working for all the column, it only returns the value of the first cell in column B, regardless the value inserted in textbox1

 

[mmenofy]

Sorry again, it works, i think something wrong happened sorry again