Ciclo Controlador For

[juancace]

Hola gente del foro! tengo una duda.
Necesito cargar 13 celdas con los valores que tienen unos combos.
aestoy armando un ciclo para controlar el valor de la celda y el del combo.
cada combo se llama Box1, Box2.... y asi sucesivamente.
Como hago en este ejemplo del codigo para que la variable 2
"i" sea el numero de Box correspondiente.
Se entiende ?
Gracias por la ayuda.
Si hay alguna otra manera de hacerlo ESCUCHO OFERTAS !

For i = 2 To 14
a = Cells(i, 11).Address
Range(a).Value = Val("Box + ´i´")


MsgBox a

Next i


Mil Gracias !

[abrahamvj]

Los combobox estan en un userform o en la misma hoja?

Abraham

[ViccoLizcano]

Crea primero un array con los combos, más o menos así

nombre_array(box1, box2, box3... etc)

y luego ya sólo llamas a nombre_array(i), pero ojo, que estas inicializando i desde 2 Ok? ahora, también checa que tu array comience a indexar desde 1 o si comienza desde cero, usa nombre_array(i+1).

[juancace]

Gracias por la ayuda! voy a probar lo del array, me parece interesante.
Eh encontrado en el foro otra solucion que la probé y funcionó por el momento. Se las dejo aca por si les llega a servir:

Dim i As Integer
Dim c As Control
i = 0
Range("K2").Select

For Each c In Me.Controls
If TypeName(c) = "ComboBox" Then
ActiveCell.Offset(i, 0).FormulaR1C1 = c.Value
i = i + 1
End If
Next c

Esa es otra posibilidad.
Gracias nuevamente por la ayuda !