Como posso ativar minhas planilhas no Excel para atualizar automaticamente os filtros que apliquei a eles?

1

Eu olhei nos outros tópicos sem sucesso para isso. Eu tenho algumas folhas na minha pasta de trabalho, com uma sendo uma folha de dados e os outros puxando dados dela. Eu configurei um filtro nessas planilhas para não mostrar nada que aparecesse como 'falso', o que é ótimo até adicionar dados na planilha de dados mestre. Eu adoraria que qualquer pessoa ajudasse a tornar possível que as outras folhas atualizassem automaticamente, mostrassem / dessemusem dados, sem que eu tivesse que reaplicar o filtro o tempo todo! Espero que isso faça sentido!

Eu tentei usar este código (encontrado em outros tópicos neste site), mas parece que não está funcionando para mim, o que estou fazendo de errado!

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.FilterMode = True Then
    With Application
       .EnableEvents = False
       .ScreenUpdating = False
    End With

    With ActiveWorkbook
        .CustomViews.Add ViewName:="Mine", RowColSettings:=True
      Me.AutoFilterMode = False
        .CustomViews("Mine").Show
        .CustomViews("Mine").Delete
    End With


     With Application
       .EnableEvents = True
       .ScreenUpdating = True
    End With
End If
End Sub
    
por Michael Trott 05.04.2016 / 17:51

1 resposta

1

Você está usando

Private Sub Worksheet_Change(ByVal Target As Range)

Por isso, o acionador é ativado em destinos específicos quando eles são alterados. Você não verificou o alvo em relação a qualquer condição para não ser acionado. Você deve verificar se a alteração do Alvo está dentro do seu intervalo filtrado, como

If Not Intersect(Target, Range("A1:A10") is Nothing Then
    
por 06.04.2016 / 13:44