Misbehaving Chart Data Sources

[schwiggiddy]

This code is doing everything I want it to do, except the output is wrong.

Specifically, when "chartstring" is defined, it is defined by the sheet "Summary" from a range spanning A2 to my desired column--but row 3 instead of 2 as is hardcoded into the definition!

What's going on here?

    chartstring = "Summary!$A$2:$" & colLetter & "$2,Summary!$A$" & rownum - 4 & ":$" & colLetter & "$" & rownum
    Sheets("Score Chart").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range(chartstring)

 

[Jon Peltier]

Worked fine for me. Here's my entire test procedure:

Sub PopulateChart()
  Dim chartstring As String
  Dim colLetter As String
  Dim rowNum As Long

  colLetter = "E"
  rowNum = 10

  chartstring = "Summary!$A$2:$" & colLetter & "$2,Summary!$A$" & rowNum - 4 & ":$" & colLetter & "$" & rowNum
  Sheets("Score Chart").Activate
  ActiveChart.PlotArea.Select
  ActiveChart.SetSourceData Source:=Range(chartstring)

End Sub

 

[schwiggiddy]

Thanks for checking. It's really strange. I've inserted another row above my heading row and made the necessary changes to the code. Now it works correctly.

There's another issue, too, unrelated I guess...maybe? You see how in defining chartstring there's a rowNum - 4 expression? This gets the chart to show the last 4 entries in the spreadsheet and represents 4 weeks of data. I'd rather have 5 weeks displayed but when I change 4 to 5, the chart displays 6 series.

 

[Jon Peltier]

When I did my test, the chart drew five lines (taking data from five rows). But rownum to rownum - 4 is five rows.

 

[schwiggiddy]

Yeah, I realized that after I posted. After playing around with it, if I change to rownum-3, I get 4 rows charted. At rownum-4, I also get 4 series. But rownum-5 yields 6 lines on the graph. I've changed how I define variables, shifting different parts of chartstring into and out of other variables and hard-coding. I think I'm just going to have to be OK with either 4 or 6 series being charted.