Saltar al contenido

Filtro Búsqueda mas de 10 columnas

publicado

Hola buenas noches,

He estado investigando y no consigo realizar una búsqueda con los campos de mas de 10 columnas.

El método que utilizo es el Additem y este solo me permite hasta un máximo de 10.

Adjunto método y archivo:

Private Sub txt_btfiltro_Click()

    numerodatos = Hoja9.Range("A" & Rows.Count).End(xlUp).Row
    ListPedidos = Clear

    Y = 0

    For fila = 3 To numerodatos

    numeropedido = Hoja9.Cells(fila, 3).Value

    If UCase(numeropedido) Like "*" & Me.txt_pfiltro.Value & "*" Then
    

        Me.ListPedidos.AddItem
        Me.ListPedidos.List(Y, 0) = Hoja9.Cells(fila, 1).Value
        Me.ListPedidos.List(Y, 1) = Hoja9.Cells(fila, 2).Value
        Me.ListPedidos.List(Y, 2) = Hoja9.Cells(fila, 3).Value
        Me.ListPedidos.List(Y, 3) = Hoja9.Cells(fila, 4).Value
        Me.ListPedidos.List(Y, 4) = Hoja9.Cells(fila, 5).Value
        Me.ListPedidos.List(Y, 5) = Hoja9.Cells(fila, 6).Value
        Me.ListPedidos.List(Y, 6) = Hoja9.Cells(fila, 7).Value

    Y = Y + 1

End If
Next
End Sub

Por lo que he podido averiguar necesito utilizar el método Rowsource pero no se como hacerlo...

Espero me puedan ayudar.

Saludos!

PaqNuevo.xlsm

Featured Replies

publicado
Hace 1 hora, Puche dijo:

El método que utilizo es el Additem y este solo me permite hasta un máximo de 10.

Pues mañana también  te doy una opción con este método

publicado
  • Autor

Hola @JSDJSD,

Muchas gracias por tu respuesta.

Pero me sigue dando el mismo error, adjunto imagen y archivo de nuevo.

Lo que necesito es que se visualicen las 12 columnas en el Listbox cuando hago un filtro de busqueda.

Saludos,

fallo.JPG

PaqNuevo.xlsm

publicado

También se puede hacer con  método Rowsource  y una hoja auxiliar que en cuanto pueda el Maestro Antoni te lo compartirá.

publicado
  • Autor

Muchas gracias a los 2!

Los 2 métodos me funcionan perfectamente ;)

Saludos!

Archivado

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