Userform ComboBox drop down list keeps duplicating the list

[nathanr]

i have a userform with 3 drop down selection lists. everytime i click the arrow to list the dropdown it duplicates whats in the list over and over and over until i close the userform and re open it. is there some simple code that i can add to the userform to stop it from duplicating the lists.

attached is my file.

 

[YasserKhalil]

Hello nathanr
Instead of adding items in DropButtonClick event, it is better to fill combobox on UserForm_Initialize
So >> Instead of those lines

Private Sub cboPassFail_DropButtonClick()
    Me.cboPassFail.AddItem "PASS"
    Me.cboPassFail.AddItem "FAIL"
End Sub


Private Sub cboOperator_DropButtonClick()
    Me.cboOperator.AddItem "Willson"
    Me.cboOperator.AddItem "Jerry"
    Me.cboOperator.AddItem "Billy"
    Me.cboOperator.AddItem "Adam"
    Me.cboOperator.AddItem "John"
End Sub


Private Sub cboQC_DropButtonClick()
    Me.cboQC.AddItem "SUPPLIER"
End Sub

You can fill the three comboboxes in UserForm_Initialize

Private Sub UserForm_Initialize()
    Me.cboPassFail.AddItem "PASS"
    Me.cboPassFail.AddItem "FAIL"
    '----------------------------
    Me.cboOperator.AddItem "Willson"
    Me.cboOperator.AddItem "Jerry"
    Me.cboOperator.AddItem "Billy"
    Me.cboOperator.AddItem "Adam"
    Me.cboOperator.AddItem "John"
    '----------------------------
    Me.cboQC.AddItem "SUPPLIER"
End Sub

 

[nathanr]

awesome

thank you a ton, this is allot of help

 

[YasserKhalil]

You're welcome. Glad I can offer some help for you

Another approach if you don't like that. For example

Private Sub cboPassFail_DropButtonClick()
    'Add This Line To Clear The ComboBox Before Proceeding
    Me.cboPassFail.Clear
    
    Me.cboPassFail.AddItem "PASS"
    Me.cboPassFail.AddItem "FAIL"
End Sub

 

[nathanr]

Thank you

thank you very much im glad i have two code options now.

 

[YasserKhalil]

You're welcome.
Best Regards