Charting Filtered Data - Chart not updating unless workbook is re-opened

Hi there,

I have an xy chart based upon data that will then be
filtered using an advanced filter.

The filter is applied, but the chart doesn't reflect the
filtered data unless the workbook is saved & reopened.
It's maddening.

A few notes:
* I do have another workbook where this works properly.
* This is XL 2000
* The filter itself is being applied using a macro
(details below)

It's killing me that I can make this work in one workbook
and I can't get it to work in two others.

Any ideas???
Thank you!
-Jessica

Here is the entirety of the code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Goto Reference:="calcs_page"
Application.Run "FilterData"
Sheets("Chart").Select
Application.ScreenUpdating = True
End Sub

and
Private Sub FilterData()

Range("filter_range").AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange _
:=Range("Criteria"), Unique:=False

End Sub

Is it possible you have calculation set to manual?

Have you tried Application.Calculate after the call to FilterData?

Also, you don't need the Application.Run "FilterData"
Just FilterData will suffice.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Business solutions leveraging technology
Microsoft Most Valuable Professional (MVP) 2000-2004

In article ,
says...
Hi there,

I have an xy chart based upon data that will then be
filtered using an advanced filter.

The filter is applied, but the chart doesn't reflect the
filtered data unless the workbook is saved & reopened.
It's maddening.

A few notes:
* I do have another workbook where this works properly.
* This is XL 2000
* The filter itself is being applied using a macro
(details below)

It's killing me that I can make this work in one workbook
and I can't get it to work in two others.

Any ideas???
Thank you!
-Jessica

Here is the entirety of the code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Goto Reference:="calcs_page"
Application.Run "FilterData"
Sheets("Chart").Select
Application.ScreenUpdating = True
End Sub

and
Private Sub FilterData()

Range("filter_range").AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange _
:=Range("Criteria"), Unique:=False

End Sub

Alas, I have tried calculate to no avail.

But it must be something like that, since saving and re-
opening does the trick.

Is there anything like chart.calculate (I tried that)
Thanks!
-Jessica

-----Original Message-----
Is it possible you have calculation set to manual?

Have you tried Application.Calculate after the call to
FilterData?

Also, you don't need the Application.Run "FilterData"
Just FilterData will suffice.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Business solutions leveraging technology
Microsoft Most Valuable Professional (MVP) 2000-2004

In article ,
says...
Hi there,

I have an xy chart based upon data that will then be
filtered using an advanced filter.

The filter is applied, but the chart doesn't reflect
the
filtered data unless the workbook is saved &
reopened.
It's maddening.

A few notes:
* I do have another workbook where this works properly.
* This is XL 2000
* The filter itself is being applied using a macro
(details below)

It's killing me that I can make this work in one
workbook
and I can't get it to work in two others.

Any ideas???
Thank you!
-Jessica

Here is the entirety of the code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Goto Reference:="calcs_page"
Application.Run "FilterData"
Sheets("Chart").Select
Application.ScreenUpdating = True
End Sub

and
Private Sub FilterData()

Range("filter_range").AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange _
:=Range("Criteria"), Unique:=False

End Sub


.

Thanks to Jon Peltier, what I needed was

Application.CalculateFull

tra la la! Thank you! : D
-----Original Message-----
Alas, I have tried calculate to no avail.

But it must be something like that, since saving and re-
opening does the trick.

Is there anything like chart.calculate (I tried that)
Thanks!
-Jessica

-----Original Message-----
Is it possible you have calculation set to manual?

Have you tried Application.Calculate after the call to
FilterData?

Also, you don't need the Application.Run "FilterData"
Just FilterData will suffice.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Business solutions leveraging technology
Microsoft Most Valuable Professional (MVP) 2000-2004

In article ,
says...
Hi there,

I have an xy chart based upon data that will then be
filtered using an advanced filter.

The filter is applied, but the chart doesn't reflect
the
filtered data unless the workbook is saved &
reopened.
It's maddening.

A few notes:
* I do have another workbook where this works properly.
* This is XL 2000
* The filter itself is being applied using a macro
(details below)

It's killing me that I can make this work in one
workbook
and I can't get it to work in two others.

Any ideas???
Thank you!
-Jessica

Here is the entirety of the code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Goto Reference:="calcs_page"
Application.Run "FilterData"
Sheets("Chart").Select
Application.ScreenUpdating = True
End Sub

and
Private Sub FilterData()

Range("filter_range").AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange _
:=Range("Criteria"), Unique:=False

End Sub


.

.