Multiple selections in listbox

[Jakes]

Hi again,

I have a Listbox with drawing numbers, and I need to be able to select multiple drawings from that listbox by any means (maybe tickbox?) and then save ID of the selected drawings on a line in another sheet. Is that possible?

Best regards,

Jakes

[royUK]

Where is the ListBox?

[Jakes]

i apologize for the lack of info

I have a Form1 with a Listbox1 that have a rowsource value referring to sheet1( the drawing ID, Number and name). I need to be able to select multiple drawing numbers from Listbox1, and save only the drawing ID of the selected on Sheet 2, in the next open row starting on column B

If needed, I will attach my spreadsheet for more info?

[OnErrorGoto0]

This is untested but the code would be roughly

dim n as long
with me.listbox1
for n = 1 to .listcount
if .selected(n - 1) then sheets("Sheet 2").Cells(rows.count, "B").end(xlup).offset(1).Value = .list(n - 1, 0)
next n
End With

[Jakes]

Thank you, appreciate the help. But I came across another problem, I need to state the quantity of the drawings selected, for example, I have selected three copies of Drawing 1, and one copy of drawing 2, so in addition to select the drawings, I need a value entered manually as well. any idea what I can do?

The end result I need is that the selected info need to be written to sheet 2 in one row, for example:
A | B | C | D | E | F | G | etc
Issue slip ID| Drawing 1 ID | Drawing 1 QTY | Drawing 2 ID | Drawing 2 QTY | Drawing 3 ID | Drawing 3 QTY |

Thanks for the help!

[OnErrorGoto0]

At this stage I think a sample workbook would be useful.

[Jakes]

Hi there,

attached is the template. This is for a basic Drawing issue slip manager, the basic operation is that all the drawings on a project will be entered into Sheet 1 (Drawings) and when issuing drawings to a contractor, you select the drawing ID's from the listbox, add the quantity of drawings issued, and write the info to Sheet 2 (Issues) and I will still create a sheet containing a template for printing the issues

issue template.xlsm

Thank you so long

[OnErrorGoto0]

You could try something like this?

[Jakes]

AWESOME! Thank you very much I REALLy appreciate the help!

[OnErrorGoto0]

My pleasure.

Please do not forget to mark this question Solved.