Adding X amount of hours to Date Time Field

[excelnube]

Hi guys,

I think this is a fairly simple issue, or so i hope.

Column D of my spreadsheet, contains between 400-500+ records in format: dd\/mm\/yyyy hh\:mm

What i would like to do is write a piece of VBA code that loops through the values in Column D, and add a specified amount of time to it.

The specified amount of time is stored Sheet2 E2 of the current workbook - for example 5:30 hours.

So, if i had an original date time of 09/11/2012 10:00, the new value would be 09/11/2012 15:30.

Any help appreciated.

 

[VoG]

Try

Sub atest()
Dim LR As Long, i As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("D" & i)
        .Value = .Value + Sheets("Sheet2").Range("E2").Value
    End With
Next i
End Sub

 

[excelnube]

Seems to have done the trick!

Thanks