Error '1004' (Method 'Cells' of '_Global' Failed) On chart creation?

N

NooK

I have been having a problem when trying to create a chart on Excel.

Basically the code is like this:

With ActiveChart
.SetSourceData newBook.Worksheets("Output Data").Range(Cells(1
7), Cells(SampleSize + 1, 8))
.HasTitle = True
.ChartType = xlXYScatter
.ChartTitle.Characters.Text = "Linearized Weibull chart"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x1"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y1"
End With

The problem occurs on .SetSourceData line.

newBook is public and set to the workbook currently active an
SampleSize is 196 at the time (And declared locally) and at line 19
there is data so I don't see what is causing it.

Has anybody got this error before? It's been driving me mad.


Best Regards

Noo
 
P

papou

Hi Nook
Try
SetSourceData newBook.Worksheets("Output Data").Range(Cells(1,7),
Cells(SampleSize + 1, 8)).Address

HTH
Cordially
Pascal
 
N

NooK

I had already tried with Worksheets instead of Sheets but not Addres
and I still get the same error. :(

Hopefully it is not a hopeless case.

Best Regards

Noo
 
R

Rob Bovey

Hi NooK,

My guess is that the problem is that you're using unqualified calls to
the Cells method. Here's a revised example that will fix the problem if this
is it:

Dim wksSource As Worksheet
Set wksSource = newBook.Worksheets("Output Data")
With ActiveChart
.SetSourceData wksSource.Range(wksSource.Cells(1, 7), _
wksSource.Cells(SampleSize + 1, 8))
'......
End With

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *
 
P

papou

How about your SampleSize variable?
Does it return the expected number?
Also, what does the variable newbook return?

HTH
Cordially
Pascal
 
N

NooK

Sorry for delay Guys, it was holiday here on Friday and at the moment
only have internet at work.

Rob's suggestion worked, I still don't quite understand why but I go
no problems anymore, so Thanks a lot both for the help given.

Best Regards

Noo
 
Top