Would greatly appreciate any help!
I have 4 tables each containing thirty rows. I am using the first row of each table to build the first chart. I need move down to the second row of each table to build the second chart. I need to do this for all the thirty rows and to change the chart number each time. I just need the .Values to move down for each chart, .Name and .XValues don't change.
Sub ChartBuildingTakeTwo()<o></o>
'<o></o>
ActiveSheet.Shapes.AddChart.Select<o></o>
ActiveChart.ChartType = xlColumnClustered<o></o>
ActiveSheet.ChartObjects("Chart 31").Activate<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(1).Name= "=""East"""<o></o>
ActiveChart.SeriesCollection(1).Values = "='Working File'!$C$134:$N$134"<o></o>
ActiveChart.SeriesCollection(1).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(2).Name = "=""West"""<o></o>
ActiveChart.SeriesCollection(2).Values = "='Working File'!$C$178:$N$178"<o></o>
ActiveChart.SeriesCollection(2).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(3).Name = "=""North"""<o></o>
ActiveChart.SeriesCollection(3).Values = "='Working File'!$C$91:$N$91"<o></o>
ActiveChart.SeriesCollection(3).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(4).Name = "=""South"""<o></o>
ActiveChart.SeriesCollection(4).Values = "='Working File'!$C$222:$N$222"<o></o>
ActiveChart.SeriesCollection(4).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveSheet.ChartObjects("Chart 31").Activate
Thanks
I have 4 tables each containing thirty rows. I am using the first row of each table to build the first chart. I need move down to the second row of each table to build the second chart. I need to do this for all the thirty rows and to change the chart number each time. I just need the .Values to move down for each chart, .Name and .XValues don't change.
Sub ChartBuildingTakeTwo()<o></o>
'<o></o>
ActiveSheet.Shapes.AddChart.Select<o></o>
ActiveChart.ChartType = xlColumnClustered<o></o>
ActiveSheet.ChartObjects("Chart 31").Activate<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(1).Name= "=""East"""<o></o>
ActiveChart.SeriesCollection(1).Values = "='Working File'!$C$134:$N$134"<o></o>
ActiveChart.SeriesCollection(1).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(2).Name = "=""West"""<o></o>
ActiveChart.SeriesCollection(2).Values = "='Working File'!$C$178:$N$178"<o></o>
ActiveChart.SeriesCollection(2).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(3).Name = "=""North"""<o></o>
ActiveChart.SeriesCollection(3).Values = "='Working File'!$C$91:$N$91"<o></o>
ActiveChart.SeriesCollection(3).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveChart.SeriesCollection.NewSeries<o></o>
ActiveChart.SeriesCollection(4).Name = "=""South"""<o></o>
ActiveChart.SeriesCollection(4).Values = "='Working File'!$C$222:$N$222"<o></o>
ActiveChart.SeriesCollection(4).XValues = "='Working File'!$C$2:$N$2"<o></o>
ActiveSheet.ChartObjects("Chart 31").Activate
Thanks