Generar Alerta de Vencimientos de Pagos a Proveedores

Buenos Días... Planteo... Tengo un Libro de Excel donde llevo Control de Ingresos/Gastos/Banco/PagosProveedoresPendientes. Por cada área, una hoja por mes, es decir, IngresosEnero/Ingresos Febrero... IngrDiciembre, y así con cada una, enlazadas mediante macros(botones), fórmulas, formatos condicionales, etc. Ahora bien, en el área de Proveedores, llevo registro de las facturas de compra de mercancía, mes por mes, cada una con su fecha de vencimiento, 15 - 30 - 45 días por ejemplo, o, 30 días con "X%" de dcto, 40 días full (sindcto) entre otras cosas. Llevo columna de fecha de factura, y una con =DIAS360(HOY();A5) para los días transcurridos... en esta mención, esta en 19, siendo una fact que se vence en 30 días. Como puedo hacer, para que me genere un msgbox o no se que... que me diga ·la Fact XXX se vence en 3 días. O algo así. O que genere una ventana/msgbox (no se) con el listado de las fact a vencerse en los prox 5 días. Necesito algo, que le recuerde al usuario que las facturas se vencen! Y que prepare los pagos :) Espero haber sido clara... agradezco de antemano su colaboración. Feliz Día!

1 respuesta

1
Respuesta de
Hola (xxxxxx), Mira se puede hacer, tengo varias ideas de como hacerlo. Este código es cuando uno abre el archivo y revisa tu fórmula de =DIAS360(HOY();A5) y si el menor a 3 envía el mensaje.
Este código debes pegarlo en ThisWorkbook
Private Sub Workbook_Open()
    If Cells(1, 1) <= 3 Then  ' Suponiendo que la formula esta en A1
        MsgBox "Faltan " & Cells(1, 1) & " Dias Para el Pago a " & Cells(1, 5), vbExclamation ' la instruccion Cells(1, 5) dice PAGO DE BOLETAS
    End If
End Sub
Espero que sea de tu ayuda. Cualquier consulta no dudes en preguntar.
Suerte

Pitcher !
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje