If ComboBox = "" then Textbox = ""

Hi Everyone!

New to the forum, Excel, VBA and Macros so please go easy on me! Iv recently started making some VBA userforms for work and iv come to enjoy the little projects Iv been working on and learn as I go along. I have been using Google/Youtube etc for most of my basic needs. My code is a mess but for the most part gets the job done.

Iv come across an issue and iv been at it for 2 days now with little to no results so im here to ask the experts for advice. I have a client userform with around 40 Comboboxes each with 3 options (Pass,Fail,N/A). I need the userform to...

If all Comboboxes are "Pass" or "N/A" then
Textbox = "Pass"
If a single Combobox is "Fail" then
Textbox = "Fail"

I need the textbox to update after each selection of a combobox option.

The current Code I have been testing / messing with is as follows (below) however this updates the textbox based on the most recent combobox input.

Private Sub ComboBox1_Change()
If ComboBox1.value = "Fail" Then
TextBox10.value = "Fail"
Else
TextBox10.value = "Pass"
End If
End Sub

Hopefully this all makes sense! Any advice would be great. Thanks!

Originally Posted by sintek

This will give you an idea...

Please Login or Register  to view this content.

This was exactly what I needed and the Sample you provided was very helpful in giving me an understanding of how the code works. Very much appreciated!

Originally Posted by bakerman2

Since you talk about +/- 40 Comboboxes you would have to repeat the Change-Event +/- 40 times when you use Sintek's code.

Therefore I would use a Class-event to store the code.

Oh thanks for this. Very Handy. I wasnt even aware this was an option!.. Again thank you for the Sample as it really helps to have something to look at!.. again much appreciated!