Условие для цвета

[motorway]

Попробуйте следующий код:
там переменная nach обозначает строку, с которой начинается проверка.
Вы лучше знаете, чему она должна быть равна, но НЯП, либо i, либо для каждого месяца это строка, в которой первое число для данного месяца.
То есть задайте ее соотв. вашему файлу.

Private Sub CommandButton1_Click()

Dim i As Integer
For i = 1 To 444
            
If Cells(i, 27).Text = ComboBox1.Text Then
' nach - начало строки, с которой проверять
for j=nach to nach+31
If Cells(j+30, 14).Interior.Color <> 65535 Then
MsgBox " Инвентаризация не произведена.", 16, "Запрет ввода"
Exit Sub
Else
‘…
End If
next j
End If
Next
End Sub

[doober]

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

Если что-то не ясно, то дополню.

я правильно понял,что в этом столбце может быть лишь одна ячейка желтая,или вообще такой быть не может,если не прошла инвентаризация

[segail]

Добрый вечер Teslenko_EA
Color = 65522 Устанавливается другим кодом, и альтернативы для пользователя нет.

[segail]

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

я правильно понял,что в этом столбце может быть лишь одна ячейка желтая,или вообще такой быть не может,если не прошла инвентаризация

К сожалению нет. Пользователь может произвести инвентаризацию несколько раз, а может и каждый день, это его право. После инвентаризации на выбранную дату ячейка окрашивается в желтый цвет. (это код другой).
Может я заплутал, но мне кажется здесь все очень просто. Как Вы видите в коде есть условия, где постоянно выходят сообщения. Необходимо добавить еще одно сообщение (о чем говорилось выше)

[doober]

Понятно,надо выбирать максимальный день проверяемого месяца,и проверять ячейка желтая или нет?

[motorway]

Составьте четкое словесное описание алгоритма того, что должно делаться. Тогда будет понятнее.
Я понял задачу так:
для каждой ячейки в диапазоне таком-то проверить в 30 ячейках другого диапазона (определяемого месяцем) наличие цвета. Или что-то не так?

[segail]

После начало условия нахождения месяца месяца If Cells(i, 27).Text = ComboBox1.Text Then(это будет первый день месяца) и перейти на столбец 14.(это первый день месяца)
а от него проверить все ячейки в низ 31 на цвет. Если нет ячеек желтого цвета то сообщение, если есть то выполняется часть года (см выше)

    If MsgBox("ВНИМАНИЕ" & vbCrLf & vbCrLf & "Списание нефтепродуктов в пределах норм естественной убыли до установления факта недостачи запрещается." & vbCrLf & vbCrLf & "Списание производится только после выполнения инвентаризации и определения количества выявленных недостач." & vbCrLf & vbCrLf & "Данные инвентаризации и списание документально должны быть зафиксированы и заверены ответственными лицами, в противном случае списание является не действительным." & vbCrLf & vbCrLf & "Показателем проведения инвентаризации является ячейка окрашенная в желтый цвет." & vbCrLf & vbCrLf & "На данный момент производится списание объема недостачи в количестве " & TextBox1.Text & " л. на " & ComboBox1.Text & " месяц.   " & vbCrLf & vbCrLf & "Продолжить ввод данных?", _ 
vbYesNo Or 48, "Ввод данных разрешен") = vbYes Then GoTo wyhod
        Exit Sub
wyhod:
        Cells(i + 35, 21).Value = CDbl(TextBox1.Text)

Может я ошибаюсь

[motorway]

Попробуйте так: (если это не то, что нужно, то, значит, слишком заумно написали )

Private Sub CommandButton1_Click()

Dim i As Integer
For i = 1 To 444
            
If Cells(i, 27).Text = ComboBox1.Text Then
' nach - начало строки, с которой проверять
for j=i to i+31
If Cells(j+30, 14).Interior.Color <> 65535 Then
MsgBox " Инвентаризация не произведена.", 16, "Запрет ввода"
Exit Sub
Else
'...
End If
next j
End If
Next
End Sub

[segail]

Motorway я попробую, завтра сообщу. Спасибо Всем за терпение.

[doober]

Учтите такой фактор,как разное количество дней в месяце,особенно февраль,высокосный год
Вам надо не отсчет дней делать,а проверять на последнюю дату соответствующего месяца
прибавление 31 не всегда верно