Estou fazendo um metódo de filtro de pesquisa na planilha, onde através de uma textbox eu filtro os dados da tabela mas ao digitar apresenta o seguinte erro:
1004 - o metodo autofilter da classe ranger falhou
como faço para corrigir o erro?
abaixo o código da textbox onde dá o erro:
Private Sub TextBox1_Change()
If TextBox1 <> "" Then
Selection.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text
Else
Selection.AutoFilter Field:=1
End If
End Sub
Pergunta
leticia1320
Estou fazendo um metódo de filtro de pesquisa na planilha, onde através de uma textbox eu filtro os dados da tabela mas ao digitar apresenta o seguinte erro:
1004 - o metodo autofilter da classe ranger falhou
como faço para corrigir o erro?
abaixo o código da textbox onde dá o erro:
Private Sub TextBox1_Change()
If TextBox1 <> "" Then
Selection.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text
Else
Selection.AutoFilter Field:=1
End If
End Sub
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.