Если не заполнена причина списания, не разрешать заполнять дальше

[Serge_Bliznykov]

Ogeris, попробуйте сохранить книгу (в формате, где макросы разрешены) и закройте редактор макросов.

[Ogeris]

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

Ogeris, попробуйте сохранить книгу (в формате, где макросы разрешены) и закройте редактор макросов.

Не помогает :-(

Вот файл

[Aleksandr H.]

Ogeris, повторюсь еще раз

Сообщение от Aleksandr H.

Значит код не в том модуле

код должен быть в модуле листа

[Ogeris]

Сообщение от Aleksandr H.

Ogeris, повторюсь еще раз

код должен быть в модуле листа

Он у меня в модуле листа, "Списания в теч дня".
Сейчас обнаружил, что он работает, но только в строке 5 (((

[IgorGO]

проверяйте

[Ogeris]

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

проверяйте

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

[Aleksandr H.]

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

Он у меня в модуле листа, "Списания в теч дня".
Сейчас обнаружил, что он работает, но только в строке 5 (((

А незачем было список полуфабрикатов разделять пустой строкой.

[Ogeris]

Сообщение от Aleksandr H.

А незачем было список полуфабрикатов разделять пустой строкой.

Она там нужна :-(

[Aleksandr H.]

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

Она там нужна :-(

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Integer
    r = 5
    If Target.Column = 9 Then Exit Sub
    If Target.Column = 3 Or Target.Column = 5 Or Target.Column = 7 Then
    Do While r <> Cells(Rows.Count, 1).End(xlUp).Row
        If (Cells(r, "C") <> "" Or Cells(r, "E") <> "" Or Cells(r, "G") <> "") _
        And Cells(r, "I") = "" Then
        Cells(r, "I").Select
        End If
        r = r + 1
    Loop
    End If
End Sub

[Ogeris]

Сообщение от Aleksandr H.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Integer
    r = 5
    If Target.Column = 9 Then Exit Sub
    If Target.Column = 3 Or Target.Column = 5 Or Target.Column = 7 Then
    Do While r <> Cells(Rows.Count, 1).End(xlUp).Row
        If (Cells(r, "C") <> "" Or Cells(r, "E") <> "" Or Cells(r, "G") <> "") _
        And Cells(r, "I") = "" Then
        Cells(r, "I").Select
        End If
        r = r + 1
    Loop
    End If
End Sub

УРА! ЗАРАБОТАЛО! СПАСИБИЩЕ!!!