Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Как установить фильтр в 2003 екселе?

Автор Poltava, 08.06.2012, 12:55

« назад - далее »

Poltava

Вопрос появился при попытке переделать код с 2007 на 2003 ексель
в 2007 был код
   Range("B5:M5").AutoFilter Field:=12, Criteria1:="ИСТИНА"
   ActiveSheet.AutoFilter.ApplyFilter
Прекрасно работал. Но открыв в 2003 файл все перестало работать, а именно материлось на вторую строку. Потом попробовав записать макроредактором свои действия получил неожиданный результат все применяется но данные не фильтруются! Записанный макрос выглядит так
Sub [url=https://msexcel.ru/content/view/27/2/]_автофильтр_[/url]()
   Range("B5:M5").Select
   Selection.AutoFilter
   Selection.AutoFilter Field:=12, Criteria1:="ИСТИНА"
End Sub

но если его применить то значения не отображаются. Прикрепил файл с записанным макросом. Подскажите как его правильно переделать чтобы он работал, а то пол дня прогуглил и ничего не нашел ну или не понял что нашел
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.

Poltava

Может обьяснил сложно попробую упростить.
в файле я отфильтровал диапазон по значению ИСТИНА
как тоже сделать програмно ???
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.

kuklp

Приветствую. А попробуйте:
Sub УстановкаАвтофильтра()
    ActiveSheet.AutoFilterMode = 0
    Range("B5:M5" & Cells(Rows.Count, 13).End(xlUp).Row).AutoFilter 12, "true"
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Poltava

Да огромное спасибо такой код работает как нужно!
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.