¿Como poner una alarma de aviso en excel?

29/04/2005 - 20:08 por Roger | Informe spam
Tengo un programa en excel donde registro la cantidad de un determinado
producto que recibo en un puerto, pero necesito que el programa me avise
mediante una alarma (que sea preferiblemente un sonido) cuando ya estoy a una
determinada cantidad de producto para llegar a la couta o cantidad final.
Hasta el momento he podido establecer el cambio de color de la celda pero
realmente necesito algo que llame más la atención como un cambio de sonido
por ejemplo.

Preguntas similare

Leer las respuestas

#1 KL
30/04/2005 - 00:45 | Informe spam
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--
.
Respuesta Responder a este mensaje
#2 Leonel
30/04/2005 - 04:31 | Informe spam
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--
..



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida