Userform - Find Command Breaking a ComboBox

[Mousiefuzz]

I currently have two userforms on my spreadsheet, one for inputting data (input form) and one of editing data (update form)
The first of which is working fine for the moment, the second is almost working.

The problem I am having with my second userform, the update form, is a combobox that is breaking when a search/find is used to bring up existing data.
I have a contract number that I use to search for the entry and then populate the following 3 boxes (two text boxes, which work fine and the combobox which breaks).
Once I enter my contract number and press my 'find' button, it brings up the correct data, which is great. Unfortunately it then wont let me update the combobox as it is removing the options.
It works fine if you don't use the find function, you can use the combobox to select "Yes" "No" or "N/A". Once you use the find button it removes those three options so you can't change and update the sheet as it's supposed to.

I am unable to figure out which part of the code I am using is breaking this or what code I am missing to fix this.

The Combobox that is breaking:

Please Login or Register  to view this content.

The Find button that seems to be breaking it:

Please Login or Register  to view this content.

[mehmetcik]

I suspect:-

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Is this function slow?

You should be using the find function. Not looping through every cell in column A.

[mehmetcik]

I suspect:-

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Is this function slow?

You should be using the find function. Not looping through every cell in column A.

Please Login or Register  to view this content.

[Mousiefuzz]

The function isn't slow, though as is probably obvious I am new to vba and I'm sure the code I have is messy and inefficient.

I tried changing the .text to .value and it seemed to make no difference.

The odd thing is about my problem is that it works just fine if I don't use the 'find' button to bring up the other information, if I type everything in anew it works perfectly. So I'm pretty sure it is something wrong with my find button.

If I'm honest I'm not too sure what to do with that bit of code you've given me or what it quite does/should replace. I'm guessing it's a better replacement for my find function or part of it at least. I don't suppose you could give me a bit of clarity? Your help is very much appreciated.

[Mousiefuzz]

Any updates on this would be greatly received, even if it means changing how my find function works.

[mehmetcik]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[Andy Pope]

Load the combobox on initialize of userform.

Please Login or Register  to view this content.

also remove the .clear of control when the Clear button is pressed.

[Mousiefuzz]

Mehmetcik, I thought I had attached the file, unless I have done it wrong or attached far too much? If that's the case let me know so as next time I can do it correctly! Luckily there should be no sensitive data on the file as I test all sheets with made up non-sense to make sure they work long before they're put into actual use. But thank you very much for all your time and effort, I promise you it's appreciated.

Andy Pope, It's the end of the day and I only just got back to my desk to see this but... I tested that change in the code and it works wonderfully! Not only that but this will fix a minor problem I was having elsewhere on this sheet and also on another sheet! This is such a life saver and will clean up so much excess code, I honestly can't thank you enough for this fix! First thing Monday morning I will be sticking code similar to this in several places.