buscar datos y almacenarlos en ComboBox

[hiddenmafia]

Buenos días estimados colegas,

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.

Dejo el link del archivo

Solicitud de moviles

[Haplox]

En 1/3/2020 at 14:06 , hiddenmafia dijo:

Si alguien pudiera ayudarme me seria de gran utilidad.

Difícil si subes un archivo protegido con user/pass y con decenas de formularios ¿A cuál te refieres? . De mnomento prueba cambiando a:

Do Until BD.Range("Z" & x_Busco) <> ES_circuito.Row