Cargar un ComboBox con datos filtrados de una tabla

¡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

Gracias, Emilio

El valor 'activo/no activo' està en una columna adyacente de la lista, però no se cómo referirme a ella dentro del For...Each. ¿Cómo debò hacerlo?

Gracias por la ayuda.






El dimarts, 17 octubre de 2017 5:23:33 UTC+2, Emilio va escriure:

¡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

Después de un ratito de investigación, lo solucioné. Lo comparto para quien interese:

Dim CellCognom As Range

For Each CellCognom In Range("SocisCognom")
If CellCognom.Offset(0, 1) = 1 Then
ComboBox1.AddItem CellCognom.Value
End If
Next CellCognom

Gracias

El dijous, 19 octubre de 2017 15:13:28 UTC+2, va escriure:

Gracias, Emilio

El valor 'activo/no activo' està en una columna adyacente de la lista, però no se cómo referirme a ella dentro del For...Each. ¿Cómo debò hacerlo?

Gracias por la ayuda.






El dimarts, 17 octubre de 2017 5:23:33 UTC+2, Emilio va escriure:
> ¡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

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
con un offset

if Celda.offset(0,X) = lo que sea then ComboBox1.AddItem celda.Value

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de
noticias:


Gracias, Emilio

El valor 'activo/no activo' està en una columna adyacente de la lista, però
no se cómo referirme a ella dentro del For...Each. ¿Cómo debò hacerlo?

Gracias por la ayuda.






El dimarts, 17 octubre de 2017 5:23:33 UTC+2, Emilio va escriure:

¡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

Gracias, Emilio

Sigo con mis problemillas... Quiero que el Combo cargue el valor de dos celdas adyacentes, pero al correr el código da error con la variable celda2 (variable de objeto no establecida)

Dim celda1, celda2 As Range

For Each celda1 In Range("SocisCognom")
If celda1.Offset(0, 1) = 1 Then
celda2 = celda1.Offset(0, -1) & " " & celda1
ComboSocis.AddItem celda2.Value
End If
Next celda1

Gracias!




El dijous, 19 octubre de 2017 18:26:00 UTC+2, Emilio va escriure:

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
con un offset

if Celda.offset(0,X) = lo que sea then ComboBox1.AddItem celda.Value

Saludos a todos desde Huelva
ell
Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de
noticias:


Gracias, Emilio

El valor 'activo/no activo' està en una columna adyacente de la lista, però
no se cómo referirme a ella dentro del For...Each. ¿Cómo debò hacerlo?

Gracias por la ayuda.






El dimarts, 17 octubre de 2017 5:23:33 UTC+2, Emilio va escriure:
> ¡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