Multiple Line Charts Based on DataRange Sheet

[tahirk]

I have 2 sheets in my excel file (Data and DataRanges). DataRanges sheet includes Start & End columns (multiple rows) which represent the range for each graph.

The data sheet includes Data Serial which will represent data in serial for those ranges (start, end) to plot a simple line graph depending on Close (Column B) values.

Currently, I'm doing it manually which takes a lot of time. Just want to know if there is a way to automate it using VBA.

 

[tahirk]

I have 2 sheets in my excel file (Data and DataRanges). DataRanges sheet includes Start & End columns (multiple rows) which represent the range for each graph.

View attachment 51265

The data sheet includes Data Serial which will represent data in serial for those ranges (start, end) to plot a simple line graph depending on Close (Column B) values.

View attachment 51266

View attachment 51267

Currently, I'm doing it manually which takes a lot of time. Just want to know if there is a way to automate it using VBA.

Here are the 2 sheets:
Data Sheet:

1.xlsx
	A	B
1	Date Serial	Close
2	1	17.66
3	2	17.76
4	3	17.72
5	4	17.55
6	5	17.66
7	6	17.5
8	7	17.37
9	8	17.35
10	9	17.47
11	10	17.58
12	11	17.29
13	12	17.3
14	13	17.26
15	14	17.38
16	15	17.48
17	16	17.64
18	17	17.71
19	18	17.52
20	19	17.63
21	20	17.69
22	21	17.49
23	22	17.57
24	23	17.53
25	24	17.63
26	25	17.4
27	26	17.45
28	27	17.44
29	28	17.49
30	29	17.55
31	30	17.54
32	31	17.44
33	32	17.4
34	33	17.35
35	34	17.04
36	35	16.95
37	36	17.11
38	37	17.13
39	38	17.18
40	39	17.11
41	40	17.16
42	41	17.26
43	42	17.3
44	43	17.3
45	44	17.57
46	45	17.67
47	46	17.58
48	47	17.64
49	48	17.93
50	49	18
51	50	17.92
52	51	17.93
53	52	18.07
54	53	18.26
55	54	18.36
56	55	18.46
57	56	18.65
58	57	18.6
59	58	18.78
60	59	19.05
61	60	18.94
62	61	18.89
63	62	18.95
64	63	19.28
65	64	18.91
66	65	19.02
67	66	18.99
68	67	19.23
69	68	19.27
70	69	19.1
71	70	19.44
72	71	19.41
73	72	19.73
74	73	19.68
75	74	19.52
76	75	19.52
77	76	19.63
78	77	19.34
79	78	19.15
80	79	19.25
81	80	19.33
82	81	19.47
83	82	19.68
84	83	19.75
85	84	19.78
86	85	19.83
87	86	19.93
88	87	20.24
89	88	20.41
90	89	20.27
91	90	20.24
Data

Cell Formulas
Range	Formula
A3:A91	A3	=A2+1

Range Sheet:

1.xlsx
	A	B
1	Start	End
2	61	90
3	5	40
4	41	60
GraphRanges