Quiero colocar 6 combobox en userform
Quiero colocar 6 combobox en userform, cada uno con una lista de 60 datos, ninguno referenciado con el otro,
Por ejemplo elegir camión, no. Viaje de viaje, tienda, etc. Pero debo hacer infinidad de combinaciones de acuerdo a la diaria necesidad
1 respuesta
No olvides valorar si te silve para cerrar la pregunta obuenas
Presentanos una imagen de tu base de datos donde tiene los datos que se van a carga en los combobox
Un ejemplo seria
range("a2").select
Do While ActiveCell <> ""
ComboBox1. AddItem ActiveCell
ActiveCell.Offset(1, 0). Activate
Loop
Donde A2 es la celda donde empieza la lista que se va agregar al combobox1
Do while seria para agregar todas la celda que tenga datos hasta que encuente una celda vacia.
O si prefiere presentanos tu hoja o la macro que tengas para ayudarte
No olvides valorar si te silve para cerrar la pregunta
Lo que hago es capturar un id empleado y después le asigno un viaje, actividad y ruta dependiendo del día u horario
Seria de la siguiente manera en el evento Initialize del userform
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Range("a2").select 'solo cambia sino es la columna A
Do While ActiveCell <> "" 'este es para el ID empleado la de los id de empleado
ComboBox1. AddItem ActiveCell
ActiveCell.Offset(1, 0). Activate
Loop
Range("b2").select 'solo cambia sino es la columna B la delos viaje
Do While ActiveCell <> "" 'este es para numero de viaje
ComboBox2. AddItem ActiveCell
ActiveCell.Offset(1, 0). Activate
Loop
Range("c2").select 'solo cambia sino es la columna C la de los numeno de camion
Do While ActiveCell <> "" 'este es para el numero de camion
ComboBox3. AddItem ActiveCell
ActiveCell.Offset(1, 0). Activate
Loop
range("d2").select 'solo cambia sino es la columna D la de las actividades
Do While ActiveCell <> "" 'este es para la actividad
ComboBox4. AddItem ActiveCell
ActiveCell.Offset(1, 0). Activate
Loop
Range("e2").select 'solo cambia sino es la columna C la de las ruta
Do While ActiveCell <> "" ' este esx para la ruta
ComboBox5. AddItem ActiveCell
ActiveCell.Offset(1, 0). Activate
Loop
Application.ScreenUpdating = true
end sub
Prueba y nos deja sabe como te fue ;-)
