Convert formulas into a code & get the extract

[RAJESH1960]

Hello guys,
I have created this new app with the help of formulas. I need your expertise to get the result in the extract sheet as shown in the workbook by converting the formulas into code. The details are in the workbook Data sheet. Thank you in advance.
The date in column B is actually the starting Date to be posted first in the extract sheet.
Loading Google Sheets

 

[RAJESH1960]

7 rows is first date + 52 till 7 rows. The values of column G are divided by 365 to get the number of rows provided the last date doesn't go beyond 31st march in all the cases.

 

[RAJESH1960]

You covered part of '120', you want to add 3 days to the start date for the second set of 60, but you didn't say how you want the dates to be incremented for each row.

You didn't mention any details for '7' rows.

Only one set of dates in 120 rows.

 

[johnnyL]

Please start over and be more specific with your details.

Example:
Number of rows value: 120
First set of rows will need the date incremented by: x amount of weeks, days, years, months
Second set of rows will need the original date incremented by: x amount of weeks, days, years, months
Rest of rows will be incremented by: x amount of weeks, days, years, months

Example:
Number of rows value: 7
Each row will have the date incremented by: : x amount of weeks, days, years, months

 

[RAJESH1960]

Extract Cash Expenses & Import 29-09-2022 .xlsm
	B	C
1	120 rows	7 rows
2	05-04-2022	03-04-2022
3	08-04-2022	25-05-2022
4	11-04-2022	16-07-2022
5	14-04-2022	06-09-2022
6	17-04-2022	28-10-2022
7	20-04-2022	19-12-2022
8	23-04-2022	09-02-2023
9	26-04-2022
10	29-04-2022
11	02-05-2022
12	05-05-2022
13	08-05-2022
14	11-05-2022
15	14-05-2022
16	17-05-2022
17	20-05-2022
18	23-05-2022
19	26-05-2022
20	29-05-2022
21	01-06-2022
22	04-06-2022
23	07-06-2022
24	10-06-2022
25	13-06-2022
26	16-06-2022
27	19-06-2022
28	22-06-2022
29	25-06-2022
30	28-06-2022
31	01-07-2022
32	04-07-2022
33	07-07-2022
34	10-07-2022
35	13-07-2022
36	16-07-2022
37	19-07-2022
38	22-07-2022
39	25-07-2022
40	28-07-2022
41	31-07-2022
42	03-08-2022
43	06-08-2022
44	09-08-2022
45	12-08-2022
46	15-08-2022
47	18-08-2022
48	21-08-2022
49	24-08-2022
50	27-08-2022
51	30-08-2022
52	02-09-2022
53	05-09-2022
54	08-09-2022
55	11-09-2022
56	14-09-2022
57	17-09-2022
58	20-09-2022
59	23-09-2022
60	26-09-2022
61	29-09-2022
62	02-10-2022
63	05-10-2022
64	08-10-2022
65	11-10-2022
66	14-10-2022
67	17-10-2022
68	20-10-2022
69	23-10-2022
70	26-10-2022
71	29-10-2022
72	01-11-2022
73	04-11-2022
74	07-11-2022
75	10-11-2022
76	13-11-2022
77	16-11-2022
78	19-11-2022
79	22-11-2022
80	25-11-2022
81	28-11-2022
82	01-12-2022
83	04-12-2022
84	07-12-2022
85	10-12-2022
86	13-12-2022
87	16-12-2022
88	19-12-2022
89	22-12-2022
90	25-12-2022
91	28-12-2022
92	31-12-2022
93	03-01-2023
94	06-01-2023
95	09-01-2023
96	12-01-2023
97	15-01-2023
98	18-01-2023
99	21-01-2023
100	24-01-2023
101	27-01-2023
102	30-01-2023
103	02-02-2023
104	05-02-2023
105	08-02-2023
106	11-02-2023
107	14-02-2023
108	17-02-2023
109	20-02-2023
110	23-02-2023
111	26-02-2023
112	01-03-2023
113	04-03-2023
114	07-03-2023
115	10-03-2023
116	13-03-2023
117	16-03-2023
118	19-03-2023
119	22-03-2023
120	25-03-2023
121	28-03-2023
answer

Cell Formulas
Range	Formula
C3:C8	C3	=C2+52
B3:B121	B3	=B2+3

In the first row the date is selected from the Data sheet and then in the next row the formula is given and dragged down to that many rows mentioned in column G.

 

[johnnyL]

Add the following 2 cases after case for 365/before the 'End Select'.

                Case Is = 120                                                                                                   '           If DataNumberOfRowsColumn value = 365 then ...
                    For DaysToAdd = 0 To 119                                                                                    '               Loop through # of Days to add
                        DateRow = DateRow + 1                                                                                   '                   Increment DateRow
                        wsExtract.Range(ExtractDateColumn & DateRow) = DateAdd("d", 3, DataDate)                                '                   Write result to ExtractDateColumn
                    Next                                                                                                        '               Loop back
                Case Is = 7                                                                                                     '           If DataNumberOfRowsColumn value = 365 then ...
                    For DaysToAdd = 0 To 6                                                                                      '               Loop through # of Days to add
                        DateRow = DateRow + 1                                                                                   '                   Increment DateRow
                        wsExtract.Range(ExtractDateColumn & DateRow) = DateAdd("d", 52, DataDate)                               '                   Write result to ExtractDateColumn
                    Next                                                                                                        '               Loop back

 

[RAJESH1960]

Thank you JohnnyL. My new application is completed and ready.

 

[johnnyL]

Glad to help.

 

[RAJESH1960]

It didn't take too long. Explaining the query and making you understand took longer time. Writing the code was a piece of cake for you.

 

[johnnyL]

Yes it normally speeds things along to put what you want to do into words, as well as show a before & after example.