Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

buscar datos y almacenarlos en ComboBox

publicado

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

Featured Replies

publicado
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? :wacko:. De mnomento prueba cambiando a:

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.