21/11/2006, 09:49
|
| | | Fecha de Ingreso: septiembre-2006
Mensajes: 20
Antigüedad: 18 años, 4 meses Puntos: 0 | |
| Hola, lo que tienes que hacer es lo siguiente:
Private Sub UserForm_Activate()
n = Hoja1.Cells(1, 4).Value
For i = 2 To n + 1
ComboBox1.AddItem Hoja1.Cells(i, 1).Value
ComboBox2.AddItem Hoja1.Cells(i, 2).Value
ComboBox3.AddItem Hoja1.Cells(i, 3).Value
Next
End Sub
NOTA IMPORTANTE: El valor de n debe contener el número de elementos de cadacolumna, en este caso son 10 elementos por columna y se encuentra en la celda "D1".
Atte. Sören |