автоматическая нумерация строк

[Sergey112233]

Срабатывает, но не каждый раз правильно.
Закономерность пока не ясна.

[Sergey112233]

Фильтрация по параметру "д" может выглядеть так:

[Sergey112233]

при повторной фильтрации и так:

[kuklp]

Не так. После фильтрации выделите любую ячейку. К сожалению, не нашел события, к-рое срабатывало бы при программном изменении:-(

[SAS888]

К сожалению, не нашел события...

Если на рабочем листе есть хотя бы одна ячейка, содержащая формулу, то можно использовать событие пересчета ячеек листа. Например, так:

Private Sub Worksheet_Calculate()
    Dim cell As Range, i As Long: i = 1
    Application.ScreenUpdating = False: Application.EnableEvents = False
    For Each cell In Range([A2], Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible)
        cell = i: i = i + 1
    Next
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

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

[kuklp]

Сообщение от SAS888

Если на рабочем листе есть хотя бы одна ячейка, содержащая формулу, то можно использовать событие пересчета ячеек листа. Например, так
Пример во вложении.
Однако, необходимо отметить, что при таком варианте, перенумерация ... и перенумеровывать строки только в этом случае (получим событие изменения автофильтра).

Дык я пробовал - не получалось так. Пока вручную не сдвинешь селект...

[SAS888]

Дык я пробовал - не получалось так. Пока вручную не сдвинешь селект...

Изменение критерия автофильтра всегда вызывает пересчет ячеек рабочего листа (если, конечно, есть, что пересчитывать).

[kuklp]

У меня НЕ получилось. Возможно у Вас получится:-)

[SAS888]

У меня НЕ получилось. Возможно у Вас получится

Вы смотрели мой пример во вложении? Там все работает.

[kuklp]

Да. Сейчас посмотрел. Извиняюсь. Правда, круто.

С уважением, Сергей.