I need help please ??
I want this formula to search all sheets :
Private Sub TextBox2_Change()
ListBox1.Clear
ListBox1.RowSource = ""
For Each c In Range("d17:d200")
b = InStr(c, TextBox2.Value)
If b > 0 Then
ListBox1.AddItem c
c.Select
End If
Next c
TextBox3.Value = ActiveCell.Offset(0, 1).Value
On Error Resume Next
x = WorksheetFunction.VLookup(TextBox2.Text, Range("d1750"), 13, 0)
Image1.Picture = LoadPicture(x)
End Sub
I want this formula to search all sheets :
Private Sub TextBox2_Change()
ListBox1.Clear
ListBox1.RowSource = ""
For Each c In Range("d17:d200")
b = InStr(c, TextBox2.Value)
If b > 0 Then
ListBox1.AddItem c
c.Select
End If
Next c
TextBox3.Value = ActiveCell.Offset(0, 1).Value
On Error Resume Next
x = WorksheetFunction.VLookup(TextBox2.Text, Range("d1750"), 13, 0)
Image1.Picture = LoadPicture(x)
End Sub