Loop through Comboboxes and count how many unique items

[sharky12345]

I have 31 comboboxes on a userform, can someone show me how I can loop through them all and count how many unique values have been selected?

The comboboxes have a maximum of 6 separate items in the list so I shouldn't get more than 6 unique values. Also, I need to store the unique values for use later - maybe this is a big ask?

 

[Fluff]

Also, I need to store the unique values for use later

Surely that's what the code I gave you here does? Get unique list from multiple comboboxes

 

[sharky12345]

Ahh!

I didn't think of using that same one - so sorry Fluff, but thank you!!

Happy Xmas....

 

[Fluff]

If you want the count as well you can use

Private Sub CommandButton1_Click()
   Dim i As Long
   
   With CreateObject("scripting.dictionary")
      For i = 1 To 6
         .Item(Me.Controls("ComboBox" & i)) = Empty
      Next i
      MsgBox "Number of uniques is " & .Count
      Me.ComboBox7.List = .Keys
   End With
End Sub

 

[sharky12345]

Brill - thanks!!!

 

[Fluff]

You're welcome & thanks for the feedback.