окрасить ячейку

[Romuald]

Добрый день!
Подскажите,пожалуйста макрос:
Если вколонке F(начиная с F25 ) будет какое-нибудь значение (будет не пустой) то ячейку в колонке "J" окрасить цветом и появится мессадж (Zapolnite jacheiku) и пока не будет заполнена ячейка, дальше не пускать заполнять ничего

[SAS888]

Примерно так:

Sub MyMacr()

    Dim i As Long, x As String
    For i = 25 To Range("F65536").End(xlUp).Row
        If IsEmpty(Cells(i, "F")) Then
Metka:      x = InputBox("Insert value", "Zapolnite jacheiku")
            If x = "" Then GoTo Metka
            Cells(i, "F") = x
        Else:
            Cells(i, "J").Interior.ColorIndex = 4
        End If
    Next

End Sub

[Romuald]

SAS888 Спасибо !!

Почему-то нет сообщения и как привязать к листу что-бы автоматически при появлении в F числа, в J окрашивалось и шло сообщение и пока не впишу в J , блокируется ввод в другие ячейки

[SAS888]

Посмотрите вложение. Правильно ли я Вас понял?
При активации листа просматриваются все ячейки диапазона "F25:F65536", и если в соответствующей ячейке столбца "J" пусто, то будет предложено ввести значение.
Такое же предложение будет и при изменении значения ячейки в нашем диапазоне.