Cargar un ComboBox con datos filtrados de una tabla

16/10/2017 - 14:07 por tmiralles1970 | Informe spam
Buenas,

Quiero cargar unos datos de la tabla SOCIOS en un ComboBox en un formulario VBA, y lo que escribí fue lo siguiente:

Private Sub UserForm1_Initialize()
Dim rango, celda As Range
Set rango = Range("MyList")
For Each celda In rango
ComboBox1.AddItem celda.Value
Next celda
End Sub

Donde MyList es una lista dinámica de una columna de la tabla SOCIOS.

Lo que me interesaria sería poder discriminar de esa lista los valores que cumplen con un cierto criterio (activos/no activos), especificado en otra columna de la tabla SOCIOS.

Como debería hacerlo? Aunque vengo de VBA Acces, soy novatillo en Excel.

Gracias
 

Leer las respuestas

#1 Emilio
17/10/2017 - 05:23 | Informe spam
¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!
dentro del bucle, antes de hacer el additem verifica si se cumple esa otra
condición y según eso lo haces o no.

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

escribió en el mensaje de
noticias:

Buenas,

Quiero cargar unos datos de la tabla SOCIOS en un ComboBox en un formulario
VBA, y lo que escribí fue lo siguiente:

Private Sub UserForm1_Initialize()
Dim rango, celda As Range
Set rango = Range("MyList")
For Each celda In rango
ComboBox1.AddItem celda.Value
Next celda
End Sub

Donde MyList es una lista dinámica de una columna de la tabla SOCIOS.

Lo que me interesaria sería poder discriminar de esa lista los valores que
cumplen con un cierto criterio (activos/no activos), especificado en otra
columna de la tabla SOCIOS.

Como debería hacerlo? Aunque vengo de VBA Acces, soy novatillo en Excel.

Gracias

Preguntas similares