mail
Private Sub Commandbutton8_click()
Dim rng as Range, rng1 as Range
with Activesheet
set rng = .Range(listbox1.rowsource)(listbox1.ListIndex+1)
set rng1 = .Range(listbox2.rowsource)(listbox2.ListIndex+1)
..Range(rng,rng1).copy _
Destination:=worksheets("Sheet5").Range("A1")
End with
End sub
--
Regards,
Tom Ogilvy
D wrote in message
...
I need a routine with a urserform that selects one point out of a listbox
from a list on a worksheet and then make a selection from a second listbox
from another point from the same list on the worksheet and then with a
command button send the selected list to another worksheet.
Anyone got any ideas?
Thanks
|