Проверить тридцать одну ячейку, если меньше нуля.

[segail]

Здравствуйте.
Необходимо проверить тридцать одну ячейку на меше нуля, если хоть в одной ячейки меньше нуля.
Создаю условие по нахождению нужной ячейки.
If Sheets("Отчет").Cells(i, 27).Text = UserForm4.ComboBox1.Text Then 'Условие по совпадению текстовых
Затем от найденной ячейки
Cells(i, 27)
Переходим по строке в столбец 18 и создаем переменную
d = Sheets("Отчет").Cells(i, 18)
Данная переменная обозначает от Cells(i, 18) до 31
For d = Sheets("Отчет").Cells(i, 18) To 31 'На основание условия выше переменная d будет считаться начальной ячейкой отсчета
Затем создаем условие на проверку тридцать одной ячейки
If d < 0 Then 'Проверяются все тридцать одна ячейка. Если хоть одно значение меньше 0.
Что то не проверяется…

Sub Test()
    Dim i As Integer
    For i = 1 To 450
        If Sheets("Отчет").Cells(i, 27).Text = UserForm4.ComboBox1.Text Then 'Условие по совпадению текстовых значений.
            Dim d As Integer
            For d = Sheets("Отчет").Cells(i, 18) To 31 'На основание условия выше переменная d будет считаться начальной ячейкой отсчета 
                If d < 0 Then 'Проверяются все тридцать одна ячейка. Если хоть одно значение меньше 0.
                    Sheets("Отчет").Cells(i, 30).Resize(31).Value = CSng(UserForm4.ComboBox2.Text)
                    MsgBox "...", 64, "Информационное сообщение"
                End If
            Next
        End If
    Next
End Sub

[motorway]

Что-то не пойму, зачем здесь вложенный цикл. И что конкретно не получается? Проверить, большее ли 0 в ячейке число?

[segail]

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

Что-то не пойму, зачем здесь вложенный цикл. И что конкретно не получается? Проверить, большее ли 0 в ячейке число?

Если от Cells(i, 18) до тридцать одной ячейки в данном диапазоне будет хоть одно значение меньше нуля..

[IgorGO]

Если от Cells(i, 18) до тридцать одной ячейки в данном диапазоне будет хоть одно значение меньше нуля..

1. в диапазоне Cells(i, 18) - одна ячейка
2. "от Cells(i, 18) до тридцать одной ячейки" - в какую сторну отсчитывавать от Cells(i, 18)?
3. саму Cells(i, 18) проверять?
4. и наконец, "будет хоть одно значение меньше нуля.." - то что? делать

[segail]

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

1. в диапазоне Cells(i, 18) - одна ячейка
2. "от Cells(i, 18) до тридцать одной ячейки" - в какую сторну отсчитывавать от Cells(i, 18)?
3. саму Cells(i, 18) проверять?
4. и наконец, "будет хоть одно значение меньше нуля.." - то что? делать

Можно так но.
При данном условие проверяется одна ячейка.
Sheets("Отчет").Cells(i, 18).Value < 0Необходимо проверить тридцать одну от данной ячейки. Cells(i, 18).Value включительно и 30 в низ.

Sub Test()
    Dim i As Integer
    For i = 1 To 450
        If Sheets("Отчет").Cells(i, 27).Text = UserForm4.ComboBox1.Text Then 'Условие по совпадению текстовых значений.
            If Sheets("Отчет").Cells(i, 18).Value < 0 Then 'Проверяются все тридцать одна ячейка. Если хоть одно значение меньше 0.
                Sheets("Отчет").Cells(i, 30).Resize(31).Value = CSng(UserForm4.ComboBox2.Text)
                MsgBox "...", 64, "Информационное сообщение"
            End If
        End If
    Next
End Sub

[segail]

4. и наконец, "будет хоть одно значение меньше нуля.." - то что? делать

Выполнить оператор

                Sheets("Отчет").Cells(i, 30).Resize(31).Value = CSng(UserForm4.ComboBox2.Text)
                MsgBox "...", 64, "Информационное сообщение"

[segail]

1. в диапазоне Cells(i, 18) - одна ячейка

На основание условия
If Sheets("Отчет").Cells(i, 27).Text = UserForm4.ComboBox1.Text Thenпереходим на условие
If Sheets("Отчет").Cells(i, 18).Value < 0 Then
Данное условие я обозначил красным так как оно не может проверить 31 одну ячейку

[IgorGO]

Sub Test()
    Dim i As Long
    For i = 1 To 450
        If Sheets("Отчет").Cells(i, 27).Text = UserForm4.ComboBox1.Text Then 'Условие по совпадению текстовых значений.
            If LessThen0(i) Then 'Проверяются все тридцать одна ячейка. Если хоть одно значение меньше 0.
                Sheets("Отчет").Cells(i, 30).Resize(31).Value = CSng(UserForm4.ComboBox2.Text)
                MsgBox "...", 64, "Информационное сообщение"
            End If
        End If
    Next
End Sub


Function LessThen0(rw As Long) As Boolean
  Dim r As Long
  LessThen0 = True
  For r = rw To 30 + rw
    If Sheets("Отчет").Cells(r, 18).Value < 0 Then Exit Function
  Next
  LessThen0 = False
End Function

[segail]

А без функции нельзя.
Потому что сам код сложный, это только часть кода. В него входят и функции и модули и переменные.
Свойство Resize как вставляет так и удаляет значения диапазона. А для проверки нет ни каких свойств?

[IgorGO]

  With Sheets("Отчет")
    If WorksheetFunction.Min(.Range(.Cells(i, 18), .Cells(i + 30, 18))) < 0 Then
      Sheets("Отчет").Cells(i, 30).Resize(31).Value = CSng(UserForm4.ComboBox2.Text)
      MsgBox "...", 64, "Информационное сообщение"
    End If
  End With