Summary Fields not Re-calculating correctly.

[Luis Contreras]

Is there ANY way to re-calculate the Summary tasks?!! They work at first, then after subseuqent changes are made, they quit summarizing. I know there are posts here about this issue, but surely there is a fix somewhere. I'm using MSP 2000, but the same issue arises in 2002. I've tried changing the rollup options, turning calculation to auto and manual and vice versa and no luck. This is a true show stopper for any kind of real functionality when using custom fields.

Please advise or point me to a solution (SR Update? Macro? Setting?).

Thank you!!

 

[Rod Gill]

Hi,

To get custom fields to sum in summary tasks, you need to edit the custom
field and select sum for the Summary task setting. You can either allow
editing of the summary task level custom field or have it calculate for you.
Do all this under Tools, Customize, Fields. Leave default of none to be able
to manually enter summary level custom fields or Rollup to have project
calculate. Select the function you want.

--
For VBA posts, please use the public.project.developer group.
For any version of Project use public.project
For any version of Project Server use public. project.server

Rod Gill
Project MVP
For Microsoft Project companion projects, best practices and Project VBA
development services
visit www.projectlearning.com/

Is there ANY way to re-calculate the Summary tasks?!! They work at first,

then after subseuqent changes are made, they quit summarizing. I know there
are posts here about this issue, but surely there is a fix somewhere. I'm
using MSP 2000, but the same issue arises in 2002. I've tried changing the
rollup options, turning calculation to auto and manual and vice versa and no
luck. This is a true show stopper for any kind of real functionality when
using custom fields.

 

[luis]

The following is my minor revision to Venkata Krishna's awesome macro for
rolling up (summarizing) values in a cost field.

You'll find her post in this newsgroup under "rollup".

Hope this helps someone.

Luis

Function getNum(originalStr As String) As Variant
'originalStr = value of task such as: ($200)
Dim NewStr As String
Dim temp As String
Dim i As Integer
For i = 1 To Len(originalStr)
temp = Mid(originalStr, i, 1)
If IsNumeric(temp) Or temp = "." Then NewStr = NewStr & temp
Next i
If NewStr = "" Then NewStr = "0"
'Here's what I added to capture the negative value "("
If Left(originalStr, 1) = "(" Then
getNum = -Val(NewStr)
Else
getNum = Val(NewStr)
End If
End Function

 

[Rob Schneider]

Luis,

Thanks for posting, but I have to say I can't see the problem occurring
on my Project 2002. Exactly what is the custom field type/name you are
using?

rms