¿Cómo ligar dos combobox en vba Excel?
¿Formulario?
Tengo dos combobox en un formulario de control de inventario, el primero contiene códigos de identificación de materiales y el segundo contiene la descripción del material, P/e:
10001-Material 1
10002-Material 2, etc, etc
Tengo el siguiente código pero solo funciona con un solo código de material que de hecho agregue el material con otra función del formulario. Pienso que debe ser por el tipo de formato que tiene la celda, ya lo cheque pero aun así no encuentro la solución
Lo que quiero lograr es que cuando quiera realizar una búsqueda por código esté sincronizado con la descripción del material por ejemplo si selecciono el material 10003 aparezca "material 3" en el otro combobox.
Les dejo mi formulario. A ver si alguien me puede ayudar
Private Sub Codigo_Change() 'Este evento es el combobox1
Dim i As Integer
If Me.Codigo = "" Then 'Este objeto es el combobox1
Me.Descripcion = "" 'Este objeto es el combobox2
End If
For i = 2 To 5000
If Me.Codigo = Hoja2.Cells(i, 1).Value Then
Me.Descripcion = Hoja2.Cells(i, 2).Value
End If
Next i
End Sub