Dark0Prince
Active Member
- Joined
- Feb 17, 2016
- Messages
- 433
I have an issue with Mondays and I'm hoping there is a fix for this but I need to be able to do this but just not on Mondays I want it to -3 days if today equals a Monday. My code below if needed.
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("F6:F2000")) Is Nothing Then '<- adjust range as needed for auto date
Target.Offset(0, -1).Value = Date - 1
Columns("E").AutoFit
End If
End Sub
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("F6:F2000")) Is Nothing Then '<- adjust range as needed for auto date
Target.Offset(0, -1).Value = Date - 1
Columns("E").AutoFit
End If
End Sub