how to fill specific colors of combo box depending on its text values

hi,

i have a little background in VBA and i'm having difficulty in creating a code that will make a combo box(on active x control) filled with colors red,orange,green for each specific texts "open", "provisional close", "close". thanks in advance...

-eric

hi Keebellah,

basically i just want a combox filled with different color per different selection just like this. what's the VB code for this? thanks

Screenshot-2016-06-12_07.25.51.png

hi Mikerickson,

is there a way that i can customize them thru vba codes? so when you select "open" it will be filled with red, "provisional close" would be filled with orange and "close" will be filled with green??

hi Keebelah,

Thanks! this is what i actually want.. but how will i implement this on succeeding combo box? will i copy the code for combo box2,3,4, and so on...?? i'll be using this on a checklist that's why i will be using the combo box per checklist item. thanks a lot again..

-eric

hi??

anyone who knows to implement this codes on multiple combo box? should i copy-paste it per combo box?

thanks,
-eric

hi Norie,

sorry i don't get where to paste those code when i open the VBA on excel. does the first code must be inserted in a module or will be paste also on the worksheet together with the 2nd code??

thanks
-eric

hi norie,

here's what i did, i insert the first code on a module then paste the 2nd code in the worksheet that i'm working but still it doesn't work. have you tried this on your excel file?

thanks
-eric

i don't want to change the font color, i rather need that the background color will change every time the selection is made.
here's the sample file that i have worked with.

i'm getting near.. i want the provisional open to be colored with orange but the "vbOrange" display black color, is there something wrong with my code "vbOrange"?

i'm getting near... i want the provisional open to be back color with orange, why does "vbOrange" code doesn't work? it only displays black background color.

then what is the correct code for orange color?

i think i'm all set now, thanks for the help guys Keebellah, Norie, Mikerickson for the help I appreciate it so much
here's the final code:

paste in module
Sub FormatCombo(cb As MSForms.ComboBox)
With cb
Select Case .Value
Case Is = "Open"
.BackColor = vbRed
Case Is = "Provisional Close"
.BackColor = rgbDarkOrange
Case Is = "Close"
.BackColor = vbGreen
Case Else
.BackColor = vbWhite
End Select
End With
End Sub


paste in worksheet
Private Sub ComboBox1_Change()
FormatCombo ComboBox1
End Sub
Private Sub ComboBox2_Change()
FormatCombo ComboBox2
End Sub
Private Sub ComboBox3_Change()
FormatCombo ComboBox3
End Sub



the simpler the code the better. thanks again.

-Eric