Копирование результатов фильтрации VBA - Microsoft Office Excel - Страница 2

mchip · 05.04.2010, 09:37

Не понимаю.
При проверке условия

Код:

If Sheets(1).AutoFilterMode = True

выходит из макроса.
Фильтр применен.

SAS888 · 05.04.2010, 10:02

Вы проигнорировали рекомендацию правил раздела и с самого начала не указали, что у Вас Excel 2007. Для того, чтобы макрос корректно работал в любой версии Excel, вместо строки кода

Код:

If Sheets(1).AutoFilterMode = True Then Set x = Sheets(1).AutoFilter.Range Else Exit Sub

используйте

Код:

If Sheets(1).AutoFilter Is Nothing Then Exit Sub Else Set x = Sheets(1).AutoFilter.Range

mchip · 05.04.2010, 10:14

Большое спасибо! Все заработало! Извиняюсь был не прав... Действительно офис 2007

05.04.2010, 09:37	#11
mchip Форумчанин Регистрация: 24.06.2008 Сообщений: 516	Не понимаю. При проверке условия Код: `If Sheets(1).AutoFilterMode = True` выходит из макроса. Фильтр применен. Можно сделать все! Было бы время, да деньги...

05.04.2010, 10:02	#12
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Вы проигнорировали рекомендацию правил раздела и с самого начала не указали, что у Вас Excel 2007. Для того, чтобы макрос корректно работал в любой версии Excel, вместо строки кода Код: `If Sheets(1).AutoFilterMode = True Then Set x = Sheets(1).AutoFilter.Range Else Exit Sub` используйте Код: `If Sheets(1).AutoFilter Is Nothing Then Exit Sub Else Set x = Sheets(1).AutoFilter.Range` Чем шире угол зрения, тем он тупее.

05.04.2010, 10:14	#13
mchip Форумчанин Регистрация: 24.06.2008 Сообщений: 516	Большое спасибо! Все заработало! Извиняюсь был не прав... Действительно офис 2007 Можно сделать все! Было бы время, да деньги...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Форма фильтрации по диапазону	Малой	БД в Delphi	3	24.02.2010 13:24
Метод фильтрации данных	sovereignua	Общие вопросы C/C++	0	11.11.2009 19:07
Подскажите по фильтрации полей	wadzik	БД в Delphi	2	09.09.2009 11:33
ошибка при фильтрации	Screame	Microsoft Office Excel	31	14.08.2009 10:10
ошибка фильтрации	Dozent	Общие вопросы Delphi	5	25.06.2008 22:52