Alertas en Excel con Macros

Alertas en Excel con Macros

Alertas en Excel con macros, esta es una macro que mostrara un aviso cada vez que la fecha de vencimiento coincida con la fecha de pago, como bien sabemos en Excel no contamos con una función que nos permita realizarlo así es que para este ejemplo usaremos un Ontime en una Macro.

Application.OnTime Now + TimeValue(«00:00:05»), «AlertaFecha»

Esta línea de código actúa como un Timer que en determinado momento según el tiempo especificado se va ejecutar y mostrar el contenido de la macro a ejecutar.

Video Demostrativo y Uso de la Macro 

Option Explicit
Dim FechaVence, FechaHoy As Date
Dim contarcuotas, cuotas As Long

Sub Aplicaralertas()
    FechaHoy = Range("C3").Value
    cuotas = Range("C5").Value
    contarcuotas = WorksheetFunction.CountA(Range("H7:H100"))
    
    If contarcuotas < cuotas Then
       Application.OnTime Now + TimeValue("00:00:05"), "AlertaFecha"
    Else
       MsgBox "Ya se vencieron Todas la Cuotas", vbInformation, "Atención"
    End If
End Sub

Sub AlertaFecha()
  Dim x As Byte
  x = 7
 Do While Range("B" & x).Value <> ""
    FechaVence = Range("D" & x).Value
    If FechaVence = FechaHoy Then
       Range("H" & x).Value = "HOY SE VENCE"
    End If
     x = x + 1
  Loop
  Call Aplicaralertas
End Sub

Descargar archivos adjuntos

Acerca del autor

Fernando M.Blas administrator

5 comments so far

IvanPublicado en8:15 am - Dic 14, 2017

Buenas,

Tenía una consulta en relación al código. Me gustaría saber como tendría que hacer para que cambie el status cuando falta un mes para el vencimiento.

Es decir, Fechavence – 30. No sé como declarar la variable o cual es la sintaxis.

Mil gracias.

YulianPublicado en12:43 am - Mar 29, 2020

Hola como podría hacer para enviar esa alerta por correo.

Alexander CorreaPublicado en3:44 pm - Abr 16, 2021

Buen día

al ejecutar el código me dice worksheetFuntion no se ha definido como función. ¿Qué debo hacer?

Deja un comentario