mrozengaus (Автор тем)

Расширенный фильтр не работает с именованным диапазоном критериев

Пользователь

Сообщений: 6 Регистрация: 24.06.2015

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

Я что-то упускаю из виду? Раньше-то все нормально работало.

Перейти

Смена направления ввода

mrozengaus

Пользователь

Сообщений: 6 Регистрация: 24.06.2015

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

Перейти