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

[segail]

Здравствуйте.
Подскажите как выполнить данный код правильно?
Нет определенности, на какой строчки i ячейка или ячейки или весь столбец 14 (31 ячеек, столбца 14 включительно), могут быть желтыми. Если не найдена ячейка желтого цвета выполняется данное условие. И если есть хоть одна ячейка желтого цвета, то выполняется другое условие.
Я думаю, что не правильно указан диапазон проверяемых ячеек Cells(i+30, 14)

Private Sub CommandButton1_Click()

Dim i As Integer
For i = 1 To 444
            
If Cells(i, 27).Text = ComboBox1.Text Then

If Cells(i+30, 14).Interior.Color <> 65535 Then
MsgBox " Инвентаризация не произведена.", 16, "Запрет ввода"
Exit Sub
Else
‘…
End If
End If
Next
End Sub

[motorway]

А в чем ошибка, что не так работает?

[doober]

Проверка вашего 14 столбца с первой по 444 строку
Если есть желтая ячейка возвращает True

Function Желтый () As Boolean

 Set ra = Range("N1:N" & 444)
   For Each cell In ra.Cells
      
       
        If cell.Interior.Color = 65535 Then
   
     
    Желтый = True: Exit Function
    
        
     End If
       
    Next cell
    
    
     Желтый = False
    
End Function

Проверка MsgBox Желтый

[segail]

Попробую объяснить по своему.

Cells(i, 27).Text

это название месяца, текст которого должен совпадать с

ComboBox1.Text

. При выполнение данного условия попадаем на нужный месяц.
Далее в действие вступает другое условие. От найденной

Cells(i, 27).Text

переходим на столбец 14 и проверяем 31 ячейку на желтый цвет

If Cells(i+30, 14).Interior.Color <> 65535 Then

если есть хоть одна ячейка желтого цвета выполняется нужный код, а если нету то выходит сообщение.

Необходимо проверять 31 ячейку на желтый цвет нужного месяца, а не все 444 ячейки

[doober]

А можно одним глазом глянуть на лист,почему именно 31 ячейка,а если декабрь,тогда 32.
Непонятно,а если
Cells(i, 27).Text = ComboBox1.Text
сопадет при I=100
Может номер ячейки привязать к проверяемому месяцу.
Надо файл смотреть

[segail]

Файл объемный. Могу скинуть лично Вам. Если разберетесь.
А 31 ячейка, значит я ошибся, для этого и зашел на форум со своим вопросом. Как я понял надо брать 32. У меня не зависимо от месяца на каждый месяц 31 ячейка.

[segail]

Привязать нужно к Cells(i, 27).Text = ComboBox1.Text, а проверять 14 столбец.
А как не знаю

[motorway]

Скорее всего, нужно сделать еще один цикл с другой переменной - например, j

[doober]

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

Привязать нужно к Cells(i, 27).Text = ComboBox1.Text, а проверять 14 столбец.
А как не знаю

Киньте файл,а то кофе уже закончилось,гадать нечем

[segail]

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

Скорее всего, нужно сделать еще один цикл с другой переменной - например, j

Как сделать? Код есть смотрите выше. Как его исправить?