Excel achar um valor ao ser digitado na textbox usando vba

[ewerton gomes da silva]

Como eu faço para achar um numero dentro de uma tabela sem ser correspondência exata 

utilizando esse código eu consigo buscar na tabela qualquer parte de um texto, porém eu não consigo fazer isso com números, como é uma sequencia de 8 digitos eu gostaria de digitar apenas os 4 últimos ou os 4 primeiros dígitos e ele já encontrar.

If TextBox2 <> "" Then

ActiveSheet.ListObjects( _
        "Tabela3329101122324252627282930313233343536373839404114484943515253545556575860345" _
        ).Range.AutoFilter Field:=3, Criteria1:="=*" & TextBox2.Value & "*", Operator:=xlAnd
        
        Else
        ActiveSheet.ListObjects( _
        "Tabela3329101122324252627282930313233343536373839404114484943515253545556575860345" _
        ).Range.AutoFilter Field:=3
        End If

 

 

eu consigo pesquisar metade uma palavra e já aparece, porém não consigo com números

[DJunqueira]

você pode fazer isso sem usar macro...

Na planilha anexa tem um exemplo.

Procura com digitação parcial.xlsx