VBA Listbox multiselect question

You could store the values in an array that is declared with the Public keyword in a General module.

Can you help out with some code to do that please

Please post your code that saves the selections in a range.

Hi

I have got some code which does what you are looking to do but I am a newbie and it is probably not the cleanest way. It would be great if anyone has any clue how to achieve the results this code achieves using some sort of array.

Private Sub EnterBtn_Click()
If ListBox1.Selected(0) = True Then
msg1 = ListBox1.List(0)
End If
If ListBox1.Selected(1) = True Then
msg2 = ListBox1.List(1)
End If
If ListBox1.Selected(2) = True Then
msg3 = ListBox1.List(2)
End If
If ListBox1.Selected(3) = True Then
msg4 = ListBox1.List(3)
End If
If ListBox1.Selected(4) = True Then
msg5 = ListBox1.List(4)
End If

MsgBox msg1 & " " & msg2 & " " & msg3 & " " & msg4 & " " & msg5
End Sub

This function returns a string showing the selected items from the list box.
If ListBoxSummary(ListBox1) = "0011" that means that there are 4 items in the list box and the third and fourth have been selected.

Put this in a normal code module

If this is put in the userform's code module Even after the uf has terminated, the function ListBoxSummary will return the value from the (now unloaded) userform, as in the sub Test.

When called from the userform code, the Listbox in question should be passed as the function's argument. This forces an update of the value of the function.
When called from outside the UF code, omitting the argument causes the function not read from the userform, but to "remember" the static variable myValue.

Also for use after the UF is closed.
It reproduced the .Selected property by polling the memory value of ListBoxSummary.

Its 0 based if ListBoxSummary = "1011" then

PostSelected(0)=True
PostSelected(1)=True
PostSelected(2)=False
PostSelected(3)=True