Filtrar comboBox según valor

[Benito Bartolomé]

Hola a todos;

¿Es posible filtrar un segundo ComboBox según el item que seleccione en el primer ComboBox, tal y como

reproduzco de forma manual en este .gif.?

Los datos los cargo de forma manual para el ejemplo, lo interesante es que una vez cargados sea el método que 

sea se filtre según la condición.

CONDICION:

La condición a cumplir es que si el item del ComboBox1 = 55 entonces me filtre el ComboBox2 con los items cuya columna 3 sean igual a "Activo" y para el resto cogerá los "No Activo"

 

Saludos.

 

MCombosEnlazados.xlsm

[Antoni]

Prueba a ver si es eso.

MCombosEnlazados.xlsm

[JSDJSD]

Te dejo otra opción

Private Sub ComboBox1_Change()
    col = 0
    With ComboBox2
        .Clear
        If CDbl(ComboBox1) = 55 Then
            criterio = "Activo"
        Else: criterio = "No Activo"
        End If
        
        For cont = ComboBox3.ListCount - 1 To 0 Step -1
            If ComboBox3.List(cont, 2) = criterio Then
                .AddItem
                .List(col, 0) = ComboBox3.List(cont, 0)
                .List(col, 1) = ComboBox3.List(cont, 1)
                .List(col, 2) = ComboBox3.List(cont, 2)
                col = col + 1
            End If
        Next cont
    End With
End Sub

MCombosEnlazados (1).xlsm

[Benito Bartolomé]

Hola  @Antoni y @JSDJSD

Gracias por vuestros aportes, veo que los dos habéis coincido en que para tal fin era necesario el uso de un tercer comboBox.

Están excelentes y cumplen su función.

Me hubiera gustado solo usar sólo esos dos pero imagino que no se puede tener todo.

Un abrazote  y muchas gracias a los dos.

TRUCO:

[JSDJSD]

Private Sub ComboBox1_Change()
    col = 0
    ComboBox2.Clear
    
    If CDbl(ComboBox1) = 55 Then
        criterio = "Activo"
    Else: criterio = "No Activo"
    End If
    
    With Hoja2
        For CONT = 2 To .Range("c" & Rows.Count).End(xlUp).Row
            If .Cells(CONT, 5) = criterio Then
                ComboBox2.AddItem
                ComboBox2.List(col, 0) = .Cells(CONT, 3)
                ComboBox2.List(col, 1) = .Cells(CONT, 4)
                ComboBox2.List(col, 2) = .Cells(CONT, 5)
                col = col + 1
            End If
        Next CONT
    End With
End Sub


Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "'" & Hoja2.Name & "'!A2:B" & Hoja2.Range("B" & Rows.Count).End(xlUp).Row
End Sub

Con dos combos pero con hoja de datos

MCombosEnlazados (1).xlsm

[Benito Bartolomé]

hace 23 minutos , JSDJSD dijo:

Private Sub ComboBox1_Change()
    col = 0
    ComboBox2.Clear
    
    If CDbl(ComboBox1) = 55 Then
        criterio = "Activo"
    Else: criterio = "No Activo"
    End If
    
    With Hoja2
        For CONT = 2 To .Range("c" & Rows.Count).End(xlUp).Row
            If .Cells(CONT, 5) = criterio Then
                ComboBox2.AddItem
                ComboBox2.List(col, 0) = .Cells(CONT, 3)
                ComboBox2.List(col, 1) = .Cells(CONT, 4)
                ComboBox2.List(col, 2) = .Cells(CONT, 5)
                col = col + 1
            End If
        Next CONT
    End With
End Sub


Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "'" & Hoja2.Name & "'!A2:B" & Hoja2.Range("B" & Rows.Count).End(xlUp).Row
End Sub

Con dos combos pero con hoja de datos

MCombosEnlazados (1).xlsm 28.09 kB · 0 descargas

Gracias de nuevo @JSDJSD  

Está muy bien también esta segunda opción. 

