Assigning a Range MORE INFO
I really need to solve this so here is the code!
The error I get says, "Run-Time Error '1004':
Unable to Set the XValues Property of the Series Class.
Compiler takes me to this line...
XValues = "=Query!R" & CStr(x1) & "C1:R" & CStr(x2) & "C1"
Which is related to this line...
ActiveChart.SeriesCollection(1).XValues = XValues
HERE IS THE WHOLE RELEVANT BLOCK:
x1 = IVSLH2Range.Row + 1
If IVSLH2Range.Offset(intRowCountIVSLH2 - 1, 2).Value
< Year(Date) Then
x2 = IVSLH2Range.Row + intRowCountIVSLH2 - 1
Else
x2 = IVSLH2Range.Row + intRowCountIVSLH2 - 2
End If
'Update Graph Variables
intRowCountIVSLH2 2 Then
XValues = "=Query!R" & CStr(x1) & "C1:R" & CStr(x2) & "C1"
YValues = "=Query!R" & CStr(x1) & "C5:R" & CStr(x2) & "C5"
'Update Graph2
Sheets("Chart2").Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = XValues
ActiveChart.SeriesCollection(1).Values = YValues
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = strCompanyName
End With
ActiveChart.ChartArea.Select
|