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.xlsmFetching info...

[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]

  En 24/6/2020 at 19:40 , MIJAF35 dijo:

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

 

Expand  

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

[Marcos14]

  En 24/6/2020 at 19:56 , JSDJSD dijo:

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

Expand  

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.xlsmFetching info...

[Marcos14]

  En 24/6/2020 at 23:02 , 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

Expand  

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.xlsmFetching info...

[JSDJSD]

Prueba y comenta.

prueba_combobox.xlsmFetching info...

[Marcos14]

  En 25/6/2020 at 14:37 , JSDJSD dijo:

Prueba y comenta.

prueba_combobox.xlsm 23.86 kB · 0 descargas

Expand  

@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]

  En 25/6/2020 at 19:58 , JSDJSD dijo:

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

Expand  

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]

  En 25/6/2020 at 20:16 , JSDJSD dijo:

Mañana te lo miro

Expand  

Gracias

[Marcos14]

  En 25/6/2020 at 20:16 , JSDJSD dijo:

Mañana te lo miro

Expand  

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

[JSDJSD]

 

  En 25/6/2020 at 19:35 , Marcos14 dijo:

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

Expand  

 

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.

  En 25/6/2020 at 19:35 , 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

Expand  

Prueba y comenta

[JSDJSD]

[Marcos14]

  En 26/6/2020 at 18:55 , 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

Expand  

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

[JSDJSD]

Me alegro

[Marcos14]

  En 26/6/2020 at 19:37 , JSDJSD dijo:

Me alegro

Expand  

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