Fecha de vencimiento con macro Excel. Disponemos de un listado con la fecha de vencimiento de pagos y deseamos que nos indique las que vencen en el día.
| A | B | C | |
|---|---|---|---|
| 1 | Fecha | Empresa | Importe |
| 2 | 01/01/2013 | Empresa 1 | 1500,50 |
| 3 | 19/08/2013 | Empresa 2 | 475,50 |
| 4 | 21/19/2013 | Empresa 3 | 2100,42 |
| 5 | 19/08/2013 | Empresa 4 | 155,50 |
| 6 | 20/09/2013 | Empresa 5 | 854,20 |
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Explorador de Proyectos
VBAProject Doble Clic sobre ThisWorkbook. Si el panel no está visible Ir a: Barra de menú Ver Explorador de proyectos. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro:
Private Sub Workbook_Open()
fila=2
Do While Not IsEmpty(Cells(fila, "A"))
If Cells(fila, "A") = Date Then
x = MsgBox("Hoy es: " & Date & Chr(13) & Chr(13) & "Vencimientos: " & Chr(13) & "Proveedor: " & Cells(fila, "B") & "; " & "Importe: " & Cells(fila, "C") & " €", , "Facturas pendientes")
End If
fila = fila + 1
Loop
End Sub
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Al abrir de nuevo el libro si el día actual coincide con las fechas en A mostrará mensaje (MsgBox) con el vencimiento.
Si existe más de una fecha de vencimiento, al pulsar el botón Aceptar mostrará el siguiente vencimiento.
Pudiendo obtener la fecha de vencimiento con macro Excel de los datos.
Excel Experto VBA - Macros- Consultar:
Amigo(a) gracias vi tu publicación pude resolver mi problema con la fecha de vencimiento
Gracias por tu aporte. ¿Puedes ayurme con una macro q calcule el mes en que vence un plazo? Ejemplo partiendo de q se tenga una columna con el número de años y otra con los meses calcular en otra en qué mes y año se llega a un numero de años: 5 años, a 10 años. Saludos
Muy buen día.
Me funciono bastante bien tu ejemplo; sin embargo tengo datos en mi tabla que estan combinados (3 o 5 celdas de la misma fila) y en ese caso ya no me envia el aviso de los demas datos que continuan despues de esta celda combinada. Saludos.
Hola Irving,
Si todas las columnas tienen filas combinadas se puede aplicar pero si están salteadas, sería muy complejo.
Como norma nunca interesa combinar celdas.
Saludos.