Auto Filter

[M3W 0]

Estou criando uma macro com filtro e estou com um problema.

 

Sheets("PBT").Select
        Columns("D:D").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:=""

Eu quero que no auto filter ele procure por uma palavra que vai ser digitada em outra aba da planilha e em outra célula ( Capa, F18 )

Como eu faço para que o auto filter faça isso ?

[GustavoRezende 0]

Lá vai M3W

 

Dim Var as String

Sheets("Nome_da_Aba").select
Var = "BMW"   'Defina aqui o valor da sua variável, pode ser Range("A3").value. Defina aqui.

Sheets("Nome_da_Aba").select   'Aqui tu volta para a aba em que vai usar o filtro

Columns("D:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Var    'Basta por a variável ou o texto se preferir, mas entre "aspas duplas"

[M3W 0]

Vlw Gustavo deu certinho aqui.

Mas está ocorrendo um incoveniente, se eu por exemplo quiser filtrar ADM ele acaba filtrando tudo que contém ADM.

Ex: ADM Advocacia

ADM ( seria qual eu queria )

World Administração

e por ai vai.

 

Como eu faço para que o macro procure o valor específico da célula ?

 

 

Vlw de novo Gustavo.