View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Alex A Alex A is offline
external usenet poster
 
Posts: 12
Default 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