Страницы: 1
RSS
Ошибка в UDF формуле после фильтра строк, Формула находится в строках, которые фильтруются.
 

Здравствуйте.

Формула ниже ищет адрес ячейки со словом из аргумента на неактивном листе.

Код
Function адрес_ячейки(ячейка As String)    
адрес_ячейки = Sheets("Март").Range("D17:D45").Find(What:=ячейка).Address
End Function

Делаю фильтр строк вручную, - всё нормально.

Делаю фильтр строк макросом:

Код
ActiveSheet.Range("$D$16:$E$39").AutoFilter Field:=2, Criteria1:="111"

значение формулы становиться “ЗНАЧ”. Нажимаю в ячейке формулы Enter, или сбрасываю фильтр - ошибки уходят. Можно ли как-то избавиться от этих ошибок? Формула находится в строках, которые фильтруются.

Как вариант, можно к макросу фильтра дописать такие строчки, но такой макрос работает медленно:

Код
For Each cell In Range("G17:G39")        
cell.Formula = cell.Formula    
Next
Изменено: rud.666 - 30.09.2020 21:01:31
 
Избавиться от ошибки можно так:
Код
Sub фильтр_по_111()
    Application.Calculation = xlCalculationManual
    ActiveSheet.Range("$D$16:$E$39").AutoFilter Field:=2, Criteria1:="111"
    Application.Calculation = xlCalculationAutomatic
End Sub
Владимир
 
Спасибо, sokol92!
Страницы: 1
Наверх