Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(“M2”)) Is Nothing Then On Error Resume Next ActiveSheet.ShowAllData Range(“M4”).CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(“M1”).CurrentRegion End If End Sub
[/vba] Всем привет, нуждаюсь в вашей помощи! Я не сильно разбираюсь в скриптах, но мне очень нужен данный макрос, он позволяет фильтровать таблицу, исходя из обновляемого значения в ячейке M2. Данный скрипт нашёл на сайте. Ввожу его, меняю значение ячейки, выдаёт ошибку (видно на скринах). Помогите пожалуйста сделать так, чтобы всё работало)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(“M2”)) Is Nothing Then On Error Resume Next ActiveSheet.ShowAllData Range(“M4”).CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(“M1”).CurrentRegion End If End Sub
[/vba] Всем привет, нуждаюсь в вашей помощи! Я не сильно разбираюсь в скриптах, но мне очень нужен данный макрос, он позволяет фильтровать таблицу, исходя из обновляемого значения в ячейке M2. Данный скрипт нашёл на сайте. Ввожу его, меняю значение ячейки, выдаёт ошибку (видно на скринах). Помогите пожалуйста сделать так, чтобы всё работало)mamontov1234567890
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
