Visual Basic para Aplicaciones - Llenar varios combos por código

Life is soft - evento anual de software empresarial
   
Vista:

Llenar varios combos por código

Publicado por Pablo (29 intervenciones) el 19/10/2014 12:40:47
Tengo una consulta:
Debo llenar 16 combos con la misma información y me gustaría saber si puedo hacerlo con una sola instrucción y una sentencia For

hasta ahora tengo lo siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub cargando(combo As ComboBox)
With combo
.AddItem "Facturable"
.AddItem "Facturable Extra"
.AddItem "Contratos"
.AddItem "Sin cargo"
End With
End Sub
 
Private Sub UserForm_initialize()
On Error Resume Next
 
 
Call cargando(ComboBox1)
Call cargando(ComboBox2)
Call cargando(ComboBox3)
...
Call cargando(ComboBox16)
 
End Sub

Que ya es un ahorro de espacio, pero he probado:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_initialize()
On Error Resume Next
Dim i As Integer
 
For i = 1 To 3
Call cargando(ComboBoxi)
Next
 
End Sub

y me da error de compilación, entiendo que porque ComboBoxi no es ComboBox1, ComboBox2 ... etc.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder
Imágen de perfil de JuanC

Llenar varios combos por código

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 19/10/2014 15:36:17
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_initialize()
Dim ctl As MSForms.Control
Dim cb As MSForms.ComboBox
Dim sName$, i%
 
On Error Resume Next
 
For i = 1 To 16
    sName = "ComboBox" & i
    For Each ctl In Me.Controls
        Err.Number = 0
        Set cb = ctl
        If Err.Number = 0 And ctl.Name = sName Then
           Call cargando(cb)
           Exit For
        End If
    Next
Next
 
Set ctl = Nothing
Set cb = Nothing
End Sub

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Llenar varios combos por código

Publicado por Pablo (29 intervenciones) el 23/10/2014 08:23:01
Gracias Juan de nuevo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Llenar varios combos por código

Publicado por Faustino Cedeño (1 intervención) el 20/11/2014 04:22:11
GRACIAS AMIGO PABLO TU CODIGO AYUDA UN MUNDO A MI PEQUEÑO PROGRAMA TE LO AGRADESCO DE CORAZON MAN.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar