Codigo vba excel para rodar tipo em modo oculto, para eu poder deixar rodando e utilizando outras planilhas !

[Bruno Aragão]

Bom dia , Senhores!

 

Tenho uma planilha excel de verificação de moedas com api de 3 sites,  com um codigo vba simples que  vai me dar bepp quando chegar ao peço que quero!

 

O problema é que utilizo outras planilhas durante o dia  e esta acionando o beep sempre que troco de planilha ! Alguém sabe uma forma de executar isso que quero fazer e trabalhar nas minhas planilhas sem dar problema na macro com vba!

 

Segue o codigo!

 

Sub Preço() 'Se a sua rotina tiver outro nome aqui
    
    
    Set Target = Range("B1")
    Set Target1 = Range("B9")
    Set Target2 = Range("B8")
    Set cond = Range("B17")
    Set cond1 = Range("B18")
    Set cond2 = Range("B19")
    
If Target.Value >= cond.Value Then
Dim I

For I = 1 To 3 ' Loop 3 times.
 Beep ' Sound a tone.
Next I

End If

If Target1.Value >= cond1.Value Then

Dim j
 For j = 1 To 3 ' Loop 3 times.
 Beep ' Sound a tone.
Next j
End If

If Target2.Value <= cond2.Value Then

Dim m
 For m = 1 To 3 ' Loop 3 times.
 Beep ' Sound a tone.
Next m
End If

    Call timer
End Sub

Sub timer()
    Application.OnTime Now + TimeValue("00:00:10"), "Preço" 'não esqueça de editar aqui
End Sub