Prev: MPP File
Next: Make a task appear multiple times?
From: Jan De Messemaeker on 7 Feb 2010 04:13
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" <RScottFleming(a)discussions.microsoft.com> wrote in message
news:DEA3EA7B-52A9-4D7D-8283-C673D58BC9D2(a)microsoft.com...
> 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...
>>
>> .
>>


From: R.Scott Fleming on 8 Feb 2010 22:28
Thank you Jan!! I will give it a try...

"Jan De Messemaeker" wrote:

> 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" <RScottFleming(a)discussions.microsoft.com> wrote in message
> news:DEA3EA7B-52A9-4D7D-8283-C673D58BC9D2(a)microsoft.com...
> > 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...
> >>
> >> .
> >>
>
>
> .
>
From: R.Scott Fleming on 12 Feb 2010 17:46
Can you send me your email address so I can ask one more question
off-line...Thanks..

"Jan De Messemaeker" wrote:

> 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" <RScottFleming(a)discussions.microsoft.com> wrote in message
> news:DEA3EA7B-52A9-4D7D-8283-C673D58BC9D2(a)microsoft.com...
> > 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: MPP File
Next: Make a task appear multiple times?