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 <29b601c4227f$a297e0f0$(E-Mail Removed)>,
(E-Mail Removed) 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 <29b601c4227f$a297e0f0$(E-Mail Removed)>,
>(E-Mail Removed) 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 <29b601c4227f$a297e0f0$(E-Mail Removed)>,
>>(E-Mail Removed) 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
>>>
>>>
>>.
>>
>.
>