Perhaps something like this pseudo code:
Private Sub Cmd_ProcessList_Click()
Dim lItem As Long, rng as Range, rng1 as Range
Dim rng2 as Range
set rng = Range("ManifestsCurrent")
For lItem = 0 To Me.lbManifestCurrent.ListCount - 1
If Me.lbManifestCurrent.Selected(lItem) = True Then
if rng1 is nothing then
set rng1 = rng.Rows(i + 1)
else
set rng1 = Union(rng1,rng.Rows(i))
end if
end if
Next
if not rng1 is nothing then
set rng2 = Worksheets("Freight Accrual History") _
.Range("A65536").End(xlUp)(2, 1)
rng1.copy Destination:=rng2
Me.lbManifestCurrent.RowSource = ""
rng2.Delete Shift:=xlShiftUp
Me.lbManifestCurrent.RowSource = "ManifestsCurrent"
End if
End Sub
--
Regards,
Tom Ogilvy
"apndas" wrote in
message ...
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
--
apndas
------------------------------------------------------------------------
apndas's Profile:
http://www.excelforum.com/member.php...o&userid=36137
View this thread: http://www.excelforum.com/showthread...hreadid=564054