Forum Discussion
Formatting to add 2 weeks to new dates
I'm trying to create a spreadsheet which will allow me to input new dates in a column, and from that have a rolling on effect that will add two weeks from that column. This is to help keep up with i...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Skip
If Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Then
Application.EnableEvents = False
If IsDate(Target) Then
Target.Offset(0, 2).Value = Target.Value + 14
Else
End If
End If
Skip:
Application.EnableEvents = True
End SubMaybe with this worksheet_change event. In the attached file you can enter a date in any cell in column E, I or M and the date +14 days is entered in the corresponding cell 2 columns to the right.