Assigning a variable to a userform object

[Ark68]

I am not all that familiar with Excel VBA, so my apologies in advance if I don't know how to phrase my question properly.

I have a userform with 15 similar comboboxes. Each one has a change event very similar to each other in that it call a procedure. The procedure shares common instructions to reset the value of the combobox which originally called the procedure in the first place.

Right now, I am using 20 if / elseif's to direct the changes to the appropriate combobox.

What I was hoping, was to create a public variable, and in the combobox's change procedure, assign that variable to that combobox.

Private Sub cb_selection1_Change()
    eg cb_out = me.cb_selection1
    call external procedure in general module
End sub

With that, in my procedure ...

if blahblahblah = suchand such then
   with cb_out
         .value="this"
         .backcolor = thiscolor
         etc
   end with
end if

 

[Domenic]

Instead of assigning the combobox to a public variable, I'd suggest you pass the combobox itself to your procedure, as follows...

Private Sub cb_selection1_Change()
    Call Macro1(Me.cb_selection1)
End Sub

Sub Macro1(cb_out As ComboBox)
    MsgBox cb_out.Name
End Sub

Alternatively, you can use a class module to handle those 15 comboboxes with one event handler.

Hope this helps!

 

[Ark68]

Hi Domenic ...thank you.
I will give it a try, play around with it a bit and see what kind of success I have.
Keep an eye on this thread, I may have to come back for some more education, or to give praise.

Or both.