Error when running macro in Excel

R

Raphael Saddy

Hi all!

I am using a macro to attach lables to a XY curve in
Excel. To graph the curve I use a table linked to a pivot
table. That is, everytime I change something in the pivot,
the table (chart source) changes and, consequently, the
chart changes.

As a pivot table is a dynamic table, the number of lines
of the pivot table report may vary and the linked table
(chart source) shows zero values for that lines that do
not have any value (of course). To update the curve,
showing only the values I want, I use an Advanced Filter
to filter the same things I have chosen in the pivot table
menu.

The problem is: Everytime I run the macro to attach the
values to the XY chart after all that, I receive the
following error message:

Run-time error '1004':
Unable to get the Points property of the Series Class

Then I click End and everything is ok.... the labels are
there, the curve is ok, etc.

I would like to know if there is a way not to show this
message...

Thank you all in advance!

Raphael
 
K

kkknie

It sounds to me like the code is doing what you want it to do eve
though you are getting an error. I would suggest hitting Debug (rathe
than end) and finding which line is giving the error. Then comment i
and everything below it out (since it is not running).
 
G

Guest

Hi,

Thank you for the quick answer! The code works nice when
it is a permanent table (always the same number of columns
and lines). The problem is when there are zero values in
the labels column. For instance: airport A has a volume of
123, airport B 145, etc... and at the last lines of the
list, airport 0 (zero) has a volume of 0(zero). The macro
is unable to find the names.

I would like just not this message to show.

I´ve tried to insert before the macro the
Application.DisableWarning = True line but it did not work.

Thanks!

Raphael
 
K

kkknie

Somewhere before you get the error, put this line in:

On Error Goto ErrHnd

Then at the end of your subroutine (before End Sub) put this:

Exit Sub

ErrHnd:

Err.Clear

End Sub

This will essentially ignore your error and not show a message. Not
that it ignores all errors, so if things stop working right, you wil
need to comment out the On Error Goto ErrHnd statement.
 
G

Guest

JUST PERFECT!

Many many thanks!!!! Hope I am able to help you some day!

Regards,

Raphael
 
Top