¿Como poner una alarma de aviso en excel?

Hola Roger,

Suponiendo que la cantidad total de producto la calculas mediante una
formula en la celda [A1] y que la cuota es 10000, prueba hacer lo siguiente:

1) Haz clic-derecho sobre el nombre de tu hoja en una de las pestañas
de la parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba introducir cambios en la hoja para que [A1] muestre 8000,
9000, 10000 o mas de 10000.

Nota: los macros deben estar habilitados para que esta solucion funcione.

Saludos,
KL

'--Inicio Codigo--
Private Sub Worksheet_Calculate()
Cuota = 10000
Select Case Me.Range("A1").Value
Case Cuota * 0.8
MsgBox "80% de la cuota alcanzado", vbInformation
Case Cuota * 0.9
MsgBox "90% de la cuota alcanzado", vbInformation
Case Cuota
MsgBox "la cuota esta agotada", vbExclamation
Case Is > Cuota
MsgBox "¿Pero qué pasa, tío?" & Chr(13) _
& "¿Que no me estas haciendo caso o qué?" _
, vbCritical
End Select
End Sub
'--Fin Codigo--
.

En sig direccion hay un muy buen ejemplo de una funcion con sonido
y como usarlaun saludo.
http://j-walk.com/ss/excel/tips/tip87.htm

Leonel

"KL" escribió:

Hola Roger,

Suponiendo que la cantidad total de producto la calculas mediante una
formula en la celda [A1] y que la cuota es 10000, prueba hacer lo siguiente:

1) Haz clic-derecho sobre el nombre de tu hoja en una de las pestañas
de la parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba introducir cambios en la hoja para que [A1] muestre 8000,
9000, 10000 o mas de 10000.

Nota: los macros deben estar habilitados para que esta solucion funcione.

Saludos,
KL

'--Inicio Codigo--
Private Sub Worksheet_Calculate()
Cuota = 10000
Select Case Me.Range("A1").Value
Case Cuota * 0.8
MsgBox "80% de la cuota alcanzado", vbInformation
Case Cuota * 0.9
MsgBox "90% de la cuota alcanzado", vbInformation
Case Cuota
MsgBox "la cuota esta agotada", vbExclamation
Case Is > Cuota
MsgBox "¿Pero qué pasa, tío?" & Chr(13) _
& "¿Que no me estas haciendo caso o qué?" _
, vbCritical
End Select
End Sub
'--Fin Codigo--
..