Фильтр по несуществующему значению

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Фильтр по несуществующему значению (Макросы Sub)

Alexei

Дата: Среда, 10.07.2013, 21:57 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый вечер.
Вот есть такой примитивный макрос:
[vba]

Код

ActiveSheet.Range("$B$14:$N$300").AutoFilter field:=4, Criteria1:="Проверка"
Range("C15:N465").Select 'выделяем диапазон
Selection.Copy 'копировать
Sheets("Лист1").Select
Range("F11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

[/vba]
Но если в списке нет "Проверка", то фильтр не срабатывает и копирует весь неотфильтрованный диапазон.
Как добавить какую-нибудь проверку, что если такого значения нет в списке, то макрос пропускал эту свою часть и переходил к следующей части кода?

Ответить

Poltava

Дата: Среда, 10.07.2013, 22:50 | Сообщение № 2

Группа: Друзья

Ранг: Форумчанин

Сообщений: 232

Репутация: 50 ±

Замечаний: 0% ±

Вопрос без файла считаеться теоретическим! вот Вам теоретический ответ! перед тем как копировать проверьте что данный критерий есть пока на вскидку два способа нет файла так что синтаксис не проверял но скорее всего он неправильный
[vba]

Код

ActiveSheet.Range("$B$14:$N$300").AutoFilter field:=4, Criteria1:="Проверка"
if ActiveSheet.AutoFilter.Range.row.count<>ActiveSheet.AutoFilter.Range.Row.SpecialCells(xlCellTypeVisible).Count then
Range("C15:N465").Select 'выделяем диапазон
Selection.Copy 'копировать
Sheets("Лист1").Select
Range("F11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
end if

[/vba]
либо просто проверить наличие функцией листа но раз вам лень выложить файл то мне лень тут код писать сами напишите smile

главное идея