Ícono del sitio Formulas Excel

Marcar facturas vencidas con macro excel

Síguenos y dale Like:
20k
7400
1k

El control de la cobranza en excel es muy común en la mayoría de las empresas, lo mismo suele pasar con el pago a proveedores.

En esta ocasión les comparto un ejemplo para marcar facturas vencidas con macro excel, esta macro recorre la tabla de datos y determina si una factura ya esta vencida y la marca con un fondo rojo, esto con un solo click… Te interesa… Sigue leyendo.

Por lo regular, los registros de facturas por cobrar o facturas por pagar, tienen los siguientes datos mínimos: Factura, Fecha, Cliente, Días de crédito, Importe.

Los datos clave en este caso, son la fecha de la factura, los días de crédito y la fecha actual, lo que hace la macro es recorrer la tabla, sumar la fecha de la factura mas los días de crédito y compararlo con la fecha actual, si la fecha de vencimiento de la factura, resulta menor o igual que la fecha actual, entonces la factura esta vencida y sera marcada con un fondo rojo, luego se sigue con la siguiente factura hasta terminar la tabla.

En el vídeo siguiente se explica esa macro.

Como se muestra en el vídeo, el proceso es muy lógico y solo hay que interpretarlo en el código.
Sub marcavencidas()
ActiveSheet.Range("A2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Offset(0, 1) + ActiveCell.Offset(0, 3) < Date Then
Range(ActiveCell, ActiveCell.Offset(0, 4)).Interior.ColorIndex = 3
Selection.Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
Loop
End Sub
El código es realmente simple, lo pueden adaptar a sus necesidades y seguramente les sera de enorme ayuda, sobre todo considerando que el proceso suele tardar solo unos segundos al dar click, en lugar de tener que revisar cada registro, hacer el calculo y luego marcarlo de alguna manera.

Cabe mencionar que esta es una opción para hacerlo, también pueden hacerlo con formato condicional o en su caso con una macro de enfoque diferente, aunque la lógica tendría que ser la misma.

Síguenos y dale Like:
20k
7400
1k
Salir de la versión móvil