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

[Inventor_S]

Необходимо в определенном столбце, чтобы активная ячейка при переходе на следующую строчку ниже, при нахождении второй пустой ячейки подряд, переходила на определенный интервал этого же столбца. К примеру, есть столбец I, в интервале столбца от 1 до 13 строк нужно макросу дать понять что со второй подряд пустой активной ячейкой она переносится на I15, в интервале от 15 до 26 строки активная ячейка переносится на I27 и т.д. Как такое сделать ?

[VictorM]

при нахождении второй пустой ячейки подряд, переходила на определенный интервал этого же столбца

И все? Найти можно, перейти можно. А когда все это заканчивается, по какому критерию?
Или так весь столбец проверять?

[R Dmitry]

Dim a As Byte
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r&, c As Byte
If Target.Column <> 9 Then a = 0: Exit Sub
If Target.Row < 14 Then
r = 14
ElseIf Target.Row < 27 Then
r = 27
ElseIf Target.Row < 40 Then
r = 40
Else: r = 1
End If
If Target.Value = 0 Then
c = 1
a = a + c
If a > 1 Then Cells(r, 9).Activate: a = 0
Else
a = 0
End If
End Sub

примерно так, прописано три условия, остальные по аналогии
в модуль листа
R Dmitry

[Inventor_S]

Сообщение от R Dmitry

примерно так, прописано три условия, остальные по аналогии
в модуль листа
R Dmitry

почти то что надо, но нужно чтобы активная ячейка перемещалась по вышеописанному интервалу.
Объясню для чего я все это хочу ... строчки в столбце будут заполнятся числами вручную ... и бывает так что в интервале столбца 1-го и 2-го числа (I2:I13), в интервале 2-го и 3-го, 3-го и 4-го числа и т.д. не все строчки заполняются числами, остаются пустые ячейки. И чтобы быстро переходить с одного интервала (I2:I13) на второй (I15:I26), со второй на третий и так по порядку хочу найти макрос который работал по какому-то критерию - в данном случае у меня идея с активной ячейкой, которая заполняет пустую строчку в столбце числом (т.е. человек заполняет), переходит на другую ячейку вниз, находит снова пустую ячейку, и если не заполнив ее числом и перейдя снова вниз на еще одну строчку и найдя там пустую ячейку, переходит на другой интервал. Как такое реализовать ?

[R Dmitry]

а интервал всегда одинаковый?

[Inventor_S]

да, одинаковый, такой как в примере...

[R Dmitry]

сделаю завтра, сегодня занят
Dim a As Byte

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r&, lr&, c As Byte
If Target.Column <> 9 Then a = 0: Exit Sub
lr = Target.Row
If lr < 14 Then
r = 14
ElseIf lr < 27 Then: r = 27
ElseIf lr < 40 Then
r = 40
Else: r = 2
End If
If Cells(lr - 1, 9).Value = 0 Then
c = 1
a = a + c
If a > 1 Then Cells(r, 9).Activate: a = 0
Else
a = 0
End If
End Sub
завтра подумаю над диапазонами

[Inventor_S]

ok, спасибо за помощь, земляк буду ждать результата ...

[EugeneS]

можно сделать, например, так, см. вложение

[Inventor_S]

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

можно сделать, например, так, см. вложение

да, это то что нужно! спасибо за помощь ! все работает и так как по моей задумке...