Cost Rate Table Macro request…

[R.Scott Fleming]

I have created six cost fields in the resource table for each resource.

Can someone suggest/create a macro that would perform the following?

Insert cost1 in cost rate table A with an effectively date of 1/1/2010
Insert cost2 in cost rate table A with an effectively date of 1/1/2011
Insert cost3 in cost rate table A with an effectively date of 1/1/2012
Insert cost4 in cost rate table B with an effectively date of 1/1/2010
Insert cost5 in cost rate table B with an effectively date of 1/1/2011
Insert cost6 in cost rate table B with an effectively date of 1/1/2012

Thanks...

 

[Jan De Messemaeker]

Hi,
From the other posts, I have the impression that you work in a server
environment.
Open the Enterprise resource pool to run the macro.

The macro has a a base logic

For each Reso in ativeproject.resoruces

(Handle the Pay Rates)

next Reso

To handle the Pay Rates in the cost rate table: the following is
Copied/pasted from VBA help:

Resource.CostRateTables Property
Returns a CostRateTables collection representing the cost rate tables for
the resource. Read-only Variant.
expression.CostRateTables
expression A variable that represents a Resource object.
Example
The following example lists the standard pay rates for all the cost rate
tables of the resource in the active cell.
Visual Basic for Applications
Sub ListPayRates()
Dim CRT As CostRateTable, PR As PayRate
Dim Rates As String

For Each CRT In ActiveCell.Resource.CostRateTables
For Each PR In CRT.PayRates
Rates = Rates & "CostRateTable " & CRT.Name & ": " & _
PR.StandardRate & " (Effective " & PR.EffectiveDate & _
")" & vbCrLf
Next PR
Next CRT

MsgBox Rates

End Sub


Hope this helps,
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availabliy check:
http://users.online.be/prom-ade/Calendar.pdf

 

[R.Scott Fleming]

No, we are just are running Project from local workstations... Will this
still work?

 

[Jan De Messemaeker]

Hi,

It will even be simpler then.
Where it reads Open the Enterprise resource pool simply open the project
that has the resoruces init.
HTH


--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf

 

[R.Scott Fleming]

Thank you Jan!! I will give it a try...

Hi,

It will even be simpler then.
Where it reads Open the Enterprise resource pool simply open the project
that has the resoruces init.
HTH


--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf



.

 

[R.Scott Fleming]

Can you send me your email address so I can ask one more question
off-line...Thanks..