help with multiple checkboxes/comboboxes

[aletnik]

hi!! first of all, the forum is awesome!!!!

but right now i'm having some trouble with this and a i wonder if u can help me:

Private Sub UserForm_Initialize()​

Dim i, b As Integer​

For b = 10 To 18​

If Controls("CheckBox" & b).Value = True Then​

For i = 1 To 9​

Controls("ComboBox" & i).ListIndex = -1​

Controls("ComboBox" & i).Enabled = False​

Controls("CheckBox" & i).Enabled = False​

Controls("CheckBox" & i).Value = False​

Next​

Else​

For i = 1 To 9​

Controls("ComboBox" & i).Enabled = True​

Next​

End If​

Next​

End Sub
​

I think u get the ideia of what i want to do, but i can't seem to make the code work.

In need of help!!!!!

Thanks a lot!!!

 

[AlphaFrog]

This is a wild guess of what you want. If it's not correct, please provide more detail... a lot more.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] UserForm_Initialize()
    [COLOR=darkblue]Dim[/COLOR] b   [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Integer[/COLOR]
    [COLOR=darkblue]For[/COLOR] b = 10 [COLOR=darkblue]To[/COLOR] 18
        [COLOR=darkblue]If[/COLOR] Controls("CheckBox" & b).Value [COLOR=darkblue]Then[/COLOR]
            Controls("ComboBox" & b - 9).ListIndex = -1
            Controls("ComboBox" & b - 9).Enabled = [COLOR=darkblue]False[/COLOR]
            Controls("CheckBox" & b - 9).Enabled = [COLOR=darkblue]False[/COLOR]
            Controls("CheckBox" & b - 9).Value = [COLOR=darkblue]False[/COLOR]
        [COLOR=darkblue]Else[/COLOR]
            Controls("ComboBox" & b - 9).Enabled = [COLOR=darkblue]True[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[aletnik]

first of all thanks!!

i explain: i have 9 comboxes with yes or no possibilities, and i want to have 9 checkboxes (from 10 to 18), that if turned on, i want them, to disable the combox. the ideia it's something like this (the second checkbox doesn't matter):

thanks!!!