Переход из одной ячейки в другую

[quarkshark]

Здесь использован макрос используя условие IF и сделано только первый столбец с переходом после его окончания во второй столбец.

После изменения ячейки В2 и нажатия ENTER становится активной ячейка В3, и т.д., при изменении ячейки В6 становится активной ячейка С2.

Ввод осуществляется по столбцам.

Первый столбец В2:В6, второй столбец С2:С6, и т.д.
После ввода В6 становится активной ячейка С2, и т.д., после ввода С6 становится активной ячейка D2.

Как сделать это в цикле (макрос)?
Можно ли сделать чтобы переход по такой схеме осуществлялся просто при нажатии ENTER в области ячеек (сейчас переход происходит если изменить значение ячейки и нажать ENTER)?

[quarkshark]

Код макроса (на 2-а столбца с переходом на 3-ий)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B2].Address Then [B3].Select
If Target.Address = [B3].Address Then [B4].Select
If Target.Address = [B4].Address Then [B5].Select
If Target.Address = [B5].Address Then [B6].Select
If Target.Address = [B6].Address Then [C2].Select
If Target.Address = [C2].Address Then [C3].Select
If Target.Address = [C3].Address Then [C4].Select
If Target.Address = [C4].Address Then [C5].Select
If Target.Address = [C5].Address Then [C6].Select
If Target.Address = [C6].Address Then [D2].Select
End Sub

[SAS888]

В модуль нужного листа поместите код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static r As Long
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 7 And r = 6 Then
        Application.EnableEvents = False
        Target.Offset(-5, 1).Select
        Application.EnableEvents = True
    End If
    r = Target.Row
End Sub

[quarkshark]

Спасибо SAS888! То что было нужно!