vba help - how to add days to Date columns

[Mallesh23]

Hi Team,

Need your help, I want to add 15 days extra to Delivery Date. Column A is Delivery date.
Can you suggest the correct way to achieve this task. Thanks.

Below is sample data.

Book4
	A	B
1	Delivery date	Add 15 Days to Delivery Date
2	13/12/2018	28/12/2018
3	13/02/2019	28/02/2019
4	20/03/2019	04/04/2019
5	30/03/2019	14/04/2019
6	30/04/2019	15/05/2019
7	07/05/2019	22/05/2019
8	11/05/2019	26/05/2019
9	15/06/2019	30/06/2019
10	13/07/2019	28/07/2019
11	05/08/2019	20/08/2019
12	14/12/2019	29/12/2019
13	11/01/2020	26/01/2020
14	18/01/2020	02/02/2020
15	29/02/2020	15/03/2020
16	19/03/2020	03/04/2020
17	20/03/2020	04/04/2020
18	03/04/2020	18/04/2020
19	23/05/2020	07/06/2020
20	30/06/2020	15/07/2020
21	23/07/2020	07/08/2020
22	09/09/2020	24/09/2020
23	19/09/2020	04/10/2020
24	23/09/2020	08/10/2020
25	29/09/2020	14/10/2020
26	30/09/2020	15/10/2020
27	02/11/2020	17/11/2020
28	05/11/2020	20/11/2020
29	07/11/2020	22/11/2020
30	17/11/2020	02/12/2020
31	19/11/2020	04/12/2020
32	20/11/2020	05/12/2020
33	21/11/2020	06/12/2020
34	24/11/2020	09/12/2020
35	27/11/2020	12/12/2020
36	28/11/2020	13/12/2020
37	26/11/2020	11/12/2020
38	03/12/2020	18/12/2020
39	30/11/2020	15/12/2020
40	01/12/2020	16/12/2020
41	02/12/2020	17/12/2020
42	05/12/2020	20/12/2020
43	07/12/2020	22/12/2020
44	08/12/2020	23/12/2020
45	09/12/2020	24/12/2020
46	12/12/2020	27/12/2020
47	13/12/2020	28/12/2020
48	10/12/2020	25/12/2020
49	11/12/2020	26/12/2020
50	14/12/2020	29/12/2020
51	15/12/2020	30/12/2020
52	17/12/2020	01/01/2021
53	16/12/2020	31/12/2020
54	18/12/2020	02/01/2021
55	19/12/2020	03/01/2021
56	21/12/2020	05/01/2021
57	22/12/2020	06/01/2021
58	23/12/2020	07/01/2021
59	24/12/2020	08/01/2021
60	26/12/2020	10/01/2021
61	28/12/2020	12/01/2021
Sheet1

Cell Formulas
Range	Formula
B2:B61	B2	=A2+15

Thanks
Mallesh Gangadhar

 

[Fluff]

Why not just use VBA to insert your formula?

 

[Mallesh23]

Hi Fluff,

Just for learning purpose dateadd, I am attempting below code, I am not sure which is correct way.

DateExtra = 15

For i = 3 To lr_master
            wsMaster.Cells(i, Final_due_Date).value = DateAdd("d", DateExtra, wsMaster.Cells(i, Delivery_Date).value)
Next i


For i = 3 To lr_master
            wsMaster.Cells(i, Final_due_Date).value = DateAdd("d", DateExtra, format(wsMaster.Cells(i, Delivery_Date).value,"dd/mm/yyyy")
Next i

Thanks
mg

 

[Fluff]

The 1st one should work

 

[Mallesh23]

Hi Fluff,

Thanks for confirmation , its working !


Thanks
mg

 

[Fluff]

You're welcome & thanks for the feedback.