Resaltar próximos vencimientos en Excel (macro)

19 Feb Resaltar próximos vencimientos en Excel (macro)

Resaltar próximos vencimientos en Excel (macro)

¿Cómo podemos resaltar los próximos vencimientos mediante el uso de macros en Excel?

La siguiente macro nos permite aplicar un formato a celdas que contienen fechas próximas a vencer mediante macros de forma rápida y fácil en Excel. Definimos de forma arbitraria un criterio de 7 días próximos al vencimiento para resaltar las celdas a vencer y un color de relleno amarillo.

La instrucción a copiar dentro de un nuevo módulo de vba es la siguiente:

RESALTAR PRÓXIMOS VENCIMIENTOS EN EXCEL

Sub ResaltarVencimientosProximos()

    Dim celda As Range
    Dim dias As Integer
    Dim hoy As Date
    
    dias = 7
    
    hoy = Date
    
    For Each celda In Selection
        
        If IsDate(celda.Value) Then
            
            If celda.Value >= hoy And celda.Value <= hoy + dias Then
                celda.Interior.Color = vbYellow
            Else
                celda.Interior.ColorIndex = xlNone
            End If
            
        End If
        
    Next celda

End Sub

Notar que nombramos a la macro «ResaltarVencimientosProximos».

Si deseamos modificar la cantidad de días del criterio de próximo vencimiento debemos modificar la línea «dias = 7».

Si deseamos modificar el color de relleno de las celdas con el criterio debemos modificar la línea «celda.Interior.Color = vbYellow».

De esta forma logramos resaltar las celdas de un rango en base a un criterio de vencimientos próximos de forma rápida y fácil mediante macros en Excel.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.