G
Greg
I am wondering if there is any way to convert this code,
It looks up a value in a cell and then it checks for the corresponding name
in another column.
How can I change this code to put all the matches in 1 listbox.
here is the code
Dim ans
Sheet2.Activate
On Error Resume Next
TextBox1.Text = Sheet2.Range("ab2").Value
ans = Application.Match(CLng(TextBox1.Text ), Range("L:L"), 0)
If Not IsError(ans) Then
Label3.Caption = Application.Index(Range("b:b"), ans)
end if
how do i change the second part to fill if more than 1 match and then fill a
listbox with the answers
Thanks
Greg
It looks up a value in a cell and then it checks for the corresponding name
in another column.
How can I change this code to put all the matches in 1 listbox.
here is the code
Dim ans
Sheet2.Activate
On Error Resume Next
TextBox1.Text = Sheet2.Range("ab2").Value
ans = Application.Match(CLng(TextBox1.Text ), Range("L:L"), 0)
If Not IsError(ans) Then
Label3.Caption = Application.Index(Range("b:b"), ans)
end if
how do i change the second part to fill if more than 1 match and then fill a
listbox with the answers
Thanks
Greg