change date if Mondays to a Friday date

[Dark0Prince]

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

 

[Snakehips]

Dark0Prince,

Give this a try....

If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit SubIf Not Intersect(Target, Range("F6:F2000")) Is Nothing Then '<- adjust range as needed for auto date
  
    If Weekday(Date) = 2 Then
        Target.Offset(0, -1).Value = Date - 3
        Else
        Target.Offset(0, -1).Value = Date - 1
    End If

Columns("E").AutoFit
End If

Hope that helps.