Aviso sonoro al cumplirse una condición

[RGA123]

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

[Toldeman]

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

[RGA123]

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]

[Toldeman]

Hola.

Donde estas pegando el código?.

Un saludo.

[jose71]

Hola,

Prueba el adjunto y nos comentas..

Un saludo

Beep_Ibex (1).rar

[RGA123]

Hola,

Te lo mando a ver si lo he hecho bien... igual me he equivocado en algo...

Gracias.

Beep_MODIFICADO.xls

[RGA123]

Hola Jose71,

He probado el archivo pero no encuentro ninguna diferencia con el que te mandé... Igual me has mandado el que no era...

Un saludo.

[JAI2009]

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

[jose71]

Hola,

No, es el fichero modificado, has revisado el código ????

Abre el editor vba (alt + f11), Modulo 2 y la llamada en la hoja Ultimo.

Saludos

[RGA123]

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

[JAI2009]

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