Limiting multi-select listboxes

[David2e]

I have a mult-column listbox where I'd like 4 items to be selected before it can be accepted.

Is it easy, or even possible to limit a multi-select listbox in this way?

It would also be great if a minimum number is possible (separate option).

Many thanks

David

 

[swat2]

Here's a function you can put in your code to make sure more than 4 items are selected.

Public Function ListBoxVerified() As Boolean

Dim SelectionCounter As Integer

SelectionCounter = 0
ListBoxVerified = False

For i = 0 To ListBox1.ListCount - 1

   If ListBox1.Selected(i) Then SelectionCounter = SelectionCounter + 1
 
Next i
    
If SelectionCounter >= 4 Then ListBoxVerified = True
    
End Function

Call this function with an if statement and throw an error if it comes back false

 

[iliace]

This function will count the number of items selected in a list box. The list box is passed as the parameter.

Private Function ListItemCount(lb As MSForms.ListBox) As Integer
  Dim i As Integer
  
  For i = 0 To lb.ListCount - 1
    If lb.Selected(i) Then ListItemCount = ListItemCount + 1
  Next i
End Function

 

[David2e]

Thanks guys!

Very helpful and I'll look at given that a shot soon.

Cheers