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

Mañana le echo un vistazo.

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

Prueba y comenta

El archivo..

PaqNuevo(1).xlsm

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,

PaqNuevo.xlsm

Dentro de un rato te lo subo modificado

Prueba ahora a ver que tal.

PaqNuevo(2).xlsm

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

Utilizo el rango AA:AL de la hoja PEDIDOS para filtrar.

PaqNuevo.xlsm

Muchas gracias a los 2!

Los 2 métodos me funcionan perfectamente

Saludos!