Cost rate table

[Agneta]

I want to apply a cost to Cost rate table B for each resource. I have over
100 resources in my Project so I don´t want to open every persons Resource
information to put it in. But I can´t find out how to append a field for that
cost to a table (can´t find what fieldname to use). Please help!

 

[Jim Aksel]

I feel your pain, we have 61 resources. However, without using a VBA macro
there is not going to be an easy way to do it. Remember, each resource has
its own rate schedules and effective dates for those rates. As such, you
need to enter a date and a rate in the Cost Table B.

What I did for one client was design a custom user form. The form allowed
me to loop through each resource (a For Each loop). I hard coded the date as
"today" and then had it prepopulate the new rate with the old rate plus a
factor into two text boxes on the form. I then could just make some quick
changes to the rate and hit the Save/Next button. The "save" put the
information into Cost Rate Table B with the effective date.

In all reality, it took me just as long to develop the form as it would to
hand crank it into the rate table.

Unfortunately, I do not have ready access to this code. To invent the form
for you would be billable hours.

As an alternative, a colleague of mine tried to export the mpp file to
Access and make the changes there. However, the effective dates and rates
are not located conveniently together in a table to make this effort
worthwhile either.
--
If this post was helpful, please consider rating it.

Jim
It''s software; it''s not allowed to win.

Visit http://project.mvps.org/ for FAQs and more information
about Microsoft Project

 

[JulieS]

Hi Agneta,

I'm sorry to say, but I don't believe you can add the field to a table. To
the best of my knowledge, short of writing code to import the values into the
cost rate table B, you must do it manually.

If you are interested exploring a VBA method, try posting your question to
the Developers newsgroup. You may also want to try a search in the project
newsgroups for postings on the isssue as I think there was has been some code
posted in the past.

I hope this helps. Let us know how you get along.

Julie

 

[Dale Howard [MVP]]

Agneta --

Try using the following macro, but before you use it, change the
StandardRate and OvertimeRate values to the rates you wish to use:

Sub UpdateRateB()

Dim r As Resource

For Each r In ActiveProject.Resources

r.CostRateTables("B").PayRates(1).StandardRate = "$60/h"
r.CostRateTables("B").PayRates(1).OvertimeRate = "$90/h"

Next r

End Sub

Hope this helps.

 

[JulieS]

Thanks Dale!

Julie
Project MVP

Agneta --

Try using the following macro, but before you use it, change the
StandardRate and OvertimeRate values to the rates you wish to use:

Sub UpdateRateB()

Dim r As Resource

For Each r In ActiveProject.Resources

r.CostRateTables("B").PayRates(1).StandardRate = "$60/h"
r.CostRateTables("B").PayRates(1).OvertimeRate = "$90/h"

Next r

End Sub

Hope this helps.

 

[Dale Howard [MVP]]

JulieS --

Thanks for inspiring me. I haven't written a macro in a couple of years,
and wondered if I would be so rusty that I couldn't do it. My last post
indicates otherwise!

 

[JulieS]

Dale~
I'm pleased to act as your inspiration any day!

Julie

 

[Jim Aksel]

I was able to locate the form we created. Let me know if you need it. I can
be reached at jeaksel at yahoo dot com
--
If this post was helpful, please consider rating it.

Jim
It''s software; it''s not allowed to win.

Visit http://project.mvps.org/ for FAQs and more information
about Microsoft Project

 

[Agneta]

Thanks a lot!!! You saved my day (and night). This is really a great way to
get help. With in fact over 2000 resources in my plan I was looking at some
looong hours by the keyboard but thanks to your help it was done in a moment.