Уважаемые Знатоки, помогите, пожалуйста, что не так в моем коде.
Есть 2 "умные" таблицы: Закупки и Продажи. В определенных колонках формула, которая в случае ошибки расчета выдает в ячейку слово "error".
Суть в том, что нужно проверить:
- если фильтр нашел слово "error", макрос выдает ошибку и останавливается
- если фильтр не нашел слово "error", макрос снимаем фильтр и продолжает отрабатывать оставшийся код
В таблице Закупки "error" нет, а вот на Продажи есть.
Макрос все равно выдает "Ошибка себ-ти Закупки", как будто он находит error" и на Продажи не проходит
Есть 2 "умные" таблицы: Закупки и Продажи. В определенных колонках формула, которая в случае ошибки расчета выдает в ячейку слово "error".
Суть в том, что нужно проверить:
- если фильтр нашел слово "error", макрос выдает ошибку и останавливается
- если фильтр не нашел слово "error", макрос снимаем фильтр и продолжает отрабатывать оставшийся код
В таблице Закупки "error" нет, а вот на Продажи есть.
Макрос все равно выдает "Ошибка себ-ти Закупки", как будто он находит error" и на Продажи не проходит
Код |
---|
Sub Test() Sheets("Закупки").Select ActiveSheet.AutoFilterMode = False ActiveSheet.ListObjects("Закупки").Range.AutoFilter Field:=52, Criteria1:="error" If ActiveSheet.ListObjects("Закупки").Range.SpecialCells(xlCellTypeVisible).Count > 0 Then MsgBox "Ошибка себ-ти Закупки" Exit Sub Else ActiveSheet.ShowAllData End If Sheets("Продажи").Select ActiveSheet.AutoFilterMode = False ActiveSheet.ListObjects("Продажи").Range.AutoFilter Field:=38, Criteria1:="error" If ActiveSheet.ListObjects("Продажи").Range.SpecialCells(xlCellTypeVisible).Count > 0 Then MsgBox "Ошибка себ-ти Продажи" Exit Sub Else ActiveSheet.ShowAllData End If End Sub |