Vlookup in a userform

[Jim Stewart]

You people are the greatest, a bigggggg help. Maybe you can help with this.
Is there any way to create a userform that a user can enter 2 or 3 variables and cause a search of all the sheets in a workbook to find a record?
Thanks in advance!!!!!

 

[Erdinç E. Karaçam]

Hi,

Just an example;

UserForm1
TextBox1 ; value: Jim
TextBox2 ; value: Erdinç
TextBox3 ; value: Excel

The codes of CommandButton1 ;

Private Sub CommandButton1_Click()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In Worksheets
        [B1] = Sh.Name & "!" & Sh.Cells.Find(TextBox1).Address
        [B2] = Sh.Name & "!" & Sh.Cells.Find(TextBox2).Address
        [B3] = Sh.Name & "!" & Sh.Cells.Find(TextBox3).Address
    Next Sh
End Sub

Sheet1 B10 cell value = Jim
Sheet2 D2 cell value = Erdinç
Sheet3 E7 cell value = Excel

Result of codes on Activesheet (B1-B2-B3):

Sheet1!$B$10
Sheet2!$D$2
Sheet3!$E$7