VBA combobox

[lukas4]

Que tal, soy nuevo en esto del VBA, estaba siguiendo este tutorial para empezar, pero lo que yo ocupo hacer no lo encontre por ningun lado -o mas bien no supe buscar -

mi duda es la siguiente, como hago para inicializar varios comboboxes con los valores Yes y No, el nombre de los CBBs son Answer1 hasta Answer9.

trate de hacerlo con un for de la siguiente manera:

Código vb:

Private Sub UserForm_Initialize()
 
Dim combo
combo = "Answer"
For i = 1 To 9
    
    combo = combo & i
    combo.AddItem "Yes"
    combo.AddItem "No"
    'combo = "Answer"
 
Next
 
End Sub
 

pero no me funciono, alguna idea de como hacer funcionar eso de la inicializada?

[systemtak]

Hola, lukas4

espero que te ayude:

Código PHP:

   
Private Sub UserForm_Initialize()
Dim controlesForm As Control
  For Each controlesForm In Controls
    If (TypeOf controlesForm Is ComboBox) Then
        controlesForm.AddItem ("a")
        controlesForm.AddItem ("b")
    End If
  Next
End Sub 
   

Saludos

[lukas4]

que tal systemtak, encontre una solución a eso el otro día, pero también probé con el codigo que me pusiste pero me marca un error del tipo mismatch y si le doy debug solo me marca el nombre de la forma en el boton de comando de excel =S

[systemtak]

Hola, vamos paso a paso.

1.- Creando un Formulario con todos los controles ComboBox cuyo nombre son ANSWER*.
2.- Creando: una macro que me permite mostrar el FORM.

Código PHP:

  Sub mostrar()
UserForm1.Show
End Sub 
   

3.- Evento CLICK del Boton dentro del Form.

Código PHP:

  
Private Sub CommandButton1_Click()
Dim controlesForm As Control
  For Each controlesForm In Controls
    If (TypeOf controlesForm Is ComboBox) Then
        controlesForm.AddItem ("Yes")
        controlesForm.AddItem ("No")
    End If
  Next
End Sub 
   

4.- Descarga Ejemplo

http://dl.dropbox.com/u/58429097/ejemplo.xlsm




Saludos

[lukas4]

andale, algo asi ocupo, pero lo que ocupo es que me cargue los combos desde que le doy click al boton en el worksheet de excel, mas no desde el form en si. La solución que encontre es la siguiente:

Código vb:

Public Sub LoadCombos(pcb As ComboBox)
With pcb
    .Clear
    .AddItem "Select..."
    .AddItem "Yes"
    .AddItem "No"
    .Text = .List(0)
End With
End Sub
 

y mando llamar esa función en el initialize:

Código vb:

Private Sub UserForm_Initialize()
 
LoadCombos answer1
answer1.Style = fmStyleDropDownList
LoadCombos answer2
answer2.Style = fmStyleDropDownList
LoadCombos answer3
answer3.Style = fmStyleDropDownList
LoadCombos answer4
answer4.Style = fmStyleDropDownList
LoadCombos answer5
answer5.Style = fmStyleDropDownList
LoadCombos answer6
answer6.Style = fmStyleDropDownList
LoadCombos answer7
answer7.Style = fmStyleDropDownList
LoadCombos answer8
answer8.Style = fmStyleDropDownList
answer9.Style = fmStyleDropDownList
 
End Sub
 

[lukas4]

de hecho ahora mi problema es en esta función:

Código vb:

Private Sub calcButton_Click()
 
Dim i
i = 0
 
If answer1.Value = "No" Then
    i = i - 6
ElseIf answer1.Value = "Select..." Then
    MsgBox "Please select an answer for question 1"
    Exit Sub
End If
If answer2.Value = "No" Then
    i = i - 6
ElseIf answer2.Value = "Select..." Then
    MsgBox "Please select an answer for question 2"
    Exit Sub
End If
If answer3.Value = "No" Then
    i = i - 6
ElseIf answer3.Value = "Select..." Then
    MsgBox "Please select an answer for question 3"
    Exit Sub
End If
If answer4.Value = "Yes" Then
    i = i + 1
ElseIf answer4.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 4"
    Exit Sub
End If
If answer5.Value = "Yes" Then
    i = i + 1
ElseIf answer5.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 5"
    Exit Sub
End If
If answer6.Value = "Yes" Then
    i = i + 1
ElseIf answer6.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 6"
    Exit Sub
End If
If answer7.Value = "Yes" Then
    i = i + 1
ElseIf answer7.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 7"
    Exit Sub
End If
If answer8.Value = "Yes" Then
    i = i + 1
ElseIf answer7.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 8"
    Exit Sub
End If
 
If i < 0 Then
    answer9.Value = "No" 'aqui me tira error
Else
    answer9.Value = "Yes"
End If
 
End Sub
 

lo que quiero hacer es asignarle un valor al combo answer9, como lo dice el codigo si i<0 que se seleccione No, de lo contrario Yes. Espero me puedas ayudar con esto. Gracias

Nevermind, ya lo solucione, utilice:

Código vb:

answer9.SelText = "No"
 

en lugar de lo que tenia ^^