Adding a number of hours

[omarelhosseini]

When adding a number of hours in column C
Its effect is reflected in columns A and B

add hour to date.xlsm
	A	B	C
1	Trip Date	Trip Time	Number Of Hours To Added
2	11/04/2022	05:25:00
3	11/04/2022	13:45:00
4	11/04/2022	14:00:00
5	11/04/2022	21:35:00
6	10/04/2022	05:25:00
7	10/04/2022	12:45:00
8	10/04/2022	21:35:00
9	10/04/2022	22:45:00
10	09/04/2022	05:25:00
11	12/04/2022	08:15:00
12	09/04/2022	17:35:00
13	09/04/2022	21:45:00
14	08/04/2022	05:25:00
15	08/04/2022	08:00:00
16	08/04/2022	08:00:00
17	08/04/2022	10:00:00
18	08/04/2022	22:00:00
19	08/04/2022	11:00:00
20	08/04/2022	16:00:00
21	08/04/2022	21:35:00
22	07/04/2022	06:20:00
23	07/04/2022	10:15:00
24	07/04/2022	12:50:00
25	07/04/2022	14:30:00
26	08/04/2022	08:50:00
27	07/04/2022	16:10:00
28	07/04/2022	22:45:00
29	06/04/2022	05:25:00
30	06/04/2022	21:35:00
31	05/04/2022	05:25:00
32	05/04/2022	10:00:00
33	05/04/2022	11:25:00
34	05/04/2022	21:35:00
35	05/04/2022	22:45:00
36	04/04/2022	05:25:00
37	04/04/2022	14:00:00
38	03/04/2022	05:40:00
39	03/04/2022	12:45:00
40	03/04/2022	12:45:00
41	03/04/2022	21:45:00
42	03/04/2022	22:45:00
43	02/04/2022	05:40:00
44	07/04/2022	08:00:00
45	02/04/2022	17:35:00
46	02/04/2022	21:35:00
47	01/04/2022	05:40:00
48	01/04/2022	09:30:00
49	01/04/2022	11:00:00
50	01/04/2022	11:00:00
51	01/04/2022	12:00:00
52	01/04/2022	16:00:00
53	01/04/2022	21:35:00
Sheet2

 

[bebo021999]

It requires VBA code. Is it accepted?

 

[omarelhosseini]

yes by VBA

 

[bebo021999]

Correct me if I was wrong:
A1: 11-Apr (in real date at 0:00 , integer)
B1: 05:25:00 (in real time)

Now you want to add hours in C1

1) input C1 = 20:00:00
2) A1 to become: 12-Apr
3) B1 to become 01:25:00
4) C1 back to blank cell

is it the case?

 

[omarelhosseini]

yes

 

[omarelhosseini]

from A2

 

[bebo021999]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Double, t As Double
If Target.Column <> 3 Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
If Target.Value = "" Or Not IsNumeric(Target) Then Exit Sub
d = Target.Offset(0, -2).Value
t = Target.Offset(0, -1).Value
    Target.Offset(0, -2).Value = Int(d + t + Target.Value)
    Target.Offset(0, -1).Value = ((t + Target.Value) * 1000 Mod 1000) / 1000
Target.ClearContents
End Sub

 

[omarelhosseini]

Thank you very much