Estou encontrando problemas ao utilizar um filtro com listbox no vba.
Eu tenho formulário com filtro de cpf, o que funciona perfeitamente, entretanto para pesquisar nome não funciona. Creio que a diferença é que o filtro de CPF é uma pesquisa exata, e o nome é uma pesquisa com "*", que deve filtrar por qualquer valor que contenha o texto.
O código que eu utilizei é abaixo.
Código: Selecionar todos
Private Sub btnbuscanome_Click()
Dim nome As String
nome = Me.txtnome.Text
'APLICAÇÃO DO FILTRO
ActiveSheet.Range("$A$1:$CD$1069").AutoFilter Field:=8, Criteria1:="*" & nome & "*"
'CONDICAO PARA CARREGAR A LISTBOX
If ListBox1.ListCount < 1 Then
Call carregar_listbox
End If
'PROCURA O VALOR NOME NA LISTBOX
For item = 0 To ListBox1.ListCount - 1
If txtnome.Value <> "" Then
On Error Resume Next
If ListBox1.List(item, 6) = nome Then
Else
ListBox1.RemoveItem (item)
item = item - 1
ListBox1 = Null
End If
End If
Next
End Sub
Pra resumir, se eu filtro no nome Aline....todas as Aline aparecem na planilha, independente do sobrenome, mas na listbox, não aparece nenhuma pois a busca na listbox acontece com o valor exato, não considerando os sobrenomes.
Obrigado a todos pela ajuda.