Find
 

Here is some pseudo code.

With worksheets("ProduceData")
set rng = .Range(.cells(2,1),.Cells(2,1).End(xldown))
End with
With Userform1
..Listbox1.Clear
for each cell in rng
if cell.Value = .Combobox1.Value then
.Listbox1.AddItem cell.offset(0,1)
end if
Next
End with

-------------------------
With worksheets("ProduceData")
set rng = .Range(.cells(2,1),.Cells(2,1).End(xldown))
End with

With Userform1
for i = 0 to Listbox1.Listcount - 1
if listbox1.selected(i) then
for each cell in rng
if cell.Value = .Combobox1.Value then
if cell.offset(0,1).Value = Listbox1.List(i) then
cell.offset(0,2).Value = "Paid"
end if
end if
Next cell
end if
Next i
End With

Assume the Items in Combobox1 are found in column A of the database, invoice
numbers are in column B an paid is placed in column C

further assumes that the invoice number can appear more than one row
associated with multiple items in column A.

Variations from these assumptions can be adjusted in the code and for the
last assumption could result in more efficient code.

--
Regards,
Tom Ogilvy



"Jennifer" wrote:

Hi,
Listbox in a form that is filled by a combobox example:
User chooses "Oranges" from the cbobox and the listbox is filled
Invoice Number
2
5
7
8
27
Lets say the user then multi selects invoice#5,7,28 I would like to hit the
enter button and it go back to the back database worksheet that all of this
is being pulled from SEARCH column "b" for those invoice numbers and then
place a "paid" in column "d" for the matching invoice numbers Example
Worksheet "ProduceData" Range "Database"
B C D
Invoices
1
2
3
4
5 Paid
6
7 Paid
8
. . .
. . .
28 Paid

Any help please! I am so lost on figuring this out. Thank you.
--
Though daily learning, I LOVE EXCEL!
Jennifer