Is there an automatic marking of % complete for milestones?

[jlg]

In my project plan, i have milestones with predecessors. Once those
predecessors are 100% complete, should Project be marking the specific
milestone they are tied with as 100% complete?

I noticed in this user group in late Oct 2005, that Jan you shared
macro code to mark milestones complete based upon previous tasks. I am
asking for a slight twist upon that - i.e., will Project update a '%
complete' field for a specific milestone whose predecessors are 100%
complete?

thanks for your help!

jlg

 

[Jan De Messemaeker]

Hi,

If I have to write a maco to do it, that's unfortunately proof that Project
doesn't do it automatically. But doen't my macro do exatly what you are
asking for?

 

[Rod Gill]

Project does not.

 

[jlg]

Jan & Rod -

Thanks for your input.

Yes, Jan, your macro works as documented in late Oct 2005. I need a
bit more functionality - I was hoping to run a macro / set a parm in
Project (which i now know is not possible) to update all milestones
for this check - vs. my manually running the macro for each individual
milestone. Is this possible?

(btw - what was confusing me in the Oct 2005 entry was around my
interpretation of the term predecessors - i read that too broadly - my
question is associated with the specific predecessors that are marked
as such on a specific milestone. It was a misread on my part.)

thx for your time!
jlg

 

[Jan De Messemaeker]

Hi,

I haven't kept that macro.
If you send back the code and what more you want I could go a step further.

 

[jlg]

Thx, Jan! Code that i found from late Oct 2005:

Sub Mst100()

Dim Job As Task
Dim Mst As Task
Set Mst = ActiveSelection.Tasks(1)
Mst.PercentComplete = 100
For Each Job In Mst.PredecessorTasks
If Not Job.PercentComplete = 100 Then
Mst.PercentComplete = 0
Exit For
End If
Next Job

End Sub

The additional functionality: I was hoping to run a macro to update
all milestones in a specific project for this check - vs. my manually
running the macro for each individual milestone. Right now, i have to
put my cursor on each individual milestone and run the macro to get the
update - is there a way to have this macro run across all milestones in
a project so i do not have to do the manual cursor on each milestone
line? Is this possible?

thx! ...jlg

 

[Jan De Messemaeker]

HI?

That's an easy one, here's the code (changed the name so you can have both
macros in the same module)

Sub All_Mst100()

Dim Job As Task
Dim Mst As Task
for each Mst in activeproject.tasks
if not Mst is nothing then
if mst.milestone then
Mst.PercentComplete = 100
For Each Job In Mst.PredecessorTasks
If Not Job.PercentComplete = 100 Then
Mst.PercentComplete = 0
Exit For
End If 'pct complete
Next Job
end if 'is milestone
end if 'Not nothing
next Mst

End Sub

Hope this helps,

 

[jlg]

awesome! works like a charm!
i know nothing about writing this code; you have taught me a bit -
thank you!!
....
jlg

 

[Jan De Messemaeker]

You're welcome, glad it works from the onset - I don't have (or take) the
time to test this so it's always a little suspense.