Filtro por qualquer palavra

[jfernandorodrigues]

pessoal tenho esse filtro mas ele so filtra se eu digitar a primeira palavra, gostaria de deixar o filtro por qualquer palavra... como faço?

 

Sub Filtro()

Dim base As Range

Dim crt As Range

Dim filtrada As Range

Dim NOME As String

Dim L As Long

 

 

Set base = Planilha1.Range("A1").CurrentRegion

Set crt = Planilha1.Range("N1:Y2")

 

 

base.AdvancedFilter xlFilterCopy, crt, Planilha5.Range("A1:L1")

 

 

L = Planilha5.Range("A1").CurrentRegion.Rows.Count

 

Set filtrada = _

Planilha5.Range(Planilha5.Cells(2, 1), Planilha5.Cells(L, 12))

 

 

NOME = "'" & Planilha5.Name & "'!"

userform1.ListBox1.RowSource = NOME & filtrada.Address

userform1.ListBox1.ColumnHeads = True

 

If L = 1 Then userform1.ListBox1.ColumnHeads = False

 

 

 

End Sub

[Alyson Ronnan Martins]

Não entendi a duvida.