listbox problem

  • Thread starter Thread starter apndas
  • Start date Start date
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
 
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)
 
Back
Top