не пойму, в чем ошибка

[aniutik]

вот такой у меня код:
For i = 1 To 10
Selection.AutoFilter field:=Selection.Columns.Count - 6, Criteria1:=i
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select
arr(1, i) = Selection.Rows.Count - 1
Selection.AutoFilter
Next

но почему-то он работает некорректно, неправильно считает количество видимых строк. В чем дело, не пойму

[Igor_123]

Что нибудь получилось выяснить?
У меня складывается такое впечатление, что
при

Код: Выделить всё

Selection.SpecialCells(xlCellTypeVisible).Select


не обновляется значение свойства

Код: Выделить всё

Selection.Rows.Count

потому, что на других этапах выполнения

Код: Выделить всё

Selection.Rows.Count

выдаёт правильные значения
У кого есть ещё какие-то мысли по этому поводу???

[corgi]

он вам наверно выдает selection состоящий из нескольких областей ну и соответственно считает количество строк первого селекшина

[GSerg]

Нет, дело в том, что celltypevisible всегда ссылается на видимую область экрана, а не selection'а.

[Igor_123]

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