Você quer filtrar somente pelo STATUS ou o campo ORG (SHOPPING VIVO) tambem ? Seja por qual coluna for, em quais colunas estão os dados ?

Se for possivel, anexe um modelo reduzido e compactado, ficará mais fácil de ajustar.

[]s

Mauro,

Quero apenas filtrar o Status de "Aprovado", "Pendente" e "Cancelado" dentro da planilha, quando eu selecionar onde a celula C12

Fr, o campo Status em C12 eu vi, mas precisamos saber em qual coluna se encontra estes dados a serem filtrados de "Aprovado", "Pendente" e "Cancelado".

Estou saindo do serviço agora, mais tarde olho seu post novamente.

[]s

Veja se é isto, só lembre de ajustar na rotina o Range e o Field de acordo com sua planilha onde se encontra o rótulo STATUS:

Filtrar por Celula com Validação

[]s

Mauro,
Muito Obrigado!

Eu usei uma planilha que você desenvolver em outro post (novo controle de editais o nome), que me ajudou nessa questão, fiz as adaptações e funcionou.

usei o seguinte código:

Private Sub Workbook_Open()
    ActiveSheet.ComboBox1.Clear
    
    With ActiveSheet.ComboBox1
        .AddItem "TODOS"
        .AddItem "APROVADO"
        .AddItem "PENDENTE"
        .AddItem "CANCELADO"
    End With
   
End Sub

Private Sub ComboBox1_Change()

    sFiltra = ComboBox1.Value
  
    If sFiltra <> "" Then
        
        If sFiltra = "TODOS" Then
            On Error Resume Next
            'Limpa o Filtro
            ActiveSheet.ShowAllData
            Exit Sub
            
    End If
    
    'Aplica o Filtro
    ActiveSheet.Range("$H$15:$H$514").AutoFilter Field:=8, Criteria1:=sFiltra, VisibleDropDown:=True
  
    Else
        
        On Error Resume Next
        'Limpa o Filtro
        ActiveSheet.ShowAllData

    End If

End Sub
Sub Todos()
'
' Todos Macro

    ActiveSheet.Range("$H$15:$H$514").AutoFilter Field:=8
End Sub
Sub APROVADO()
'
' Aprovado Macro

    ActiveSheet.Range("$H$15:$H$514").AutoFilter Field:=8, Criteria1:= _
    "APROVADO"
End Sub
Sub PENDENTE()
'
' Pendente Macro

    ActiveSheet.Range("$H$15:$H$514").AutoFilter Field:=8, Criteria1:= _
        "PENDENTE"
End Sub
Sub CANCELADO()
'
' Cancelado Macro

    ActiveSheet.Range("$H$15:$H$514").AutoFilter Field:=8, Criteria1:= _
        "CANCELADO"
End Sub

Com esse depois apenas formatei a ComboBox e ficou certo. eu ainda sou iniciante aqui no forum e não sei anexar o modelo para mostrar rs. deixo a imagem!