Excel VBA UserForm with ListBoxes (multiple Selections) - Unable to clear Multiple Selections

[GSeibert]

Hi there,
I've created an Excel Worksheet for collecting information.

Keeping it to just this as simple as possible.. I have a UserForm with several different types of selection options but mostly ListBoxes with multiple selections option turned on.

I don't seem to have the correct code to clear all of the previous selections.

I don't want it to automatically clear the whole input, but I do want the form to clear the whole form when I choose that option. It does clear single entry fields, but not the multi-selection List Boxes.

Any suggestions? Thank you,

G.Seibert

 

[Momentman]

You would have to Loop through the entries on the listbox and clear them if they are currently selected

The code should look something like this

Private Sub CommandButton1_Click()
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            ListBox1.Selected(I) = False
        End If
    Next I
End Sub

 

[GSeibert]

What about using something like....

Me.LstBxInOut1.MultiSelect = fmMultiSelectSingle
Me.LstBxInOut1.Value = ""
Me.LstBxInOut1.MultiSelect = fmMultiSelectMulti

... for each ListBox? I just found this... I'm hoping there might even be a better plan. And, Thank you so much for responding so quickly!

 

[Norie]

Here's another method to 'reset' a multiselect listbox.

    ListBox1.List = ListBox1.List

 

[GSeibert]

Thank you Norie, I will try that too.
I'm finally into the fine tuning of my worksheet.