Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Фильтры / 2 сообщений из 2, страница 1 из 1
15.01.2018, 10:45
    #39584224
Анатолий8383
Анатолий8383
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтры
Здравствуйте уважаемые форумчане, есть фильтр (макрос эксель), такого вида

макрос фильтр 1


Код: vbnet
1.
2.
3.
Rows("31:31").AutoFilter
Range("AN31:AN1670").AutoFilter Field:=1, _
Criteria1:="<=" & CDbl(DateSerial(Year(Date), Month(Date) + 1, 1))


и

макрос фильтр 2

Код: vbnet
1.
2.
3.
4.
Rows("31:31").AutoFilter
Range("AO31:AO1670").AutoFilter Field:=1, _
Criteria1:=">=" & CDbl(DateSerial(Year(Date), Month(Date) + 1, 1)), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(DateSerial(Year(Date), Month(Date) + 3, 0))



Модератор: Учимся использовать тэги оформления кода - FAQ

а как дополнить этот макрос поиском по нужному слову, так что бы сразу после этого выполнялся автофильтр по нужному слову (не вводимому а постоянному (в другойм столбце), уже забитому в кнопке с полным макросом). т.е. нажал кнопку к примеру с названием "трактор" и появились все тракторы (из общего списка техники) в соответствии с вышепреведенным фильтром (1 или 2) по дате.

Вставка дополнительного фильтра после "макрос фильтр 1" или "макрос фильтр 2" не помогает, выдает ошибку. А если по новой запускаешь автофильтр то сбрасывается старый. Т.е. эти фильтры не запускаются со стандартными автофильтрами.
Заранее спасибо за ответ

Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2018, 15:00
    #39584470
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фильтры
Анатолий8383,
Вставка дополнительного фильтра после "макрос фильтр 1" или "макрос фильтр 2" не помогает, выдает ошибку
Значит неправильно вставляете. Запишите действие макрорекордером, посмотрите, что получается.

А если по новой запускаешь автофильтр то сбрасывается старый
Это из-за первой строки - .AutoFilter без параметров.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Фильтры / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]