Ventanas de alarmas en excel

[glory82]

Hola!!

Tengo un archivo de excel en el cual se ingresan datos de horainicio y supuesto fin de llenado de tanques. Necesito que cuando se vaya a cumplir la hora de fin, aparezca una ventana de alarma indicando que ya va a ser hora fin.

Como puedo hacer esto?

Gracias en lo que me puedan ayudar!!!

[Taribo007]

A ver si puedes adaptar este ejemplo de access:

http://elmundomagicodeltaribo.blogsp...ma-sonora.html

Un saludo

[RatonesPelones]

Creo que tiene que hacerse mediante un script de vb. revisa esa posibilidad

[Pablus00]

Hola, en cuanto a ventana emergente si es necesario visual, pero si no manejas ese lenguaje, podes hacer una celda cualquiera con una funcion condicional, ej =SI(A1>50;"LLENO";"VACIO") y luego complementarlo con un formato condicional que dicha celda se ponga con fondo rojo rojo y con letras mas grandes cuando se cumpla la misma condicion, saludos

[scabral]

Debes utilizar ONTIME.

Crea un módulo en tu hoja excel y coloca lo siguiente:

Código:

Public HoraAlarma As Double
Const Rutina = "Avisar"

Sub StartTimer()
    HoraAlarma = Range("E9")
    Application.OnTime EarliestTime:=HoraAlarma, Procedure:=Rutina, Schedule:=True
End Sub

Public Sub Avisar()
    'Controlar hora
    If Now() >= HoraAlarma Then
        MsgBox "El tanque xxxxx está por finalizar su llenado.", vbOKOnly + vbCritical, "LLenado de Tanque"
        StopTimer
    Else
        StartTimer  ' Recomienza
    End If
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=HoraAlarma, Procedure:=Rutina, Schedule:=False
End Sub

En tu hoja de cálculo usas:

B1: La hora final de llenado
B2: Minutos de antelación de la alarma
B3: =NSHORA(HORA(B1);MINUTO(B1)-B2;SEGUNDO(B1))

Activas la función llamándola con:

Código:

Call StartTimer()

Espero te sirva

En un botón o similar

Espero te sirva.

[EDEGEGROUP]

Iniciado por scabral

Debes utilizar ONTIME.

Crea un módulo en tu hoja excel y coloca lo siguiente:

Código:

Public HoraAlarma As Double
Const Rutina = "Avisar"

Sub StartTimer()
    HoraAlarma = Range("E9")
    Application.OnTime EarliestTime:=HoraAlarma, Procedure:=Rutina, Schedule:=True
End Sub

Public Sub Avisar()
    'Controlar hora
    If Now() >= HoraAlarma Then
        MsgBox "El tanque xxxxx está por finalizar su llenado.", vbOKOnly + vbCritical, "LLenado de Tanque"
        StopTimer
    Else
        StartTimer  ' Recomienza
    End If
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=HoraAlarma, Procedure:=Rutina, Schedule:=False
End Sub

En tu hoja de cálculo usas:

B1: La hora final de llenado
B2: Minutos de antelación de la alarma
B3: =NSHORA(HORA(B1);MINUTO(B1)-B2;SEGUNDO(B1))

Activas la función llamándola con:

Código:

Call StartTimer()

Espero te sirva

En un botón o similar

Espero te sirva.

Hola MAESTRO me podrias decir bien como se hace porque esto me va a servir pero no tengo ni idea de como hacerlo
desde ya muchas gracias

[RatonesPelones]

EDEGEGROUP, creo que deberías leer las normas del foro. No se permite revivir temas viejos...

[BrujoNic]

Cerrado.

Lee Las Políticas de Foros del Web.