Increasing the date/time in cells on a worksheet with a button

[Guest]

Dear excel users,

I have a question.

If have a worksheet with dates (my regional setting are e.g. 21-3-2006
15:00). I would like to be able to select a cell and then click on a button
so I can increase the cell with for example 1 hour so I would get 21-3-2006
16:00.

Any advise for me would be great because I am stuck.

thnks and krgds,

RMF

 

[Guest]

Here's the code, put it in a regular module and assign it to a "button". If
you put a 1 in C1 it will increment any selected Date/time cell by 1 hour,
if you put a 2 in C1, by 2 hours, etc.

Sub update()
Selection.Value = Selection + (Range("c1").Value / 24)
End Sub

Vaya con Dios,
Chuck, CABGx3