Listas desplegables dependientes con algunos valores únicos
Les consulto como tener una lista desplegable dependiente en que si el valor asociado es único lo ponga automáticamente y no tener que seleccionarlo de la lista.
Mi lista.
Tabla 1. Tabla 2
Apellido 1. Nombre 1
Apellido 2. Nombre 2
Apellido 2. Nombre 3
Apellido 2. Nombre 4
Apellido 3. Nombre 1
Apellido 3. Nombre 5
Tengo la primer lista con Apellido 1 2 y 3. Cuando selecciono apellido 2 me da las opciones de nombres 2 3 y 4. Lo que me gustaría es que si selecciono apellido automáticamente ponga el nombre 1 pues es la única opción.
1 respuesta
Prueba esta macro, es esta macro los datos de la primera tabla comienzan celda A1 y los de la tabla 2 en la celda C1, en ambos casos tienen títulos por eso le reste una fila, una vez que los datos de ambos combobox están cargados solo seleccionas en el combo 1 el apellido y en automático te aparecerá en el combobox el nombre
Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
Private Sub UserForm_Initialize()
filas = Range("a1").CurrentRegion.Rows.Count - 1
filas2 = Range("c1").CurrentRegion.Rows.Count - 1
matriz = Range("a2").Resize(filas, 1)
matriz2 = Range("c2").Resize(filas2, 1)
ComboBox1.List = matriz
ComboBox2.List = matriz2
End Sub
