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 incoming deadlines which will always be 2 Fridays from each other, until the final week. I would like to have this be automated so that I don't have to write the formula into each cell every time a new deadline comes.
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.
