Cambio en Criterio de Búsqueda excel VB

Tengo el siguiente código para extraer o buscar de una hoja en otra

Private Sub Worksheet_Change(ByVal Target As Range)

'Buscar Convenio
        Sheets("Productos").Range("A1:R10001").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("I11:L12"), CopyToRange:=Range("Formulario!Extract"), _
        Unique:=False
End Sub

Los títulos de las celdas están iguales a los de la hoja de cálculo y funciona perfecto.

i11 = Convenio" l11 = "Descripción"

El problema es que cuando en l12 dígito algo, me hace la búsqueda solo con la palabra o caracteres iniciales, necesito buscar cualquier carácter dentro de la columna de la hoja productos.

Ejemplo:

En la hoja productos tengo:

celda 1 cable utp no. 6 blindado

celda 2 cable utp no. 5 blindado

celda 3 patchcord utp no. 6

Celda 4 Tornillos

Celda 5 cable XX

Celda 6 utp YY

etc..

Si dígito cable, me arroja los items que empiezan por la palabra cable. Pero si dígito utp, no me arroja nada. La idea es que me seleccione la celda 1,2,3 y 6

Añade tu respuesta

Haz clic para o