Filtro Búsqueda mas de 10 columnas

[Puche]

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

[Antoni]

Mañana le echo un vistazo.

[JSDJSD]

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

[JSDJSD]

Prueba y comenta

[JSDJSD]

El archivo..

PaqNuevo(1).xlsm

[Puche]

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

[JSDJSD]

Dentro de un rato te lo subo modificado

[JSDJSD]

Prueba ahora a ver que tal.

PaqNuevo(2).xlsm

[JSDJSD]

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

[Antoni]

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

PaqNuevo.xlsm

[Puche]

Muchas gracias a los 2!

Los 2 métodos me funcionan perfectamente

Saludos!