listbox problem

A

apndas

Yet another listbox question

--------------------------------------------------------------------------------

A bit of background first I have the following table on sheet1 in
columns a:e representing current outstanding invoices

Site....DeliveryDate....Manifest#....Accrual$$.... Tonnage
TW......17/07/06........1001.............312.74.......14.520
RK.......17/07/06........1002.............926.59.......15.235
YD......18/07/06........1003.............474.02........24.510
TW......24/07/06........1004.............529.91........24.601
YD.......24/07/06........1005.............698.33........36.108
LI.........07/12/06........1006............817.41.........24.658
IP0........1/11/06.........1007............129.81........12.566
SC........31/01/06........1009............240.90........12.456
MK........02/01/06........1010 .........1,207.87........15.650
IP.........02/01/06........1025............127.58........12.350

I am populating my multiselect listbox on my "Process Invoices"
UserForm from column "c" (Manifest#) as a dynamic range name in the
rowsource property of the listbox. When I select this particular
manifest# I would like to copy the entire row of that particular
manifest# from the above worksheet into another worksheet as "processed
invoices" and then delete that row from the above. hopefully this makes
sense.

Regards darren
 
B

Bob Phillips

To do that try something like

With Me.ListBox1
If .ListIndex > -1 Then
Worksheets("Sheet1").Rows(.ListIndex + 2).Delete
End If
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Top