Advice on code

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help with code please 1
Help Please 0
Advice Please? 3
Help with code please? 2
Please help with code? 2
Error control? 2
Name look up 0
Auto look up 1

Top