Boa-noite
Vai em "Desenvolvedor - Inserir...no Controle ActiveX insira um "TextBox" e cole na linha C3 Abaixo do nome Produto
Cole esse código na Plan1
Private Sub Produto_Change()
Selection.AutoFilter Field:=3, Criteria1:=CStr("*" + Produto.Text + "*")
End Sub
Mas esse AutoFilter vai aparecer as setinhas do filtro, estou procurando não fazer com isso, não fica com uma aparência legal.
Postado : 20/04/2018 7:12 pm