VBA изменить скрипт на несколько таблиц

Question

На этом форуме я нашел способ автоматического обновления автофильтров в таблице после изменения данных на листе Excel с помощью этого сценария VBA:

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

Но на самом деле мне бы хотелось, чтобы две таблицы обновлялись каждый раз, когда какие-либо данные на рабочем листе меняются, возможно ли это, и может ли кто-нибудь помочь мне написать правильный код, пожалуйста?

Answer 1

Да, просто добавьте его на основе имени другой таблицы и WS, например:

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

Или объединить его любым другим способом (в зависимости от вашей структуры данных).