Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » mrozengaus
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Расширенный фильтр не работает с именованным диапазоном критериев
 
#
25.11.2015 18:18:18
Цитата
Потому что расширенный фильтр так работает.
Почитал, как работает расширенный фильтр и понял, что неправильно ответил. Пустых строк в моем условии нет, есть пустые ячейки. Теоретически, это вполне нормальная ситуация. Приложил картинку работающих и не работающих условий.
 
Перейти    
Расширенный фильтр не работает с именованным диапазоном критериев
 
#
24.11.2015 17:27:56
Там, действительно, не все строки заполнены. А почему так?
И раньше-то работало именно в точно таком же виде
 
Перейти    
Расширенный фильтр не работает с именованным диапазоном критериев
 
#
24.11.2015 17:13:52
Ошибки нет, но результат его работы = просто скопировать на новое место все строки фильтруемой таблицы, проигнорировав критерии.

Сейчас попробовал не макросом, а просто руками сделать расширенный фильтр - та же история. Если диапазон именован, то при его выделении excel вписывает в поле "диапазон условий" имя. Результат такой фильтрации - чушь. Если вместо имени адрес, то все ок.
 
Перейти    
Расширенный фильтр не работает с именованным диапазоном критериев
 
#
24.11.2015 15:07:08
Здравствуйте!
Есть ли какая-то не мистическая причина, по которой вот такой код раньше работал, а теперь нет? Вот буквально, не пользовался макросом пару месяцев, вернулся - а там сюрприз.
  Range("input_data[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("criteria_all"), CopyToRange:=Range("S19:AI19"), Unique:=False

Я уже попробовал все, что мне пришло в голову. Диапазоны все 100% именованы. Скопировал все в чистую книгу и попробовал там.
Вот такой код отрабатывает правильно:
Range("input_data[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A15:C16"), CopyToRange:=Range("S19:AI19"), Unique:=False

Я что-то упускаю из виду? Раньше-то все нормально работало.
 
Перейти    
Смена направления ввода
 
#
07.09.2015 12:14:14
The_Prist, спасибо большое! Действительно, банальная опечатка, которую в упор не видел. Убрал лишний во втором коде "Application.ReferenceStyle" и все заработало, как часы.
JayBhagavan, спасибо за помощь, но в моем случае "ларчик просто открывался".
 
Перейти    
Смена направления ввода
 
#
07.09.2015 11:37:58
Т.к. часто требуется менять стиль ссылок и направление ввода с "вправо" на "вниз" и обратно - решил сделать себе кнопочки с макросом.
И вот не тут-то было. В первом случае все работает как часы, а направление ввода сопротивляется.
Помогите, пожалуйста, понять, в чем может быть причина и как с этим бороться.
Код
Sub поменять_стиль_ссылок()
R = Application.ReferenceStyle = xlR1C1
A = Application.ReferenceStyle = xlA1
If R = True Then Application.ReferenceStyle = xlA1
If A = True Then Application.ReferenceStyle = xlR1C1

End Sub

Sub поменять_направление_ввода()
'
'
RightInput = Application.MoveAfterReturnDirection = xlToRight
DownInput = Application.MoveAfterReturnDirection = xlDown
If RightInput = True Then Application.ReferenceStyle = Application.MoveAfterReturnDirection = xlDown
If DownInput = True Then Application.MoveAfterReturnDirection = xlToRight

    
End Sub
Изменено: mrozengaus - 07.09.2015 11:39:36
 
Перейти    
Страницы: 1
Наверх