Requiero su valiosa ayuda con el siguiente código.
Private Sub ComboBox11_Change()
CommandButton1.Enabled = False
ComboBox10.Clear
Set ES_circuito = BD.Columns("Z").Find(ComboBox11, , , xlWhole)
If Not ES_circuito Is Nothing Then
x_Busco = ES_circuito.Row
Do Until BD.Range("Z" & x_Busco) <> ES_circuito
If ComboBox11.Value = "" Then Exit Do
ComboBox10.AddItem BD.Range("A" & x_Busco)
ComboBox10.List(ComboBox10.ListCount - 1, 1) = BD.Range("D" & x_Busco)
ComboBox10.List(ComboBox10.ListCount - 1, 2) = BD.Range("C" & x_Busco)
ComboBox10.List(ComboBox10.ListCount - 1, 3) = BD.Range("B" & x_Busco)
ComboBox10.List(ComboBox10.ListCount - 1, 4) = BD.Range("G" & x_Busco)
x_Busco = x_Busco + 1
Loop
End If
End Sub
Lo que hace es que busca el dato del ComboBox11 en la hoja BD (antes declarada como WorkSheet("BD")) en la columna "Z", me funciona muy bien hasta que no lo encuentra, es decir, digamos que la coincidencia esta en las filas 1, 2, 3 y 5. al combobox10 se añadirá el item de la fila 1,2 y 3, pero el 5 no lo en listará.
Si alguien pudiera ayudarme me seria de gran utilidad.
Buenos días estimados colegas,
Requiero su valiosa ayuda con el siguiente código.
Lo que hace es que busca el dato del ComboBox11 en la hoja BD (antes declarada como WorkSheet("BD")) en la columna "Z", me funciona muy bien hasta que no lo encuentra, es decir, digamos que la coincidencia esta en las filas 1, 2, 3 y 5. al combobox10 se añadirá el item de la fila 1,2 y 3, pero el 5 no lo en listará.
Si alguien pudiera ayudarme me seria de gran utilidad.
Dejo el link del archivo
Solicitud de moviles