VBA help needed

[nlietuva]

Hello,
I'm trying to make a ComboBox selection text copier. In code i wrote what is the answer of each question if its YES or No selected. Can someone help me how to write a code if there are not all the questions selected but copy only the answered questions text. I dont want to write all possible ways using "if".

 

[HighAndWilder]

Are these the only comboxes that you have on the form?

Do you use a naming convention for the combobox and label controls?

 

[nlietuva]

Are these the only comboxes that you have on the form?

Do you use a naming convention for the combobox and label controls?

Yes only these 9 comboboxes and what do you mean by saying "naming convention" can you give a short example?

 

[HighAndWilder]

Naming Convention e.g.

cboQuestion1
cboQuestion2
cboQuestion3
cboQuestion4

When you say 'answered questions text' is this taken from the label to the left of the ComboBox?

Do the Labels have a naming convention? e.g.

lblQuestionLabel1
lblQuestionLabel2
lblQuestionLabel3
lblQuestionLabel4

 

[nlietuva]

Naming Convention e.g.

cboQuestion1
cboQuestion2
cboQuestion3
cboQuestion4

When you say 'answered questions text' is this taken from the label to the left of the ComboBox?

Do the Labels have a naming convention? e.g.

lblQuestionLabel1
lblQuestionLabel2
lblQuestionLabel3
lblQuestionLabel4

Yes, i finally fixed that, but now I have new problem if i choose for ex. ComboBox1 and ComboBox4, in between of two answers there are 2 empty lines because i didnt choose ComboBox2 and ComboBox3. Im using & vbNewLine &. So maybe you know how to fix that?

 

[HighAndWilder]

To collect the answers you can set up a loop that loops through each ComboBox in turn.

This is where the logical naming convention comes in where the suffix on the end of the ComboBox name
is the number of the question.

I'm not sure what you want to do with the answers so I have just put them into a string and displayed this as a message.

Dim ctrl As Control
Dim i As Integer
Dim strResults As String

    For i = 1 To 8
            
        Set ctrl = Me.Controls("ComboBox" & i)
        
        If ctrl.value <> "" Then
        
            strResults = strResults & vbCrLf & ctrl.value
            
        End If
    
    Next i
    
    MsgBox strResults