проверка по времени

[Quik]

Добрый день
подскажите плиз как можно проверять значение через определенный промежуток времени?

например через 1 минуту
If [a1] > 50 Then МойМакрос

[SAS888]

Есть несколько вариантов. Можно использовать метод OnTime. А можно, например, так:

Sub TimeSet()
    Start = Timer
M1: Do While Timer < Start + 60: DoEvents: Loop
    Start = Timer: If [A1] > 50 Then myMacro: GoTo M1
End Sub

Sub myMacro(): MsgBox "A1 > 50": End Sub

Запустите макрос TimeSet". Это не что иное, как пауза в 60 секунд, по истечении которых будет проверено условие и, если нужно, запущен макрос "myMacro".

[Quik]

хнык( не получается(
значение в ячейку импортируется и обновляется без нажатия интер
наверно получается что при проверке условия значение не обновляется(

[SAS888]

Попробуйте ввести формулу, например, в ячейке "B1" напишите "=A1". Соответственно, в макросе измените адрес проверяемой ячейки на "B1".

[IgorGO]

выполните этот макрос как-то 1 раз, потом он будет срабатывать каждую минуту, пока книга открыта.

Sub РазВМинуту
  If [a1] > 50 Then МойМакрос
  Application.OnTime Now + TimeSerial(0,1,0), "РазВМинуту"
end sub

может так предполагалось?

Sub TimeSet()
    Start = Timer
M1: Do While Timer < Start + 60: DoEvents: Loop
    Start = Timer: If [A1] > 50 Then myMacro
    GoTo M1
End Sub

в исходном варианте при превой проверке, когда А1 <= 50, следующей строкой выполнялась End Sub и все на этом заканчивалось.