Ocultar linha com base em duas condições

Question

Trabalhei nisso por uma hora usando fóruns sem sorte.

1. Deseja usar este código em qualquer pasta / pasta de trabalho nomeada
2. Todas as pastas de trabalho são configuradas da mesma forma
3. Deseja ver a coluna A e veja se existe um valor de "A" e observe a coluna P para ver se há um número zero
4. Ocultar essa linha se as duas forem verdadeiras
5. Executar a planilha inteira --- essas planilhas sempre têm menos de 500 linhas.

Folha de Exemplo:

    

Answer 1

Crie uma coluna auxiliar começando em S9 com a fórmula:

=IF((A9="A")*(P9=0)=1,"HIDE","SHOW")

No VBA, use o seguinte script:

Option Explicit
Sub Worksheet_Activate()

    'hide all lines that match criteria
    Dim i As Long

    'finds lines. 19 denotes the S column. Change 500 to last row.
    For i = 9 To 500
        If Cells(i, 19).Value = "HIDE" Then
            'hides row
            Rows(i).EntireRow.Hidden = True
        End If
    Next

End Sub

Sempre que a planilha for ativada, esse código será executado e todas as linhas que corresponderem aos critérios serão ocultadas. Você provavelmente não quer este comportamento, mas isso deve levá-lo apontado na direção certa.