Jump to content

Aviso sonoro al cumplirse una condición


RGA123

Recommended Posts

Hola a todos, tengo una duda a ver si alguien puede ayudarme,

Tengo una hoja de cálculo vinculada a una base de datos online (concretamente con cotizaciones de Bolsa en tiempo real), y la hoja va haciendo unos cálculos.

Mi problema es que si estoy haciendo otra cosa, no me entero de cuando las cotizaciones superan las esperadas.

Es decir que por ejemplo cuando la columna D (que se actualiza automáticamente cada minuto a online) supera a la cantidad de la cantidad de la columna B (precio actual supera al previsto y por lo tanto al de venta) que me avise de ello con algún beep sonoro o música…

Mi pregunta es: ¿hay alguna forma de que Excel haga esto?

Muchas gracias.

Beep_Ibex.xls

Link to comment
Share on other sites

Hola.

Prueba abriendo el editor vba (alt + f11) y en la hoja DATOS pega este codigo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Value > Target.Offset(-2, 0).Value Then _
MsgBox "Aviso"
End Sub

Un saludo.

Edito:

Para aviso sonoro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Value > Target.Offset(-2, 0).Value Then _
Beep
End Sub

Link to comment
Share on other sites

Hola Toldeman,

Muchas gracias por tu contestación, lo he intentado pero dá un error, me dice:

[COLOR=#FF0000]Private Sub Worksheet_Change(ByVal Target As Range[/COLOR])
If Target.Column <> 4 Then Exit Sub
If Target.Value > Target.Offset(-2, 0).Value Then _
MsgBox "Aviso"
End Sub[/CODE]

Y Me Dice: Error de compilación "Se ha detectado un nombre ambiguo:Worksheet_Change"

No sé como se podría arreglar. Un abrazo, gracias por tu ayuda.

[CODE]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Value > Target.Offset(-2, 0).Value Then _
Beep
End Sub[/CODE]

Link to comment
Share on other sites

Hola Rga 123

Me parece una hoja pero que muy buena para los que pretebndemos ganar algo con la bolsa.

Mi duda es la siguiente.

Si la columna D se actualiza cada minuto por las variaciones del Ibex

y la columna B es un % de subida jamas alcanzará la D a la B para que suene y de te la alarma?

Es lo que entiendo

Espero que los gurus del foro te iluminen y puedas terminr tu hoja y me pueda servir, para poder hacerme rico o pobre

Saludos

Link to comment
Share on other sites

Hola Jose,

He modificado el archivo ya que la columna de "salida óptima" siempre estaba por encima de la columna "último", debido a la fórmula matemática que lleva y por lo tanto nunca habría aviso sonoro al cumplirse la condición. He incluido una columna en la que sí es posible que esté por debajo del valor que hay en la columna "último".

No soy un experto en excel, tan solo tengo nivel medio y no he conseguido ver el Modulo 2 y la llamada en la hoja Ultimo...

¿Cómo lo puedo ver?,

Gracias

Beep_M.xls

Link to comment
Share on other sites

Hola RGA 123

Yo tampoco he podido el Módulo 2

Cuando trato de modificar un numero en la columna <C Riesgo> siempre pone Error en Compilacion Error en sintaxis.

Espero y deseo que nuestra buen amigo Jose71 nos pueda arregrarlo

Un saludo

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy