Мелочи вызывают затруднение

[Freddy19]

есть генератор случайных чисел на листе2 с D4 по M4
на 1 листе в D35 меняються значения тоже с D4 по M4 первого листа только
Когда совпадет не нулевое значение D35 и единичное значение в генираторе СЛЧисел то вызов формы.

[Freddy19]

Сообщение от аналитика

сначала, конечно, надо это сделать
SpinButton1.Min = 0

Тогда при таком значении и D35 должна быть пустой.
Ладно фиг с SpinButton1.Min = 0 сойдет и так

[аналитика]

dim r as range

For each r in Sheets(2).Range("D4:M4")
   If Sheets(1).Range("D35").Text <> 0 And r.text = 1 Then
      FormAvariyDM.Show
   End If
next r

зачем используешь св-во Text, тебе критично как ячейка отображается?

[Freddy19]

Сообщение от аналитика

dim r as range

For each r in Sheets(2).Range("D4:M4")
   If Sheets(1).Range("D35").Text <> 0 And r.text = 1 Then
      FormAvariyDM.Show
   End If
next r

зачем используешь св-во Text, тебе критично как ячейка отображается?

Ну а как без этого свойства обратиться к содержимому ячейки?

[аналитика]

.value - это св-во по умолчанию, т.е. его не обязательно писать, напр., твой код:
If Sheets(1).Range("D35") <> 0 And r = 1 Then

или

If Sheets(1).Range("D35").value <> 0 And r.value = 1 Then

[Freddy19]

dim r as range

For each r in Sheets(2).Range("D4:M4")
If Sheets(1).Range("D35").Text <> 0 And r.text = 1 Then
FormAvariyDM.Show
End If
next r

не понимает единицу. реагирует на ненулевые значения D35 только

[Freddy19]

Сообщение от аналитика

.value - это св-во по умолчанию, т.е. его не обязательно писать, напр., твой код:
If Sheets(1).Range("D35") <> 0 And r = 1 Then

или

If Sheets(1).Range("D35").value <> 0 And r.value = 1 Then

Хоть так хоть так условие не работает, реагирует только на D35

[аналитика]

это вот попробуй
val(r.value) = 1
, если не получится, прицепляй файл

[аналитика]

а может все нормально, просто вероятность генератору с непрерывным законом распределения (или он у тебя все-таки дискретный) попасть в единицу теоретически равна нулю

[Freddy19]

в генераторе частенько попадаються 1