Foros del Web » Programas, Hardware y Redes » Ofimática »

Ventanas de alarmas en excel

Estas en el tema de Ventanas de alarmas en excel en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 03/06/2009, 09:01
 
Fecha de Ingreso: febrero-2007
Mensajes: 138
Antigüedad: 7 años, 2 meses
Puntos: 0
Ventanas de alarmas en excel

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!!!
  #2 (permalink)  
Antiguo 03/06/2009, 09:13
Avatar de Taribo007  
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 6 años, 8 meses
Puntos: 18
Respuesta: Ventanas de alarmas en excel

A ver si puedes adaptar este ejemplo de access:

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

Un saludo
  #3 (permalink)  
Antiguo 03/06/2009, 09:13
Avatar de RatonesPelones  
Fecha de Ingreso: diciembre-2004
Ubicación: Dónde las balas se han escondido
Mensajes: 1.533
Antigüedad: 9 años, 3 meses
Puntos: 85
Respuesta: Ventanas de alarmas en excel

Creo que tiene que hacerse mediante un script de vb. revisa esa posibilidad
__________________
_____________________________
¡¡¡Porque el futuro está pelón!!! :pensando:
  #4 (permalink)  
Antiguo 04/06/2009, 14:00
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 10 años, 4 meses
Puntos: 10
Respuesta: Ventanas de alarmas en excel

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
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #5 (permalink)  
Antiguo 08/06/2009, 17:28
Avatar de scabral  
Fecha de Ingreso: abril-2008
Ubicación: Argentina
Mensajes: 93
Antigüedad: 6 años
Puntos: 3
Respuesta: Ventanas de alarmas en excel

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.
  #6 (permalink)  
Antiguo 27/08/2010, 20:39
 
Fecha de Ingreso: diciembre-2008
Mensajes: 13
Antigüedad: 5 años, 4 meses
Puntos: 0
Respuesta: Ventanas de alarmas en excel

Cita:
Iniciado por scabral Ver Mensaje
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
  #7 (permalink)  
Antiguo 28/08/2010, 11:06
Avatar de RatonesPelones  
Fecha de Ingreso: diciembre-2004
Ubicación: Dónde las balas se han escondido
Mensajes: 1.533
Antigüedad: 9 años, 3 meses
Puntos: 85
Respuesta: Ventanas de alarmas en excel

EDEGEGROUP, creo que deberías leer las normas del foro. No se permite revivir temas viejos...
__________________
_____________________________
¡¡¡Porque el futuro está pelón!!! :pensando:
  #8 (permalink)  
Antiguo 28/08/2010, 13:36
Avatar de BrujoNic
Moderador
 
Fecha de Ingreso: noviembre-2001
Ubicación: Costa Rica/Nicaragua
Mensajes: 15.072
Antigüedad: 12 años, 5 meses
Puntos: 381
Respuesta: Ventanas de alarmas en excel

Cerrado.

Lee Las Políticas de Foros del Web.
__________________
Orgulloso de ser latino y demostrar que si uno trata de escribir bien, los demás comprenderán lo que respondo.
¿Fácil verdad?
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 23:59.
SEO by vBSEO 3.3.2