Jan
Thu Jul 27 14:34:54 CDT 2006
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.
--
Jan De Messemaeker, Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/
For FAQs:
http://www.mvps.org/project/faqs.htm
"jlg" <jgilbert@roundys.com> schreef in bericht
news:1154016548.435704.288210@75g2000cwc.googlegroups.com...
> awesome! works like a charm!
> i know nothing about writing this code; you have taught me a bit -
> thank you!!
> ...
> jlg
>
> Jan De Messemaeker wrote:
> > 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,
> >
> > --
> > Jan De Messemaeker, Microsoft Project Most Valuable Professional
> >
http://users.online.be/prom-ade/
> > For FAQs:
http://www.mvps.org/project/faqs.htm
> > "jlg" <jgilbert@roundys.com> schreef in bericht
> > news:1153917312.560750.111970@b28g2000cwb.googlegroups.com...
> > > 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 wrote:
> > > > Hi,
> > > >
> > > > I haven't kept that macro.
> > > > If you send back the code and what more you want I could go a step
> > further.
> > > >
> > > > --
> > > > Jan De Messemaeker, Microsoft Project Most Valuable Professional
> > > >
http://users.online.be/prom-ade/
> > > > For FAQs:
http://www.mvps.org/project/faqs.htm
> > > > "jlg" <jgilbert@roundys.com> schreef in bericht
> > > > news:1153854161.365492.27060@b28g2000cwb.googlegroups.com...
> > > > > 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 wrote:
> > > > > > 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?
> > > > > >
> > > > > > --
> > > > > > Jan De Messemaeker, Microsoft Project Most Valuable Professional
> > > > > >
http://users.online.be/prom-ade/
> > > > > > For FAQs:
http://www.mvps.org/project/faqs.htm
> > > > > > "jlg" <jgilbert@roundys.com> schreef in bericht
> > > > > > news:1153774533.278621.69140@m79g2000cwm.googlegroups.com...
> > > > > > > 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
> > > > > > >
> > > > >
> > >
>