Forum Discussion
Pop up boxes, based on dates in multiple columns
Himathetes , thank you for your reply, I don't think it is conditional formatting, I have colours that change on different conditions, this is a box that pops up when you open Excel to inform you dates have expired.
From what I have found online, it would be something along the following, but I still haven't been able to get it to work properly;
If Not Intersect(Target, Range("Cells")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value < DateAdd("M", "12", Date) Then
ans = "Part Number " & Target.Offset(, -2).Value
anss = "Lot Number " & Target.Offset(, -1).Value
MsgBox ans & vbNewLine & anss & vbNewLine & "Is within the 8 month requirement"
End If
End If
End Sub
Well, I avoid VBA and macros whenever possible, for the simple reason that I generally find there are easier ways already built-in. And conditional formatting--exactly as you have it already, it would appear--would be how I'd solve your problem. Maybe just different, more distinct, formats.
In any event, I can't help you (don't know the code) with the macro you found, but there are others here who can.
- I agree, I generally avoid it, but it's been requested incase someone misses it (to others having it pop up is easier than checking the sheet).
Thank you anyway