Boa tarde pessoal
Cometi um erro , na aba "Padrão"não se faz necessario o filtro. Somente na aba "cadastro de cliente".Desculpa

De uma olhada no codigo da planilha Insumos, vc deve repetir/incluir codigos iguais (altere o nome do campo e numero da coluna) nas planilhas/colunas que deseja o "filtro"

Reinaldo
Fiz o que você pediu, mas não tive sucesso. Pode me dar um passo a passo?

Socorro
Preciso resolver este problema com uma certa urgência. Alguem que conhece VBA pode me ajudar?

Veja se consegue com o exemplo anexo (só coluna B):
Passos:
Selecione as colunas que desejar e clique em autofiltro.
Na guia desenvolvedor. selecione modo design
Insira (ou copie) uma TextBox para cada coluna que deseja filtrar. Renomeie se quiser (eu alterei o nome da que deixei de exmplo para TxtCliente).
De 2 cliques no textbox acrescentado (deverá "abrir" a folha do modulo com algo assim:

Private Sub TxtCliente_Change()
    
End Sub

Depois insira o codigo: "Selection.AutoFilter Field:=2, Criteria1:=CStr("*" + TxtCliente.Text) + "*"" - onde Field define em qual coluna o filtro será aplicado sendo 2=coluna B
Ficará algo assim:

Private Sub TxtCliente_Change()
    Selection.AutoFilter Field:=2, Criteria1:=CStr("*" + TxtCliente.Text) + "*"
End Sub

Amigo Reinaldo
Fiz aquele passo a passo que você me indicou em dus colunas (1 e 3 ), mas não filtrou, você pode ver onde errei? A planilha esta anexo: http://www.sendspace.com/file/0rgae5

Vc não renomeou os txt, ou usou um nome no txt e outro no codigo

Reinaldo
Tenha paciencia comigo, mas tentei colocar o filtro para a quarta coluna (fone), observando o nome do txt e o nome codigo, e mesmo assim não filtra.
obs: depois que escrevo o codigo , dou um Alt+Q, e, salvo a planilha tem algum erro nisto?
anexo a planilha http://www.sendspace.com/file/hm1khy

Proeleltrica, se seguir com calma as dicas do Reinaldo não tem erro, precisa prestar atenção quando o mesmo cita a importancia dos NOMES dos textbox e o Numero da Coluna (Field).

Veja bem, para a 4ª Coluna (D) onde temos o FONE, atribua o Nome "txtFone" ao TextBox e depois cole a rotina abaixo :

Private Sub txtFone_Change()
  If txtFone.Text <> "" Then
    Selection.AutoFilter Field:=4, Criteria1:="=" & txtFone.Text
  Else
    Selection.AutoFilter Field:=4
  End If
End Sub

Para sua compreensão e o ideal aqui não é enviar o modelo resolvido, mas sim procurar com que entenda o que se está fazendo.
Então temos :
txtFone foi o Nome dado ao TextBox que foi adicionado, damos dois cliques no mesmo e teremos o Evento Change.
Field:=4 - Refere-se a Coluna, como é a 4ª (D) atribuimos o 4.
O restante dispensa comentários, então se fizer o mesmo para os outros, preste atenção aos Nomes e ao Numero da Coluna que se encontra em "Field"

Veja se assim consegue desenvolver os outros, uma maneira bem simples, é fazer uma cópia da Aba Insumos e alterar as referencias.

[]s

Mauro
Eu estava errando no nome dado ao TextBox .
obrigado