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

[Ogeris]

Добрый день, друзья!

Есть акт списания полуфабрикатов. Проблема в том, что часто при его заполнении не указывают причину списания, оставляя только кол-во в столбцах C,E,G.

Как можно сделать так, чтобы, если они в какой-либо строке поставили кол-во в каком-либо из столбцов C,E,G, и не указав причину списания в столбце I продолжили писать где-либо ещё, то выходило бы окно "Укажите причину списания!" до тех пор, пока они её не укажут.

Спасибо!

[Aleksandr H.]

как вариант, можем "прыгать" в столбец І после изменений столбцов СЕG

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 Cells(r, 1) <> ""
        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

[evg_m]

Как можно сделать так, чтобы, если они в какой-либо строке поставили кол-во в каком-либо из столбцов C,E,G, и не указав причину списания в столбце I продолжили писать где-либо ещё,

(только как идея) Или сделать наоборот
НЕ ДАВАТЬ заполнять CEG (например защита листа/ячеек) до тех пор пока не будет заполнен соответствующий I (причина ).
А при попытке все же заполнить(тыкнуть) сообщить о причинах такого поведения (потребовать заполнить причину).

[Ogeris]

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

как вариант, можем "прыгать" в столбец І после изменений столбцов СЕG

У меня ничего не происходит :-(

[Aleksandr H.]

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

У меня ничего не происходит :-(

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

[Serge_Bliznykov]

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

У меня ничего не происходит :-(

либо макросы выключены.
либо макрос не туда вставили.


p.s. ups! Опоздал!

[IgorGO]

а так?

[Ogeris]

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

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

Очень круто получилось! Спасибище!

[Ogeris]

Открываю файл-пример, в нем все работает, нажимаю Alt+F11, открываю код, который находится в лист1, копирую его, перехожу в свой рабочий файл с кучей других листов, захожу в нужный мне лист, копирую туда код, не работает :-( В чём может быть причина? Макросы включены

[IgorGO]

причина в файле, в чем конкретно - можно сказать, посмотрев содержимое файла