Удалить строки всех недопустимых значений

[Paramount]

Доброго времени суток, дорогие друзья!

Прошу помощи. Ситуация: функция ВПР возвращает либо нормальное значение (если параметр найден) либо недопустимое (если параметр отсутствует (#Н/Д). После выполнения функции ВПР необходимо удалить все СТРОКИ с такими значениями в столбце, скажем Е. Т.е. в рендж Е2:Е50000 вписывается ВПР. Часть из результатов Н/Д. Используем автофильтр (оставляя только Н/Д) и все строки удаляем. Внимание, вопрос: почему, коогда я выполняю эти действия записывая макрос, он в дальнейшем не работает. Точнее фильтр стоит (галочка только возле Н/Д), но значения не отображаются вообще. Пробовал заменить формулу на значения и потом фильтровать (т.к. в макросе прописывается критерий = "#Н/Д") - всё равно не выходит.
Скорее всего эту задачу можно решить и другим способом, я, например, фантазировал насчёт If RXC5="#Н/Д", where X = 2:50000, then Rows("X:X").Delete Shift:=xlUp (Это, конечно, бред, больше похож на математическое уравнение, но объяснил как мог)
Возможно Вам будет что-то не понятно, так что простите меня, некомпетентного
Заранее спасибо всем за ответы!

[DiemonStar]

Cells.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete Shift:=xlUp

вот такой код удаляет все строки, содержащие ошибочные значения (#Н/Д, #ЗНАЧ, #ССЫЛКА и т.п.)

[strannick]

А точно надо удалять строки? Может к ВПР добавить проверку на ошибки, типа:

ЕСЛИ(ЕОШИБКА(ВПР("ваша формула";0;ВПР("ваша формула")))

Тогда в ячейке вместо значения ошибки будет 0. Ноль можно заменить на "пусто" (" ").

[Paramount]

Сообщение от DiemonStar

Cells.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete Shift:=xlUp

вот такой код удаляет все строки, содержащие ошибочные значения (#Н/Д, #ЗНАЧ, #ССЫЛКА и т.п.)

Супер, но проблемка в том, что удаляя целую строку - удаляет и критерии, что коцает формулу и получается каша

[DiemonStar]

Сообщение от Paramount

Супер, но проблемка в том, что удаляя целую строку - удаляет и критерии, что коцает формулу и получается каша

попробуйте убрать

.EntireRow

из формулы. Или выкладывайте образец файла с исходными данными и что желаете получить в итоге.

[Paramount]

Вот так всё выглядит

[DiemonStar]

вот вроде как получилось. но сохранить формулы в столбце по условиям вашей задачи нереально

[Paramount]

вот вроде как получилось. но сохранить формулы в столбце по условиям вашей задачи нереально

а их и не нужно сохранять, спасибо большое, то, что надо!!!

Тема закрыта

[Paramount]

вот вроде как получилось. но сохранить формулы в столбце по условиям вашей задачи нереально

а их и не нужно сохранять, спасибо большое, то, что надо!!!

Тема закрыта