how to enter a reimbursement rate for employees

N

NeedhelpinMS

Hi I work at a consulting firm. We are trying to make MS Project 2003 work
for us however we are having some problems. We bill our clients a certain
amount of money per hour for our consultants to work with them and then we
reimburse the consultants a certain amount, which are fixed. Say for one
person we could charge the client $180/h however we pay the consultant
$100/h. The money left over is the profit of course. How do we do this in
project. I would really welcome any help thank you!
 
B

Brian K - Project MVP

NeedhelpinMS said:
Hi I work at a consulting firm. We are trying to make MS Project 2003 work
for us however we are having some problems. We bill our clients a certain
amount of money per hour for our consultants to work with them and then we
reimburse the consultants a certain amount, which are fixed. Say for one
person we could charge the client $180/h however we pay the consultant
$100/h. The money left over is the profit of course. How do we do this in
project. I would really welcome any help thank you!

I posted a slightly different version of this code for another question
(about cost rate tables) in this group a few days ago but it will work for
what you want as well. Give it a try on a test project several times befor
going 'production' to make sure it actually does what you want.

Sub NewRates()
Dim T As Task
Dim A As Assignment
Dim SumAssignmentCosts As Currency

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
For Each A In T.Assignments
A.Cost1 = (A.Work / 60) * T.Resources(A.ResourceName).Cost1
SumAssignmentCosts = SumAssignmentCosts + A.Cost1
A.Cost2 = A.Cost - A.Cost1
Next A
End If
T.Cost1 = SumAssignmentCosts
T.Cost2 = T.Cost - T.Cost1
SumAssignmentCosts = 0
Next T
End Sub

But the 180 number in the Resource Rate field and the 100 number in the
Resource Cost1 field. This will make the Assignment Cost1 field be the
number of hours of work times the Resource Cost1 'rate' of 100 per hour.
Then the Assignment and Task Cost2 fields are your 'profit' number.

Remember that the calcs will only happen when this macro code is run.

I hope this helps.
 
N

NeedhelpinMS

Thanks for the help however, I am new at this project thing and I really dont
understand what you wrote...where would i put that formula?? thanks
 
B

Brian K - Project MVP

NeedhelpinMS said:
Thanks for the help however, I am new at this project thing and I really
dont
understand what you wrote...where would i put that formula?? thanks

You would click Tools | Macro | Visual Basic Editor

Then you would double click on the "This Project" node in the tree
control to the left

Then paste the code in the window on the right.

Then Close the editor and save the project.

Then click Tools | macro | macros

Then find the "New Rates" macro in the list. Select it and click Run and
it will calculate your rates for you
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top