Use a loop to create multiple Charts - Suggestions ?
 

I am running a loop in VBA which is supposed to draw a new chart for
every (2) column(s) of data.

However, I am not sure how to make it "jump" from column to column.
Part of my program (does not include the "For i=1 to3 e.t.c.) is below.
The *high-lighted *part is the part I am trying to change. Instead of a
fixed reference I wanted to get the data I have in the
_underlined__part. Any suggestions???


Sheets("OUTPUT All data").Select

_Range(Cells(11,_2_*_i),_Cells(11,_2_*_i_+_1)).Sel ect_
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("OUTPUT All
data").Range(Cells(11, 2 * i), Cells(11, 2 * i + 1)).Select
Range(Selection, Selection.End(xlDown)).Select_ ,
PlotBy:=xlColumns
'ActiveChart.SetSourceData Source:=Sheets("OUTPUT All
data").*Range("B11:C316") _* , PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsNewSheet
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlTop
ActiveChart.ChartArea.Select
Selection.AutoScaleFont = True


--
APOEL
------------------------------------------------------------------------
APOEL's Profile: http://www.excelforum.com/member.php...o&userid=36903
View this thread: http://www.excelforum.com/showthread...hreadid=566172

Use a loop to create multiple Charts - Suggestions ?
 

Try this:

ActiveChart.SetSourceData Source:=Sheets("OUTPUT All data") _
.Range(Cells(11, 2 * i), Cells(11, 2 * i + 1).End(xlDown)), _
PlotBy:=xlColumns

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"APOEL" wrote in
message ...

I am running a loop in VBA which is supposed to draw a new chart for
every (2) column(s) of data.

However, I am not sure how to make it "jump" from column to column.
Part of my program (does not include the "For i=1 to3 e.t.c.) is below.
The *high-lighted *part is the part I am trying to change. Instead of a
fixed reference I wanted to get the data I have in the
_underlined__part. Any suggestions???


Sheets("OUTPUT All data").Select

_Range(Cells(11,_2_*_i),_Cells(11,_2_*_i_+_1)).Sel ect_
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("OUTPUT All
data").Range(Cells(11, 2 * i), Cells(11, 2 * i + 1)).Select
Range(Selection, Selection.End(xlDown)).Select_ ,
PlotBy:=xlColumns
'ActiveChart.SetSourceData Source:=Sheets("OUTPUT All
data").*Range("B11:C316") _* , PlotBy:=xlColumns
ActiveChart.Location Whe=xlLocationAsNewSheet
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlTop
ActiveChart.ChartArea.Select
Selection.AutoScaleFont = True


--
APOEL
------------------------------------------------------------------------
APOEL's Profile:
http://www.excelforum.com/member.php...o&userid=36903
View this thread: http://www.excelforum.com/showthread...hreadid=566172