Макрос активации ячейки по выбору в фильтре

[dsapa]

Здравствуйте!

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

Генератор кода дает конкретное значение фильтра:
Selection.AutoFilter Field:=1, Criteria1:="441"
А как конкретное значение заменить на любое выбираемое, ума не приложу, туплю видно. Если подскажете, как изменить эту строчку кода, остальное (активацию ячейки в нужном месте) сделаю сам.

И еще: можно ли удлиннить окошко фильтра до низа экрана монитора? Чтобы видно было не 15 значений, а все 50.
Спасибо.

[SAS888]

Selection.AutoFilter Field:=1, Criteria1:="441"
А как конкретное значение заменить на любое выбираемое

Т.е. Вам не удается вместо "441" подставить переменную? Или в чем вопрос?

можно ли удлиннить окошко фильтра до низа экрана монитора?

Excel не позволяет этого сделать.

[dsapa]

Именно так. Как подставить переменную вместо "441"?
Я объявил переменную:
Dim i as Integer
(в фильтре у меня только трехзначные числа)
Подставляю i в код - макрос выдает ошибку.
может объявить как String?

По второму вопросу: а средствами Win API возможно удлинить окно фильтра?

[dsapa]

Я нашел выход из положения:
По событию изменения значения фильтра просматриваю все записи, начиная сверху, и останавливаюсь на первой нескрытой записи.
Осталось самая малость - как отловить изменение значения фильтра?

[pivas]

Фильтр стоит на ячейке. Ловите её изменение.

[dsapa]

Попробовал. Ничего.
Фильтр стоит на ячейке I1, то есть на первой ячейке столбца I.
Вот строка кода:
If Target.Address = [I1].Address Then MsgBox "Фильтр"
Не работает.
В чем ошибка?

[dsapa]

Вот такое:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then MsgBox "Фильтр"
End Sub

срабатывает только на изменение значения в ячейке, но не в фильтре, включенном в эту ячейку.

[The_Prist]

В общем отследить изменение фильтра можно через событие Calculate листа. В любую ячейку листа вписываем формулу типа =СЧЁТЗ(A1:D300) указав в формуле весь диапазон данных. Затем в событие листа Worksheet_Calculate прописать такой макрос.

Option Explicit
Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Cells(1, ActiveCell.Column).Activate
    SendKeys "{down}"
    Application.ScreenUpdating = True
End Sub

[dsapa]

Работает!
Большое спасибо!