Auto-select answers on a form based on a previous answer.

[VBAExcellNoob]

Hello,

I have a form that has 10 combo boxes. The options in the combo boxes is "Yes", "No", "N/A".

If I select "Yes" for the first combo box is it possible that the next 5 boxes automatically populate with "Yes"?

I've tried googling this but haven't had much success.

If anyone has any ideas please let me know.

Thanks

 

[Joe4]

Let's say the names of your 10 Combo Boxes are Combo1 - Combo10.

Then, in the AfterUpdate event of Combo1, add this VBA code:

Private Sub Combo1_AfterUpdate()

    If Me.Combo1 = "Yes" Then
        Me.Combo2 = "Yes"
        Me.Combo3 = "Yes"
        Me.Combo4 = "Yes"
        Me.Combo5 = "Yes"
        Me.Combo6 = "Yes"
    End If
    
End Sub

 

[My Aswer Is This]

Try this:

Put this script in combobox1

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Yes" Then
Dim i As Long
    For i = 2 To 6
        Me.Controls("Combobox" & i).Value = "Yes"
    Next
Else
    For i = 2 To 6
        Me.Controls("Combobox" & i).Value = ""
    Next
End If
End Sub

Not sure if you then change combobox1 back to No what you want to happen. This script will set them to nothing. If you don't want that then remove the else statement.

 

[VBAExcellNoob]

Thanks guys, both of those solutions were great!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thanks guys, both of those solutions were great!