Como refescar valores de una pagina de excel sin usar F9. De VBA?

tengo un archivo de excel que se encarga de recoger datos de un sistema de producción continuo, pero se refrescan los valores de la pagina con F9. Necesito realizar una macro que me permita refrescar los valores de la pagina automaticamente cada cierto tiempo y dependiendo de los valores que tenga en algunas celda pueda emitir un sonido o alarma. La macro debe correr en segundo plano. He usado el siguiente codigo pero me devuelve el mismo valor y solo cambia cuando hago F9. Ah y no corre automaticamente. Soy nuevo en esto. Gracias de ante mano.

Sub tiempo()
Application.OnTime Now + TimeValue("00:00:02"), "Alarma"
End Sub
Sub Alarma()
x = 0
I = 0
For I = 0 To 2
Workbooks("CALCULO DE PRODUCCION RV.01.xls").Activate
Sheets("CALCULO").Select
Workbooks("CALCULO DE PRODUCCION RV.01.xls").RefreshAll
Range("k37").Select
x = Range("k37").Value
If x > 20100 Then
h = 0
     For h = 0 To 10
     Beep
     Beep
     Beep
    Next h
     Else
        For t = 0 To 10
        Beep
       Beep
       Beep
    Next t
End If
Next I
End Sub

Añade tu respuesta

Haz clic para o