Prev: how do i close out a task in EPM
Next: MPP File
From: R.Scott Fleming on 6 Feb 2010 12:20
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...
From: Jan De Messemaeker on 6 Feb 2010 14:03
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" <RScottFleming(a)discussions.microsoft.com> wrote in message
news:2581F324-E1F9-4FF3-8243-58CB41DD43D4(a)microsoft.com...
>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...

From: R.Scott Fleming on 6 Feb 2010 15:50
No, we are just are running Project from local workstations... Will this
still work?

"Jan De Messemaeker" wrote:

> 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" <RScottFleming(a)discussions.microsoft.com> wrote in message
> news:2581F324-E1F9-4FF3-8243-58CB41DD43D4(a)microsoft.com...
> >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...
>
> .
>
 | 
Pages: 1
Prev: how do i close out a task in EPM
Next: MPP File