Página 1 de 1
Alertas con Msgbox
Publicado: Lun Jul 20, 2020 8:29 pm
por josele80
Buenos dias, estoy con un proyecto de
descargar programas personal de un formulario que guarda mediante un botón los datos a otra hoja del mismo archivo, hasta aqui perfecto, mi duda es, si en mi base de datos ( hoja del mismo archivo llamada base de datos) dejo algo pendiente de hacer a las 2 horas, no logro crear una alerta con msgbox de forma automática, ya tengo un reloj que actualiza y que me guarda la hora que tiene que avisarme, podeis ayudarme? Estoy bloqueado gracias de antemano
Re: Alertas con Msgbox
Publicado: Mar Jul 21, 2020 7:51 am
por PepeOooSevilla
Hola.
Te damos la bienvenida al Foro y, por favor, no dejes de leer la
Guía de supervivencia.
En el archivo adjunto va una posibilidad. Este es el código:
Código: Seleccionar todo
REM ***** BASIC *****
Option Explicit
Sub AlertaHora()
' Suceso de la hoja: Selección cambiada
Dim FechaHoraTope As Date
Dim Ahora As Date
Dim HojaTiempo As Object
' Accedemos a la hoja HJTIEMPO que podría estar oculta
HojaTiempo = ThisComponent.getSheets().getByName("HJTIEMPO")
' Accedemos al valor de la celda A1
FechaHoraTope = CDate(HojaTiempo.getCellRangeByName("A1").getValue())
Ahora = Now()
If FechaHoraTope < Ahora Then
MsgBox "Llegó la horaaaaa ....", 64, "¡ATENCIÓN!"
' Sumamos 30 segundos al tiempo anterior
HojaTiempo.getCellRangeByName("A1").setValue(Now() + TimeSerial(0, 0, 30))
End If
End Sub
Al
suceso de la hoja Selección cambiada se le debe asignar esta macro.
Saludos cordiales.
Re: Alertas con Msgbox
Publicado: Mar Jul 21, 2020 1:05 pm
por josele80
muchas gracias, voy a mirar que tal me va