Changing resource units and levelling

[Lyra]

I want to change the resource units assigned on the
resource sheet i.e. reduce from 100% to 50%.

Then reflect this change in the tasks on the plan. Tasks
are set to fixed unit and I'd expect the maximum
allocation for the resource to change to 50% and the
duration of the task to extend.

Currently the duration stays the same and levelling
returns errors.

Is there a quick way to update tasks to reflect the
change resource availability?

 

[Steve House]

The maximum units setting does not directly control the units a resource is
assigned to a task except that it become the default assignment level for
new assignments. It's basic function is to establish a cutoff level above
which Project will consider the resource to be overallocated. If you have
reduced someone who was previously 100% to 50% maximum and they already have
assignments in place at 100%, you're going to have to manually adjust each
assignment individually. Filtering to show just the tasks using that
resource, displaying the resource assignment box, selecting both the
resource and the tasks he's on and reducing the 100% to 50% in the
assignment box will do it for all his tasks at once and save you some time
but it's still a manual process for you that can't be automated.

 

[Jan De Messemaeker]

Hi All,

Here's a small VBA macro thet will perform the changes:

Sub ReduceToMax
dim Job as task
Dim Partial as assignment
dim Whodunit as Resource
For each Job in activeproject.tasks
if not job is nothing then
for each Partial in job.assignments
set Whodunit=activeproject.resources(partial.resourceID)
partial.units=whodunit.maxunits
next partial
end if
next job
end sub

HTH

 

[Guest]

Hi

Thanks ever so much, great!

-----Original Message-----
Hi All,

Here's a small VBA macro thet will perform the changes:

Sub ReduceToMax
dim Job as task
Dim Partial as assignment
dim Whodunit as Resource
For each Job in activeproject.tasks
if not job is nothing then
for each Partial in job.assignments
set Whodunit=activeproject.resources(partial.resourceID)
partial.units=whodunit.maxunits
next partial
end if
next job
end sub

HTH
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/index.htm
32-495-300 620
"Steve House" <[email protected]> schreef in bericht
the units a resource
is and they already
have


.