Desplegables condicionados sin datos repetidos

1 post / 0 nuevos
polbq
Imagen de polbq
Offline
última acción: Hace 4 meses 2 semanas
alta: 22/03/2019 - 12:26
Puntos: 50
Desplegables condicionados sin datos repetidos

Hola chicxs, he programado una macro que condiciona a 3 texbox.

El primero combobox1 contiene un número único. (nunca se repite)

El segundo combobox2 contiene la tipologia del centro (se repite)

El tercer combobox3 contiene el nombre (nunca se repite)

Ej:1 Edificio Mallorca

El problema que tengo es que en el combobox2 salen los datos repetidos y me gustaria que fueran unicos.

Tal y como tengo la codificación de la macro no logro hacer que me muestre un valor unico


Private Sub ComboBox1_Change()

INDICE = formulari1.ComboBox1.ListIndex

If INDICE > 0 Then

    ComboBox2.Value = ComboBox2.List(INDICE)

    ComboBox3.Value = ComboBox3.List(INDICE)

End If

End Sub

Private Sub ComboBox2_Change()

INDICE = formulari1.ComboBox2.ListIndex

If INDICE > 0 Then

    ComboBox1.Value = ComboBox1.List(INDICE)

    ComboBox3.Value = ComboBox3.List(INDICE)

End If

End Sub

Private Sub ComboBox3_Change()

INDICE = formulari1.ComboBox3.ListIndex

If INDICE > 0 Then

    ComboBox1.Value = ComboBox1.List(INDICE)

    ComboBox2.Value = ComboBox2.List(INDICE)

End If

End Sub


Private Sub UserForm_Initialize()

Set H2 = Worksheets("Equipaments")


With DATOS

    MATRIZ = .Columns(1)

    MATRIZ2 = .Columns(2)

    MATRIZ3 = .Columns(3)

    ComboBox1.List = MATRIZ

    ComboBox2.List = MATRIZ2

    ComboBox3.List = MATRIZ3

    

End With

 

End Sub



Muchas gracias por la ayuda

Etiquetas: