VBA altera o script em várias tabelas

Question

Por meio deste fórum, encontrei uma maneira de atualizar automaticamente os filtros automáticos em uma tabela após a alteração dos dados em uma planilha do Excel, usando este script VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveWorkbook.Worksheets("Notes").ListObjects("Table1")
         .AutoFilter.ApplyFilter
    End With
End Sub

Mas eu realmente gostaria que duas tabelas fossem atualizadas cada vez que qualquer dado na planilha fosse alterado, isso é possível e alguém pode me ajudar a escrever o código correto, por favor?

    

Answer 1

Sim, apenas adicione-o com base no nome da outra tabela e no WS, por exemplo:

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveWorkbook.Worksheets("Notes").ListObjects("Table1")
         .AutoFilter.ApplyFilter
    End With
    With ActiveWorkbook.Worksheets("Notes").ListObjects("Table2")
         .AutoFilter.ApplyFilter
    End With
End Sub

Ou combine-o de qualquer outra forma (dependendo da estrutura de dados).