Bom dia!!

Tente algo como...

Sub Filtrar_AleVBA()

If Range("B5") <> "" And Range("E4") = "" Then
Exit Sub

ElseIf Range("B5") = "" And Range("E4") <> "" Then
Exit Sub
Else
[A9].Select
      Selection.AutoFilter Field:=1, _
      Operator:=xlFilterValues, _
      Criteria1:=Array(Range("B5"), Range("E4"))
                         
    End If
End Sub

Fiz o seguinte código .. mas preciso que a linha encontrada mude de cor... seria possível?????? Segue abaixo o código.

Private Sub cmdLocalizar_Click()
Dim varLocalizar As Variant

On Error GoTo Erro:
If txtLocalizar.Text = "" Then
Me.Hide
MsgBox "Digite a expressão a ser Localizada", vbCritical
Me.Show

txtLocalizar.SetFocus

Exit Sub
End If

varLocalizar = txtLocalizar.Text
If IsDate(varLocalizar) = True Then
varLocalizar = CDate(varLocalizar)
End If

If chkCelulaInteira.Value = True Then

Selection.Find(What:=varLocalizar, After:=ActiveCell, LookAt:=xlWhole).Activate

Else

Selection.Find(What:=varLocalizar, After:=ActiveCell, LookAt:=xlPart).Activate
End If

Exit Sub
Erro:

MsgBox "A Expressão não Pôde Ser Localizada"
End Sub

Gente consegui mudar a cor da linha .. vou postar pra caso alguem precise

Agora preciso do seguinte .. tenho que verificar na linha que a planilha foi localizada qual é o grupo .. que fica na coluna B .. ai neste caso eu preciso ocultar todos os outros grupos e deixar somente as peças do grupo em que a palavra digitada foi localizado.

Segue o que eu consegui fazer até agora .... vou postando conforme vou conseguindo fazer.

Private Sub cmdLocalizar_Click()
Dim varLocalizar As Variant

On Error GoTo Erro:
If txtLocalizar.Text = "" Then
Me.Hide
MsgBox "Digite a expressão a ser Localizada", vbCritical
Me.Show

txtLocalizar.SetFocus
ActiveCell.Interior.ColorIndex = 36
Exit Sub
End If

varLocalizar = txtLocalizar.Text
If IsDate(varLocalizar) = True Then
varLocalizar = CDate(varLocalizar)
ActiveCell.Interior.Pattern = xlSolid
ActiveCell.Interior.PatternColorIndex = xlAutomatic
ActiveCell.Interior.Color = 65535
End If

If chkCelulaInteira.Value = True Then

Selection.Find(What:=varLocalizar, After:=ActiveCell, LookAt:=xlWhole).Activate
ActiveCell.Interior.Pattern = xlSolid
ActiveCell.Interior.PatternColorIndex = xlAutomatic
ActiveCell.Interior.Color = 65535
Else

Selection.Find(What:=varLocalizar, After:=ActiveCell, LookAt:=xlPart).Activate
ActiveCell.Interior.Pattern = xlSolid
ActiveCell.Interior.PatternColorIndex = xlAutomatic
ActiveCell.Interior.Color = 65535
End If

Exit Sub
Erro:

MsgBox "A Expressão não Pôde Ser Localizada"
End Sub