VBA conditional date/time change

Hi Nasir,

Thank you for your question. One way you could solve this is to use an If Left formula which will add an hour to all records which contain nyk. Please see below for an example. I used columns A, B and C, so you would need to adjust the references in your code to look at the correct columns in your spreadsheet.

Sub AddHour()

Range("c1").Select

Do Until ActiveCell.Offset(0, -2) = ""

ActiveCell.FormulaR1C1 = "=IF(LEFT(RC[-2],3)=""nyk"",RC[-1]+(1/24),RC[-1])"

ActiveCell.Offset(1, 0).Select

Loop

End Sub


So the RC[-1] and RC[-2] references in your formula need to be adjusted along with the loop references.

I hope this helps.

Kind regards
Marius Barnard
Excel Trainer