Tres Combobox Dependientes

[Marcos14]

Hola a todos, he probado un montón de cosas para intentar conseguir la dependencia de tres combobox, en el archivo adjunto tengo la relación de los combox, pero no consigo hacerlo.

Solo cargo el principal.

Espero vuestra ayuda

Gracias  

Combobox.xlsm

[MIJAF35]

Esto te podria ayudar con listas dependientes 

 

[MIJAF35]

 Hola, estoy te podria ser util, con listas dependientes 

https://www.youtube.com/watch?v=RA6Dq7pzbmw

 

 

Saludos,

[JSDJSD]

Si nadie te da solución antes, mañana te lo miro

[Marcos14]

Hace 14 minutos , MIJAF35 dijo:

 Hola este video trata de listas dependientes (https://www.youtube.com/watch?v=RA6Dq7pzbmw)

 

gracias @MIJAF35 pero para lo que estoy buscando e implementarlo en mi proyecto no me sirve, pero gracias de todas maneras

[Marcos14]

Hace 1 minuto , JSDJSD dijo:

Si nadie te da solución antes, mañana te lo miro

Gracias @JSDJSD esperaremos pues

[tierra_pampa]

Hola @Marcos14

Te dejo un archivo para que pruebes si es lo que necesitas.

Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario.

Suerte!

ae20200624_post43676_combobox.xlsm

[Marcos14]

Hace 9 horas, tierra_pampa dijo:

Hola @Marcos14

Te dejo un archivo para que pruebes si es lo que necesitas.

Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario.

Suerte!

ae20200624_post43676_combobox.xlsm 26.72 kB · 3 descargas

Gracias @tierra_pampa esta casi genial pero el fallo no es tuyo si no mio, te envio tu archivo con la rectificación, gracias por tu apoyo

ae20200624_post43676_combobox.xlsm

[JSDJSD]

Prueba y comenta.

prueba_combobox.xlsm

[Marcos14]

Hace 1 hora, JSDJSD dijo:

Prueba y comenta.

prueba_combobox.xlsm 23.86 kB · 0 descargas

@JSDJSD 100% perfecto, gracias, muchisimas gracias.

Y gracias a todos por vuestra gran ayuda 

[Marcos14]

@JSDJSD Porque cuando lo intento implantar en mi proyecto no me carga el segundo combobox? 

[JSDJSD]

Los datos tienen la misma estructura que los del archivo que te compartí?

[Marcos14]

Hace 8 minutos , JSDJSD dijo:

Los datos tienen la misma estructura que los del archivo que te compartí?

Yo diria que si te los voy a pasar por aqui en imagenes si no te sirve te paso el archivo lo que tu prefieras

 

[Marcos14]

@JSDJSD el formulario es frmestudio, te paso el archivo

 

 

https://mega.nz/file/psxDwILJ#2vmBtpnSPLQa9D2SXcqjRNpSTqoa0194ohmfRgjkOsY

[JSDJSD]

Mañana te lo miro

[Marcos14]

Hace 1 minuto , JSDJSD dijo:

Mañana te lo miro

Gracias

[Marcos14]

Hace 44 minutos , JSDJSD dijo:

Mañana te lo miro

@JSDJSD por cierto la hoja donde estan los datos se llama combo

[JSDJSD]

 

Hace 23 horas, Marcos14 dijo:

@JSDJSD Porque cuando lo intento implantar en mi proyecto no me carga el segundo combobox? 

 

El error esta  que no le indicas la hoja de la que tiene que coger los datos y entonces cuando ejecutas el formulario te los coge de la hoja en la que te encuentres, cambia el código tanto en el combo1 como del 2 por lo siguiente.

Hace 23 horas, Marcos14 dijo:

 

Private Sub ComboBox1_Change()
 Dim buscado As String
    Dim ultimafila As Long
    Dim cont As Long
    Dim rep As Long
    
    ComboBox2.Clear
    buscado = ComboBox1
    ultimafila = Sheets("Combo").Range("A" & Rows.Count).End(xlUp).Row
    
    For cont = 2 To ultimafila
        If Sheets("Combo").Cells(cont, 1) = buscado Then
            ComboBox2.AddItem (Sheets("Combo").Cells(cont, 2))
        End If
    Next
      For rep = ComboBox2.ListCount - 1 To 1 Step -1
      If ComboBox2.List(rep) = ComboBox2.List(rep - 1) Then ComboBox2.RemoveItem (rep)
   Next
End Sub
Private Sub ComboBox2_Change()
    Dim buscado As String
    Dim ultimafila As Long
    Dim cont As Long
    Dim rep As Long
    
    ComboBox3.Clear
    buscado = ComboBox2
    ultimafila = Sheets("Combo").Range("A" & Rows.Count).End(xlUp).Row
    
    For cont = 2 To ultimafila
        If Sheets("Combo").Cells(cont, 2) = buscado Then
            ComboBox3.AddItem (Sheets("Combo").Cells(cont, 3))
        End If
    Next
      For rep = ComboBox3.ListCount - 1 To 1 Step -1
      If ComboBox3.List(rep) = ComboBox3.List(rep - 1) Then ComboBox3.RemoveItem (rep)
   Next
End Sub

Prueba y comenta

[JSDJSD]

[Marcos14]

Hace 38 minutos , JSDJSD dijo:

 

 

El error esta  que no le indicas la hoja de la que tiene que coger los datos y entonces cuando ejecutas el formulario te los coge de la hoja en la que te encuentres, cambia el código tanto en el combo1 como del 2 por lo siguiente.

Prueba y comenta

@JSDJSD gracias ahora todo perfecto al 100% repito muchisimas gracias 

[JSDJSD]

Me alegro

[Marcos14]

Hace 1 minuto , JSDJSD dijo:

Me alegro

Se que aún le falta mucho al proyecto pero si quieres echarle un vistazo a lo que te envie y me dices que te parece o por aqui o por correo, marcos141964@gmail.com

[JSDJSD]

Lo veo muy bien, pero poco a poco se puede ir depurando y adaptándolo a las necesidades oportunas 

[Marcos14]

en eso estoy no tiene nada que ver de como está ahora de cómo empecé y seguro que de aquí a que lo termine aún cambiaran muchas cosas