B
Bob Inwater
I posted the below post in general questions and then opened up the VBA
window and started fooling around. I base lined the work in BaseLine1work
and then let VBA find the delta and add to the end of the task. This code
lets me contour resources for the near term and keeps the total work equal to
the baseline (this is the ultimate goal).
What happens now is that if I have 5 units for 3 weeks for a 15 work week
total (base lined) and then change the units for the second week to Zero the
code below forces Project to add a 5 unit work week for a forth week at the
end for a 15 work week total (Fixed units or work). This solves 75% of what I
need.
The only problem now is … if I originally had 5 units for 3 weeks and then
keyed in only 1 unit for the third week the code then gives me 1 unit for 5
more weeks to reach 15 total units.
Option Explicit
Sub DurAdjust()
Dim T As Task
For Each T In ActiveProject.tasks
If T.Work <> T.Baseline1Work Then
T.Work = T.Baseline1Work
End If
Next T
End Sub
EARLIER POST FROM GENERAL
I work in a schedule where I have to manually re-level the resources on a
daily basis. What I wish I could do is edit (contour / level) the resource
units for a given time period in the “Resource Units†view and have the
duration be recalculated based the original total Work.
As an example: a task originally uses 2 units for 3 weeks. Later we find
that we are going to only have 1 unit available in the second week but total
work is unchanged. If I go into “Resource Usage†and edit the units the
duration does not change and all I have done is decrease work. This problem
seems to be more or less the same regardless of what task type I use.
If there was a total work stoppage for a time period I could use a split but
generally what I have is resources being shifted back and forth. I also do
not use splits much since I almost exclusively edit in “Resource Usageâ€.
If this is all totally confusing I apologize,
window and started fooling around. I base lined the work in BaseLine1work
and then let VBA find the delta and add to the end of the task. This code
lets me contour resources for the near term and keeps the total work equal to
the baseline (this is the ultimate goal).
What happens now is that if I have 5 units for 3 weeks for a 15 work week
total (base lined) and then change the units for the second week to Zero the
code below forces Project to add a 5 unit work week for a forth week at the
end for a 15 work week total (Fixed units or work). This solves 75% of what I
need.
The only problem now is … if I originally had 5 units for 3 weeks and then
keyed in only 1 unit for the third week the code then gives me 1 unit for 5
more weeks to reach 15 total units.
Option Explicit
Sub DurAdjust()
Dim T As Task
For Each T In ActiveProject.tasks
If T.Work <> T.Baseline1Work Then
T.Work = T.Baseline1Work
End If
Next T
End Sub
EARLIER POST FROM GENERAL
I work in a schedule where I have to manually re-level the resources on a
daily basis. What I wish I could do is edit (contour / level) the resource
units for a given time period in the “Resource Units†view and have the
duration be recalculated based the original total Work.
As an example: a task originally uses 2 units for 3 weeks. Later we find
that we are going to only have 1 unit available in the second week but total
work is unchanged. If I go into “Resource Usage†and edit the units the
duration does not change and all I have done is decrease work. This problem
seems to be more or less the same regardless of what task type I use.
If there was a total work stoppage for a time period I could use a split but
generally what I have is resources being shifted back and forth. I also do
not use splits much since I almost exclusively edit in “Resource Usageâ€.
If this is all totally confusing I apologize,