Уважаемые спецы, прошу вашей помощи! делаю первые шаги в VBA. Пытаюсь написать макрос, который бы скрывал строки таблицы, если значения в определенных ячейках этой таблицы соответсвовали бы именному диапазону. Предполагается, что и таблица и именной диапазон могут обновляться. Если наглядно, то создал именной диапазон - "мебель"(на листе 1). Хочу чтоб в таблице (диапазоне)(на листе 2), если в колонке 2 всречается значение из диапазона "мебель", чтоб эта строка была скыта. Собрал следующий код
Код |
---|
Sub рабочийвариант()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count 'определяем размеры таблицы
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1 'проходим от последней строки до первой
x = WorksheetFunction.Match(Cells(r, 2), Range("мебель"), 0)
Cells(r, 3) = IIf(IsEmpty(x), "не ок", "скрыть")
If Cells(r, 3) = "скрыть" Then Cells(r, 3).EntireRow.Hidden = True 'если в строке пусто - скрываем ее
Next r
End Sub |
буду очень благодаен за любые комменты