Cargar combobox según se cumpla una condición
Hola a todos, tengo un combo box que se carga de una hoja llamada planificación, quisiera que el cargue los datos de la columna A siempre y cuando la celda que este vacía dejo el código que tengo actualmente
With Sheets("Planificacion") For Each celda In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row) If celda <> Empty Then ComboCurso.AddItem celda.ValueNextEnd Withhasta ahora solo logro que cargue todos los datos de la columna A si la celda no es vacia.
Espero puedan ayudarme Saludos desde Venezuela
1 respuesta
Respuesta de Dante Amor
1
No entiendo lo que necesitas.
La macro carga los datos de la columna siempre y cuando tenga datos.
Pero si quieres que cargue todo, si importar si está en blanco o tiene datos, puedes utilizar el código así:
With Sheets("Planificacion")
For Each celda In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
ComboCurso.AddItem celda.Value
Next
End WithSi no es lo que necesitas, entonces pon un ejemplo de la condición que se debe cumplir para que se cargue el dato en el combo.
Saludos. Dante Amor
Si es lo que necesitas.
