Nesse caso, seria algo assim:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = 8
If Target.Row = 4 And Target.Column = 4 Then
Do Until IsEmpty(Cells(i, "B")) = True
If Cells(i, "B").Value = "Inativo" Then Rows(i).Hidden = True
If Cells(i, "B").Value = "Ativo" Then Rows(i).Hidden = False
i = i + 1
Loop
End If
End Sub
Considerei que as informações começam na linha 8, por isso i = 8 (vc deve ajustar)
Também considerei que a planilha vai filtrar quando vc alterar a célula D4, por isso a linha:
If Target.Row = 4 And Target.Column = 4 Then
ou seja, linha 4, coluna 4. vc deve alterar tb.
Coloque o código direto na planilha, não crie módulos.
Quanto a mais de um filtro, não é possível, mas vc pode filtrar mais de uma informação.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 16/01/2014 7:55 am