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