Fechas pasadas
Tengo una columna con fechas, y necesito pintar las celdas de la siguiente forma:
-Por un lado, las fechas que pasaron hace 30 a 89 días.
-Por otro, las fechas que pasaron de hace más de 90 días.
Muchas gracias.
-Por un lado, las fechas que pasaron hace 30 a 89 días.
-Por otro, las fechas que pasaron de hace más de 90 días.
Muchas gracias.
1 Respuesta
Respuesta de doctorkaos
1
Espero te ayude este código de macro que puedes poner en visual basic, solo cambiale lo que te haga falta y veras como funciona correctamente.
Dim VAL_DIAS1
Dim VAL_DIAS2
Dim VAL_DIAS3
Dim FECHA_COMPA
Dim fecha_dia
Dim NUM_dias
VAL_DIAS1 = Range("B2")
VAL_DIAS2 = Range("B3")
VAL_DIAS3 = Range("B4")
Range("a1") = "=today()"
fecha_dia = Range("A1")
Range("A7").Select
Do While Not IsEmpty(ActiveCell)
FECHA_COMPA = ActiveCell
NUM_dias = fecha_dia - FECHA_COMPA
If NUM_dias = VAL_DIAS3 Then
COLOR_90_DIAS
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub COLOR_30_89_DIAS()
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
Sub COLOR_90_DIAS()
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub
Espero tye sirva y por favor recuerda cerrar esta pregunta para que no se quede flotando.
Dim VAL_DIAS1
Dim VAL_DIAS2
Dim VAL_DIAS3
Dim FECHA_COMPA
Dim fecha_dia
Dim NUM_dias
VAL_DIAS1 = Range("B2")
VAL_DIAS2 = Range("B3")
VAL_DIAS3 = Range("B4")
Range("a1") = "=today()"
fecha_dia = Range("A1")
Range("A7").Select
Do While Not IsEmpty(ActiveCell)
FECHA_COMPA = ActiveCell
NUM_dias = fecha_dia - FECHA_COMPA
If NUM_dias = VAL_DIAS3 Then
COLOR_90_DIAS
End If
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub COLOR_30_89_DIAS()
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
Sub COLOR_90_DIAS()
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub
Espero tye sirva y por favor recuerda cerrar esta pregunta para que no se quede flotando.
