Поиск второй подряд пустой ячейки...

[Inventor_S]

странный косяк ... при копировании в другую книгу кода и переходе активной ячейки на последний интервал и нажатии по пустой ячейки активная ячейка убегает далеко куда-то аж на 1406 строку. что это может быть ? в прикрепленном примере такого косяка нет ... не пойму ...

[EugeneS]

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

странный косяк ... при копировании в другую книгу кода и переходе активной ячейки на последний интервал и нажатии по пустой ячейки активная ячейка убегает далеко куда-то аж на 1406 строку. что это может быть ? в прикрепленном примере такого косяка нет ... не пойму ...

это не "косяк", чтобы его не было: выделите все ячейки начиная с первой пустой после окончания размеченной таблицы, далее Правка - Очистить - все

[R Dmitry]

ну и мой вариант

Dim a As Byte
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, lr&, s&, c As Byte
On Error Resume Next
If Target.Column <> 9 Then a = 0: Exit Sub
lr = Target.Row
r = Int((lr - 1) / 13)
s = (r * 13) + 14
If Cells(lr - 1, 9).Value = 0 Then
c = 1
a = a + c
If a > 1 Then a = 0: Cells(s, 9).Activate: a = 0
Else
a = 0
End If
End Sub

[Inventor_S]

спасибо всем за помощь ! ВСЕ РАБОТАЕТ, очень удобная функция!)