MS Project 2000 and Customized Fields

[ghaynestx]

I am using Project 2000 and I would like to write a macro (or VB script) that
will copy the values from Remaining Work to Duration1. I want to be able to
save off the remaining work once a week to perform a comparison from one week
to the next. I'm a complete noob though - and can't figure out how to do it.
Any help, examples or direction would be greatly appreciated!

Thanks,
Grace

 

[JackD]

Sub ghaynestx()
Dim t As Task
Dim ts As Tasks
Set ts = ActiveProject.Tasks
For Each t In ts
If Not t Is Nothing Then
t.Duration1 = t.RemainingWork
End If
Next t
End Sub

The basics for working with tasks are described here:
http://zo-d.com/blog/archives/programming.html
Scroll down to the Working with the tasks collection section at the bottom.

 

[Mike Glen]

Hi Grace,

Welcome to this Microsoft Project newsgroup

Insert a column for the field Duration1. Right click its heading and select
Customize Fields... Select the Formla... button, and then the insert Fields
button, select Work/Remaining Work/OK. If you want Summary data as well,
then half way down select Rollup and Sum from the drop down pick list/OK.

If you want more detailled instruction, you might like to have a look at my
series on Microsoft Project in the TechTrax ezine, particularly #14 -
Customizing Fields, at this site: http://tinyurl.com/2xbhc or this:
http://pubs.logicalexpressions.com/Pub0009/LPMFrame.asp?CMD=ArticleSearch&AUTH=23
(Perhaps you'd care to rate the article before leaving the site,
Thanks.)

FAQs, companion products and other useful Project information can be seen at
this web address: <http://www.mvps.org/project/>

Hope this helps - please let us know how you get on

Mike Glen
MS Project MVP