Проверка ячеек

[segail]

Здравствуйте
Подскажите почему проверяется на пустоту только первая ячейка столбца 26 а не все тридцать один Cells(i + j, 26).Value = ""

Private Sub CommandButton1_Click()
    
    Dim i, j As Integer
    
    For i = 1 To 1000
    For j = 1 To 31
        
    If Cells(i, 27).Text = ComboBox1.Text Then 
        If Cells(i + j, 26).Value = "" Then 
            MsgBox "????????", 16, "????????"
            Exit Sub
        End If
        End If
        Next
        Next
End Sub

[The_Prist]

Может потому, что у Вас после первой проверки выход из процедуры?

Exit Sub

[segail]

Здравствуйте.

Подскажите.
При клике по кнопке в разделе списание, необходимо проверить тридцать одну ячейку выбранного месяца (в данный иомент ячейка Cells(i, 27).Text декабрь месяц) перейдя на столбец 26 на пустоту. Если тридцать одна ячейка данного столбца 26 пустые, то выходит сообщение о запрете ввода, если там есть значения то выходит сообщение о разрешение ввода. При нажатие кнопки ДА разрешающего сообщения происходит выполнение кода Cells(i + 35, 21).Value = CDbl(TextBox1.Text) отталкиваясь от найденной ячейки Cells(i, 27).Text название месяца, необходимо ввести данные в Cells(i + 35, 21).Value данного месяца. При нажатие кнопки НЕТ данного сообщения, происходит просто выход.

Нахождение основной ячейки Cells(i, 27) месяц, происходит кодом Cells(i, 27).Text = ComboBox1.Text

Для того чтобы проверить код введите в столбец 26 значения.

Файл который прикреплен, почему то не выполняет то что я описал выше

[doober]

Не знаю так ,как просили

[segail]

Пока вроде работает.
З недели я :wall:
Благодарю Вас doober