Quizás incluso más  cómoda y más versátil 

Veré cómo lo encajo.

Agradezco mucho tú ayuda.??

 

 

[Antoni]

Si vas a cargar los datos a partir de una hoja desde 2 columnas distintas, se puede hacer con un solo combo.

[Benito Bartolomé]

hace 18 minutos , Antoni dijo:

Si vas a cargar los datos a partir de una hoja desde 2 columnas distintas, se puede hacer con un solo combo.

Gracias @Antonipor el apunte, pero tiene que aparecer en el formulario los dos combos.

Si necesito editar lo haré siempre desde el ComboBox1 el cual es el campo principal. 

Gracias de todas formas por el interés ????‍♂️

 

 

[Abraham Valencia]

Si todavía hay tiempo, mi ejemplo 10 es algo antiguo y quizás no es en específico lo buscado, pero usa ADO y SQL:

Todo Sobre Excel: Ejemplos (abrahamexcel.blogspot.com)

Saludos

[Gerson Pineda]

¡Hola a todos!

@Benito Bartolomé aprovechando que mi esposa anda por el banco [retirando mis últimos ahorros?]

Te adjunto una solución más, solo utilizando los 2 combobox

Espero te sirva

 

Cargar mismo combobox VBA_GP.xlsm

 

[Benito Bartolomé]

hace 16 horas, Abraham Valencia dijo:

Si todavía hay tiempo, mi ejemplo 10 es algo antiguo y quizás no es en específico lo buscado, pero usa ADO y SQL:

Todo Sobre Excel: Ejemplos (abrahamexcel.blogspot.com)

Saludos

Hola Abraham, he bajado el ejemplo y desconocía el método que empleas.

Muy bueno.

Lo revisaré e estudiaré con calma.

Muchas gracias por el aporte. Saludos?

[Benito Bartolomé]

Hace 1 hora, Gerson Pineda dijo:

¡Hola a todos!

@Benito Bartolomé aprovechando que mi esposa anda por el banco [retirando mis últimos ahorros?]

Te adjunto una solución más, solo utilizando los 2 combobox

Espero te sirva

 

Cargar mismo combobox VBA_GP.xlsm 24.78 kB · 0 descargas

 

Hola Gersón, también he descargado tú ejemplo y me ha sorprendido notablemente.

Excelente, al igual que el de Abraham, lo estoy revisando.

Bueno más que nada por sí te has equivocado en algo?.

Lo dicho excelente.?

[Gerson Pineda]

En 4/3/2023 at 12:44 , Benito Bartolomé dijo:

Bueno más que nada por sí te has equivocado en algo?.

Espero que no jaja

Si te ha funcionado, ahora lo he recortado y simplificado 

Cargar mismo combobox VBA_GP.xlsm

[Benito Bartolomé]

hace 3 horas, Gerson Pineda dijo:

Espero que no jaja

Si te ha funcionado, ahora lo he recortado y simplificado 

Cargar mismo combobox VBA_GP.xlsm 24.89 kB · 0 descargas

Si @Gerson Pinedate lo corregí y lo tenías bien?.

Excelente, con el primero ya era suficiente,  pero ahí se nota cuando un profesional es profesional y le gusta su trabajo. 

Un abrazote. Te pondré buena nota?

[Gerson Pineda]

hace 3 minutos , Benito Bartolomé dijo:

Te pondré buena nota?

¡Te lo agradezco! ?

[Antoni]

Puestos a seguir mareando la perdiz, otra opción más.

MCombosEnlazados MA.xlsm

[Benito Bartolomé]

hace 15 horas, Antoni dijo:

Puestos a seguir mareando la perdiz, otra opción más.

MCombosEnlazados MA.xlsm 22.97 kB · 3 descargas

Hola @Antoni, he revisado tú propuesta y está correcta, no veo fallos graves?.

Ahora en serio,  muy cortito y perfecto cuando los datos se incorporan desde la propia  hoja.

Creo que ya hay suficientes y buenas propuestas. 

Buen día ??