Combox list depend on OptionButton value

[flameash]

Hi all,
I'm trying to include 2 lists for my Combox listing, but it's not working....


Here's my code and I hope someone here is able to help out
Private Sub OptionButton1_Click()


End Sub


Private Sub OptionButton2_Click()


End Sub


Private Sub OptionButton3_Click()


End Sub


Private Sub OptionButton5_Click()


End Sub


Private Sub OptionButton6_Click()


End Sub



Private Sub ComboBox1_Change()


End Sub


Private Sub ComboBox2_Change()


End Sub
Private Sub ComboBox3_Change()


End Sub
Private Sub UserForm_Initialize()

OptionButton1.Value = True
OptionButton2.Value = False
OptionButton3.Value = True
OptionButton4.Value = False
OptionButton5.Value = True
OptionButton6.Value = False

ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear




If OptionButton1 = True Then
With UserForm3.ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
End With
Else If OptionButton2 = True Then
With UserForm3.ComboBox1
.AddItem "2"
.AddItem "4"
.AddItem "6"
.AddItem "8"
End With
End If


If OptionButton3 = True Then
With UserForm3.ComboBox2
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
End With
Else If OptionButton4 = True Then
With UserForm3.ComboBox2
.AddItem "2"
.AddItem "4"
.AddItem "6"
.AddItem "8"
End With
End If



If OptionButton5 = True Then
With UserForm3.ComboBox3
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
End With
Else If OptionButton6 = True Then
With UserForm3.ComboBox3
.AddItem "2"
.AddItem "4"
.AddItem "6"
.AddItem "8"
End With
End If


So the codes runs without issue, but if I select OptionButton 2 or 4 or 6, ComboBox still has the option of 1-7, not 2,4,6,8

I would be grateful if someone can share insignts

 

[MrIfOnly]

Hi!

The problem you are having is that this code:

If OptionButton1 = True Then
     With UserForm3.ComboBox1
    .AddItem "1"
    .AddItem "2"
    .AddItem "3"
    .AddItem "4"
    .AddItem  "5"
    .AddItem "6"
    .AddItem "7"
    End With
 Else If OptionButton2 = True Then
     With UserForm3.ComboBox1
    .AddItem "2"
    .AddItem "4"
    .AddItem "6"
    .AddItem "8"
    End With
 End If


 If OptionButton3 = True Then
     With UserForm3.ComboBox2
    .AddItem "1"
    .AddItem "2"
    .AddItem "3"
    .AddItem "4"
    .AddItem  "5"
    .AddItem "6"
    .AddItem "7"
    End With
 Else If OptionButton4 = True Then
     With UserForm3.ComboBox2
    .AddItem "2"
    .AddItem "4"
    .AddItem "6"
    .AddItem "8"
    End With
 End If



 If OptionButton5 = True Then
     With UserForm3.ComboBox3
    .AddItem "1"
    .AddItem "2"
    .AddItem "3"
    .AddItem "4"
    .AddItem  "5"
    .AddItem "6"
    .AddItem "7"
    End With
 Else If OptionButton6 = True Then
     With UserForm3.ComboBox3
    .AddItem "2"
    .AddItem "4"
    .AddItem "6"
    .AddItem "8"
    End With
 End If

is in your Userform_Initialize event. Thus, it only is read in and occurs at the time the user form is loaded or shown. What you could do is simply put each combobox add item routine in the corresponding Option button Click event. For example:

Private Sub OptionButton1_Click()
With UserForm3.ComboBox1
   .AddItem "1"
   .AddItem "2"
   .AddItem "3"
   .AddItem "4"
   .AddItem  "5"
   .AddItem "6"
   .AddItem "7"
End With
End Sub


 Private Sub OptionButton2_Click()
 With UserForm3.ComboBox1
     .AddItem "2"
     .AddItem "4"
     .AddItem "6"
     .AddItem "8"
End With

 End Sub

Regards,

CJ

 

[MrIfOnly]

I also should have put in

ComboBox1.Clear

before each With statement in each Optionbutton_Click sub.

Regards again,

CJ

 

[flameash]

thank you so much!
it worked!!
thank you!!!

 

[My Aswer Is This]

Just in case you would like to see another way. You can load items in a combobox like this.
A loop will add in the numbers.
The 1st script loads in 1 to 7
The second script loads in 2 to 8 skipping numbers so you would get 2,4,6,8

Private Sub CommandButton1_Click()
Dim i As Long
ComboBox1.Clear
   For i = 1 To 7
   ComboBox1.AddItem i
   Next
End Sub

Private Sub CommandButton2_Click()
Dim i As Long
ComboBox2.Clear
   For i = 2 To 8 Step 2
   ComboBox2.AddItem i
   Next
End Sub

 

[flameash]

Thank you so much
It works as well. Greatly appreciated.

 

[MrIfOnly]

thank you so much!
it worked!!
thank you!!!

You're very welcome.

MyAnswerIsThis: Nicely done!