Boa tarde!!

Considerando que você vai usar um controle textbox em uma guia onde os dados estão em uma tabela dentro da guia.

Option Explicit

Private Sub TextBox1_Change()

    Dim rngData As Range
    Dim rngFind As Range
    Dim rngFindAll As Range
    Dim strFirstAddress As String
    
    Set rngData = ActiveSheet.ListObjects("Table1").DataBodyRange
    
    rngData.EntireRow.Hidden = False
    If Len(TextBox1.Text) = 0 Then
        
    Else
        With rngData
            Set rngFind = .Cells.Find(TextBox1.Text, .Cells(.Rows.Count, .Columns.Count), xlValues, xlPart, , , False)
            If Not rngFind Is Nothing Then
                Set rngFindAll = rngFind.EntireRow
                strFirstAddress = rngFind.Address
                Do
                    Set rngFindAll = Union(rngFindAll, rngFind.EntireRow)
                    Set rngFind = .FindNext(rngFind)
                Loop While Not rngFind Is Nothing And strFirstAddress <> rngFind.Address
                .EntireRow.Hidden = True
                rngFindAll.EntireRow.Hidden = False
            End If
        End With
    End If

End Sub

Obs:Efeito super dinâmico, filtra qualquer valor dentro da tabela, indenpendente da coluna da tabela!!! muito bom!!!
Att

Da pra fazer assim:

viewtopic.php?f=21&t=10693

Alexandre, obrigado pela dica, mas por controle ja tinha algo parecido realmente minha necessidade seria por validação de dados.

gtsalikis, a dica não consegui abrir seu modelo retorna mensagem de arquivo corrompido

seria possivel enviar a planilha para o email [email protected].... o outro exemplo postado pelo bernardo deve ser outra versão de office ...
desde ja agradeço.

Bom dia!!

Se for a real validação de dados do excel, então aguarde uma nova versão do office, para suportar macro.

Quanto ao meu código, o mesmo é um controle, fica portanto adaptável.....

Att

Acho que tenho a plan em casa. De noite eu vejo e posto aqui.

Abs.

geroeane,

voltei lá no tópico q te indiquei e upei novamente o arquivo, assim contribui com o fórum.

Dá uma olhada lá.

Abs.