Alertas con Msgbox

[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

[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.

[josele80]

muchas gracias, voy a mirar que tal me va