Вот кое-что, что может помочь вам начать. (Я думаю, это близко к тому, что вы хотели бы сделать.)
Создайте именованный диапазон для данных на втором листе. В моем примере с именем «new_range».
Затем создайте следующую процедуру в новом модуле:
Sub FilterSheetTwo()
Worksheets("Sheet2").Range("new_range").AutoFilter Field:=6, Criteria1:="Reason1"
End Sub
Когда вы запустите эту процедуру, она должна отфильтровать результаты по Sheet2
.
Затем вы можете подключить эту процедуру к событию Worksheet_Change
на Sheet1
.