Combobox dependiente con datos unicos
Publicado por ricardo_yah (1 intervención) el 24/10/2018 06:09:40
Hola, espero que alguien pueda ayudarme tengo varios dias tratando de hacer los siguiente:
en mi libro de excel tengo en la columna A el numero de sucursal de tienda por ejemplo: 502060 y en la columna B el numero de Articulo 502060001 logicamente son repetetivos x numero de veces ambos en sus respectivas columnas. he logrado hacer que mi sucursal se cargue en un primer combobox obviamente sin registros duplicados ya que como dije antes puedes ser 502060, 502061, 502062, etc, el problema es para lograr cargar el segundo combo, con este codigo he logrado cargar y relacionar de cierta forma el primero con el segundo, el problema es que no encuentro la manera de hacerlos unicos, les dejos el codigo:
espero que alguien pueda ayudarme, se lo voy a agradecer enormemente
en mi libro de excel tengo en la columna A el numero de sucursal de tienda por ejemplo: 502060 y en la columna B el numero de Articulo 502060001 logicamente son repetetivos x numero de veces ambos en sus respectivas columnas. he logrado hacer que mi sucursal se cargue en un primer combobox obviamente sin registros duplicados ya que como dije antes puedes ser 502060, 502061, 502062, etc, el problema es para lograr cargar el segundo combo, con este codigo he logrado cargar y relacionar de cierta forma el primero con el segundo, el problema es que no encuentro la manera de hacerlos unicos, les dejos el codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub ComboBox1_Change()
Dim Fila As Integer
Dim Final As Integer
Sheets("Principal").ComboBox2.Clear
id_sucursal = Sheets("Principal").ComboBox1.Value
With Datos
Final = Sheets("Datos").Cells(2, 5).End(xlDown).Row
For Fila = 2 To FinalIf Mid(Sheets("Datos").Cells(Fila, 5), 1, 8) = id_sucursal Then
Sheets("Principal").ComboBox2.AddItem (Sheets("Datos").Cells(Fila, 5))
End If
Next
End With
End Sub
espero que alguien pueda ayudarme, se lo voy a agradecer enormemente
Valora esta pregunta
0