Combobox not emptying when it should

[LGRL20]

Hi everyone,

Im working on a Userform that has 3 textboxes and a combobox, it will be used for a warehouse so the textboxes are as following:

textbox1=Part Number
textbox2=Qty
textbox3=Unit

the combobox1= batch, the combobox populates correctly dependingon the part number the user choses, ive installed coding in each textbox_change so that anytime you change any data from either textbox the combobox goes blank and the user must choose from the new list generated. I did this so that there wouldnt be a batch number associated to a part number it didnt correspond.

The code works fine when you change one or more number of the part number individually, however I have just noted that if I select the entire number of the partnumber and "PASTE" a number of a differente Part. The combobox never goes blank and it remains with a batch number that does not correspond. How can i Fix this? what kind of coding must I do.

Thanks a lot in advance for the help.

Greetings

 

[HalfAce]

Hi. I'm not sure if I follow or not, but if you're only concerned about textbox1, and only if it already has a value in it, then you might could use the textbox_enter event to clear the value in the combobox.

Private Sub TextBox1_Enter()
If Me.TextBox1.Value <> "" Then UserForm1.ComboBox1.Value = ""
End Sub

Is that what you're looking to do?

 

[AlphaFrog]

Private Sub TextBox1_Change()
    Me.ComboBox1.Value = ""
End Sub

 

[LGRL20]

THANKS BOTH OF YOU, Both work just fine.
Thanks a lot take care

 

[HalfAce]

Most welcome. Glad you got squared away.