My Combobox wont update with new values

[eawachte]

I have code that on a button_Click() a range of data is copied and pasted into a database. Once this data is pasted to the data base it updates a column (B150:B1000) that are the reference cells for my combobox in a userform gui.

My issue is that the combobox does not update with the new values i enter into the database unless I close the sheet and reopen the sheet. This is a major inconvenience for users.

Below is my code for the combobox, any help with how to update the combobox would be greatly appreciated!!

Private Sub ComboBox1_dropbutt*******()

If ComboBox1 = blank Then
For i = 151 To 161
ComboBox1.AddItem Sheets("Geometry").Cells(i, 2)
Next
End If
End Sub

 

[AlphaFrog]

You could repopulate your combobox within the button_Click() procedure after you copy\paste the data.

Alternatively, instead of using the .Add method to populate the ComboBox, you could set .RowSource property e.g.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sheet1!B150:B1000"
End Sub

If you define the ComboBox1.RowSource, then any change to the cells in B150:B1000 will change the combobox.

 

[eawachte]

Thank you for the help!! That seems to work perfectly

I also am having an issue clearing a textbox value after a commandbutton is hit. I have been able to write in "userform".Combobox1.Clear and successfully cleared the combobox, but with the same logic on a textbox

"userform".Textbox1.Clear the function does not work. I do not get the .clear option and when i type it anyway it returns an error.

These are the 2 main issues with my project remaining, thank you so much for the help

Gene

 

[AlphaFrog]

Try something like this...

TextBox1.Value = ""