Alertas con Msgbox

Discute sobre la aplicación de hojas de cálculo

Alertas con Msgbox

Notapor josele80 » Lun Jul 20, 2020 8:29 pm

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
Última edición por josele80 el Mié Jul 29, 2020 1:43 pm, editado 2 veces en total
OpenOffice 3.1 en Windows Vista
josele80
 
Mensajes: 2
Registrado: Lun Jul 20, 2020 8:21 pm

Re: Alertas con Msgbox

Notapor PepeOooSevilla » Mar Jul 21, 2020 7:51 am

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   Expandir vistaContraer vista
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.
Adjuntos
PRUEBA_TIME.ods
LibO Calc 6.3.6
(9.8 KiB) 15 veces
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Alertas con Msgbox

Notapor josele80 » Mar Jul 21, 2020 1:05 pm

muchas gracias, voy a mirar que tal me va
OpenOffice 3.1 en Windows Vista
josele80
 
Mensajes: 2
Registrado: Lun Jul 20, 2020 8:21 pm


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 2 invitados