диапазон больше пустоты

  • Автор темы segail
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

segail

#1
Здравствуйте. Подскажите.
По условию идет поиск диапазона. Диапазон найден количество ячеек 31. Как правильно создать условие после And, если хоть в одной ячейки данного диапазона имеется значение?
То есть диапазон больше пустоты.

Код:
Private Sub ComboBox2_Change()
Dim i As Integer
For i = 1 To 1000
If Cells(i, 27).Text = ComboBox1.Text Then
If Cells(i, 23).Value <> CDbl(ComboBox2.Text) And Sheets("Отчет").Cells(i, 27).Offset(, -1).Resize(31) > "" Then
If MsgBox("ВНИМАНИЕ", vbYesNo + vbExclamation, " ?????????????? ?????????") = vbYes Then
Module2.Change
End If
Else
Cells(i, 23).Value = CDbl(ComboBox2.Text): Module2.Foo
End If
End If
Next
End Sub
 
Статус
Закрыто для дальнейших ответов.