VBA Excel macro recordatorio de vencimiento de facturas

VBA Excel macro recordatorio de vencimiento de facturas

   01 febrero       Luis Reyes

---

El día de hoy le comparto el código de una macro que nos indica el total del importe de las facturas vencidas.

Private Sub facturas()
Dim Facturas As Long, FacturasVencidas As Long
Dim celda As Range
Dim hoy As Date
Dim total As Double

Application.ScreenUpdating = False

Facturas = Range("C" & Rows.Count).End(xlUp).Row
FacturasVencidas = Range("H" & Rows.Count).End(xlUp).Row + 1
Range("H3:I" & FacturasVencidas).ClearContents
hoy = Date
For Each celda In Range("C3:C" & Facturas)
    If hoy >= DateAdd("d", celda.Offset(, 1), celda) Then
        FacturasVencidas = Range("H" & Rows.Count).End(xlUp).Row + 1
            If celda.Offset(, 3).Value <> "PAGADA" Then
                celda.Offset(, 3) = "VENCIDA"
                Cells(FacturasVencidas, "H") = celda.Offset(, -1): Cells(FacturasVencidas, "I") = celda.Offset(, 2)
                total = total + celda.Offset(, 2)
            End If
End If

Next celda
 
If total > 0 Then
    FacturasVencidas = Range("H" & Rows.Count).End(xlUp).Row
    suma = WorksheetFunction.Sum(Range("I3:I" & FacturasVencidas))
    Cells(FacturasVencidas + 1, "H") = "Total"
    Cells(FacturasVencidas + 1, "I") = suma
    MsgBox "Tiene facturas vencidas por un total de: " & total, vbCritical, "Facturas Vencidas"
End If

End Sub

Descarga el Archivo