Adjust "time" column when modifying row

[redkulat]

Hi everyone,

Is there a forumla to automatically adjust the "time" in a column when any specific row is modified? For example:

Time	Subject
7:00 am
7:30 am
8:00 am
8:15 am
9:00 am

<tbody>
</tbody>

If I were to modify "7:00 am" by 15 minutes to "7:15 am", I would want all the other rows to automatically adjust time by 15 minute like so:

Time	Subject
7:15 am
7:45 am
8:15 am
8:30 am
9:15 am

<tbody>
</tbody>

I am hoping it's simpler than I thought. Any help guiding me in the direction would be super helpful, thank you!

 

[alansidman]

Assuming your data is in Column A. In cell D2, put 0:15 and format it as date h:mm then this vba code should advance it by 15 minutes. Change Cell D2 as needed.

Option Explicit


Sub AdjTime()
    Dim i As Long, lr As Long
    Dim chg As Date
    chg = Range("D2")
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        Range("A" & i) = Range("A" & i) + chg
    Next i


End Sub