Check if variable is in ComboBox, add if not...

[Chrisjd2]

Hi All,

As per the title, I would like to do a quick check to see if the variable 'Society' is already within my cbSociety (ComboBox) if not, then add.

Private Sub UserForm_Initialize()Dim ws As Worksheet


Set ws = Worksheets("Trials")


cRow = 2
While ws.Cells(cRow, 2) <> ""
Society = ws.Cells(cRow, 2)
Me.cbSociety.AddItem Society
cRow = cRow + 1
Wend


End Sub

Cheers
Chris

 

[Fluff]

How about

Private Sub UserForm_Initialize()
    
    Dim ws As Worksheet
    Dim Cl As Range


    Set ws = Worksheets("Trials")

    With CreateObject("scripting.dictionary")
        For Each Cl In ws.Range("C2", ws.Range("C2").End(xlDown))
            If Not .exists(Cl.Value) Then .Add Cl.Value, Nothing
        Next Cl
        Me.CbSociety.list = .keys
    End With


End Sub

This will add all the unique values in C2 down, to the combobox