Como pesquisar telefones com Autofilter em VBA

Question

Estou usando VBA para aplicar um filtro na coluna de números de telefone.
Os números de telefones são tratados de forma personalizada para ficar no modelo (XX) XXXXX-XXXX ou (XX) XXXX-XXXX
Eu pego o valor de uma célula e uso como o valor para a busca do filtro.
Segue o código:
If Not IsEmpty(Range("B7")) Then
Range("A12").AutoFilter Field:=2, Criteria1:=Range("B7").Value

End If

Não recebo retorno quando o valor possui formatação

Vítor Sousa · Answer

Após mais um pouco de pesquisa encontrei essa solução usando o Strings.Format, ele retorna uma string então dessa forma o VBA passa o valor exato com todos os símbolos no AutoFilter.
Dim NumTelefone As String
NumTelefone = Range("B7")
If Len(NumTelefone) > 10 Then
NumTelefone = Strings.Format(NumTelefone, "[<=9999999999] (##)#####-####")
Else
NumTelefone = Strings.Format(NumTelefone, "[<=9999999999] (##)####-####")
End If

Como pesquisar telefones com Autofilter em VBA

One Answer

Add your own answers!

Ask a Question