Help with code please

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
 
F

fugazi48

I have a similar program to check the existance of certain parameters in a
data file. I push the parameters that fail into an array and display them
later in a section of the worksheet. Maybe you can put an array into your
listbox.
 

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 Please 0
Advice on code 0
Help with code please? 2
Advice Please? 3
Please help with code? 2
Help with code please 4
Help with code please? 6
Error control? 2

Top