Notifications

Clear all

AutoFiltro não funciona

2024 - VBA & Macros

Post Recente por gabymon 8 anos atrás

8 Posts

4 Usuários

0 Reactions

1,565 Visualizações

RSS

gabymon

(@gabymon)

Posts: 3

New Member

Topic starter

Bom dia, Pessoal!

Estou tentando colocar autofiltro em quatro colunas da minha planilha e estou seguindo alguns vídeos que assisto do youtube.
Não entendo nada de programação, sou somente uma fuçona mesmo que gosta de entregar tudo bonitinho para a chefe.

Enfim,

O que eu tenho... uma planilha com quase 1000 nomes de advogados do Brasil todo que são terceirizados da empresa em que trabalho.
O que preciso... uma busca rápida pelo nome, cidade, estado, ou último cliente atendido por este advogado.

Montei o código abaixo conformei um tutorial que segui:

Private Sub CORRESPONDENTE_Change()
RSelection.AutoFilter Field:=1, Criterial:=CStr("*" + CORRESPONDENTE.Text) + "*"
End Sub

Private Sub CLIENTE_Change()
Selection.AutoFilter Field:=2, Criterial:=CStr("*" + CLIENTE.Text) + "*"
End Sub
Private Sub CIDADE_Change()
Selection.AutoFilter Field:=3, Criterial:=CStr("*" + CIDADE.Text) + "*"

End Sub
Private Sub ESTADO_Change()
Selection.AutoFilter Field:=4, Criterial:=CStr("*" + ESTADO.Text) + "*"

End Sub

As caixinhas de textos ficam lá, bonitinhas, mas não pesquisam nada.

Algum pode dar um help?

Thanks.

Postado : 11/04/2017 6:23 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia gabymon

Como você é novato(a), para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Para facilitar, sugiro anexar uma planilha de exemplo, com o mesmo layout da original, mas apenas com poucos dados(fictícios)

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 11/04/2017 6:31 am

felipemazz

(@felipemazz)

Posts: 59

Trusted Member

Gabymon! Antes de pedir para você enviar a planilha, você Nomeou as caixinhas com os nomes: ESTADO; CIDADE; CLIENTE; CORRESPONDENTE?

Postado : 11/04/2017 10:13 am

gabymon

(@gabymon)

Posts: 3

New Member

Topic starter

Oi, felipemazz!

Nomeei sim.

Postado : 11/04/2017 10:18 am

felipemazz

(@felipemazz)

Posts: 59

Trusted Member

Gaby, salve a planilha em formato XLSM ou XLSB para que venha com as macros, e retire as informações confidenciais como contas e etc!

Postado : 11/04/2017 11:54 am

felipemazz

(@felipemazz)

Posts: 59

Trusted Member

Gaby, rapidamente que abri aqui a planilha e fui verificar o código, a principio estava tudo correto, mas o que acotneceu foi o seguinte... Geralmente, as pessoas não mudam a fonte que utilizam na programação, e o numeral 1 fica MUITO parecido com a letra L (em minusculo).

No seu código, no caso:

Private Sub CORRESPONDENTE_Change()
Selection.AutoFilter Field:=1, Criterial:=CStr("*" + CORRESPONDENTE.Text) + "*"
End Sub

Private Sub CLIENTE_Change()
Selection.AutoFilter Field:=2, Criterial:=CStr("*" + CLIENTE.Text) + "*"
End Sub
Private Sub CIDADE_Change()
Selection.AutoFilter Field:=3, Criterial:=CStr("*" + CIDADE.Text) + "*"

End Sub
Private Sub ESTADO_Change()
Selection.AutoFilter Field:=4, Criterial:=CStr("*" + ESTADO.Text) + "*"

End Sub

Não se escreve CriteriaL, e sim CRITERIA1 , assim como há criteria2 etc...

Altere isto no seu código, e teste novamente

Caso o erro persista, por favor me avise que te encaminho a planilha resolvida, sem as informações confidenciais que você enviou aqui! hahaha

Mas para ajudar, vai o código corrigido:

Private Sub CORRESPONDENTE_Change()
Selection.AutoFilter Field:=1, Criteria1:=CStr("*" + CORRESPONDENTE.Text) + "*"
End Sub

Private Sub CLIENTE_Change()
Selection.AutoFilter Field:=2, Criteria1:=CStr("*" + CLIENTE.Text) + "*"
End Sub
Private Sub CIDADE_Change()
Selection.AutoFilter Field:=3, Criteria1:=CStr("*" + CIDADE.Text) + "*"

End Sub
Private Sub ESTADO_Change()
Selection.AutoFilter Field:=4, Criteria1:=CStr("*" + ESTADO.Text) + "*"

End Sub

Postado : 11/04/2017 11:59 am