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