Este fórum está sendo desativado

[Lahel]

Bom dia a todos, estou com essa planilha em anexo, ela já está procurando o nome dos funcionários porem queria outros dados como:
Ao digitar Valido filtrar todos os ASO Valido
Ao digitar Vencido filtrar todos os ASO Vencido
Ao digitar Prazo filtrar todos os ASO com Prazo
Ja tentei porem eu não consigo fazer.
Att.

[babdallas]

Veja se é o que deseja.

[Lahel]

Ficou perfeito, só que o msg box parou de funcionar

[babdallas]

Desculpe, mudei o codename da planilha e esqueci de mudar o evento de abertura da pasta de trabalho. Modifique o seguinte:

Código: Selecionar todos

'#### Planilhas
Private Sub Workbook_Open()
    Dim W As Worksheet
    Dim WRows As Long
    
    Set W = wshASO 'Esta foi a linha de código que modifiquei
    For WRows = 9 To W.Range("A" & Rows.Count).End(xlUp).Row
        If W.Cells(WRows, 8).Value <> "Valido" Then
            MsgBox "O ASO DE" & " " & W.Cells(WRows, 1).Value & Chr(13) & Chr(13) & W.Cells(WRows, 8).Value
        End If
    Next WRows
End Sub

[Lahel]

Muito obrigado, parabéns pela proatividade em ajudar os demais.