MiG's questions

Resumo: Como faço para forçar a execução de um script de filtro automático quando uma alteração de célula (induzida por outro script, não pela entrada do usuário) é detectada na célula I2? (observação: Excel 365, não vejo uma tag específica para isso, mas fique à vontade para ajustar se eu não vi!)

Eu vinculei células em diferentes abas que mudam de valor sempre que uma das outras muda seu valor. Se você definir 5 em uma aba, isso mudará as outras células nas outras abas para o mesmo valor. Este é um exemplo, da aba1 (as outras abas são atualmente idênticas em conteúdo e layout, com versões ajustadas localmente deste script):

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = Range("F2").Address Then
      Range("A5:E120").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F1:F2")
   End If
If Not Intersect(Target, Range("I2")) Is Nothing Then
  If Target = Range("I2") Then
    If Sheets("tab2").Range("I2").Value <> Target.Value Then
      Sheets("tab2").Range("I2").Value = Target.Value
    End If
  End If
End If
If Not Intersect(Target, Range("I2")) Is Nothing Then
  If Target = Range("I2") Then
    If Sheets("tab3").Range("I2").Value <> Target.Value Then
      Sheets("tab3").Range("I2").Value = Target.Value
    End If
  End If
End If
End Sub

Estou tentando filtrar as linhas em duas dessas guias com base neste valor: se definido como 5, ele deve mostrar todas as linhas na coluna A que contêm um valor de 5 ou menos (ou 3 ou menos, ou 2 ou menos etc.). Criei uma coluna auxiliar para esse efeito que verifica o valor em I2 e compara os valores da coluna A:

=IF(A5<=$I$2,"yes","no")

A ideia é que tudo com "sim" será exibido, e tudo com "não" será oculto.

Atualmente, estou usando o AutoFiltro manualmente em cada aba, mas gostaria de automatizar as alterações de filtro. Embora eu seja bem avançado em amarrar planilhas complexas usando as fórmulas internas, com o VBA ainda sou bem novo.

Isso parece promissor (também apresentado acima): https://www.tutorialspoint.com/how-to-autofilter-rows-based-on-cell-values-in-excel , que parece não usar os menus suspensos completos do AutoFiltro, mas funciona mesmo assim:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated By Nirmal
   If Target.Address = Range("F2").Address Then
      Range("A5:E120").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F1:F2")
   End If
End Sub

Isso pega o valor de E2 e oculta as linhas com um valor na coluna com o cabeçalho que corresponde a E1. Os menus suspensos do AutoFilter não estão disponíveis, mas isso é bom, pois a filtragem é a parte que importa.

O que estou encontrando é que esse script não parece pegar as alterações de células vinculadas, somente após a entrada direta do usuário. Então você teria que fazer uma edição em cada aba novamente, que é exatamente o que estou tentando evitar (ou seja, alterar o valor em um lugar, ter filtros mudando em todos os lugares)...

Este me intriga. PgUp e PgDn param de funcionar regularmente neste laptop (Dell Latitude 7400 com Win10, 2 anos e em boas condições físicas).

Eu suspeitaria imediatamente de um problema de hardware, mas também há períodos em que esses dois funcionam bem (como agora). Pelo que sei, não instalei nada que intercepte ou altere as teclas digitadas, e não parece um problema de StickyKeys (desabilito isso toda vez que recebo um novo laptop ou sistema operacional). Às vezes, pressionar um deles por um tempo parece fazê-los funcionar novamente (embora às vezes também não), e se um funciona, ambos funcionam, e se não funciona, nenhum deles funciona.

Antes de abrir um tíquete de suporte e entrar em um longo processo de substituição de teclado, há alguma causa relacionada ao SO ou software para isso que eu possa ter esquecido? Quaisquer outras sugestões de diagnóstico também são bem-vindas. Obrigado!