[ask] about VB Script + Ms. Project

[anak_baru]

hi guys, i'm new guy in here..but i really needs your help..

how to make algorithm for cumulative work at current date (at Task Usage view) and write it to another field like Text01?

regards,

Hello anak_baru,

In the Task Usage view, you can display the Cumulative Work : right Cclick
in a yellow cell....
Otherwise, you can write a VBA procedure using the TimeScaleData method to
do that.

Gérard Ducouret

"anak_baru" <anak_baru.3o5k3e@DoNotSpam.com> a écrit dans le message de
news: anak_baru.3o5k3e@DoNotSpam.com...
>
> hi guys, i'm new guy in here..but i really needs your help..
>
> how to make algorithm for cumulative work at current date (at Task
> Usage view) and write it to another field like Text01?
>
> regards,
>
>
> --
> anak_baru
> ------------------------------------------------------------------------
> anak_baru's Profile: http://forums.techarena.in/members/anak_baru.htm
> View this thread: [ask] about VB Script + Ms. Project
>
> http://forums.techarena.in
>

[anak_baru]

Originally Posted by Gérard Ducouret

Hello anak_baru,

In the Task Usage view, you can display the Cumulative Work : right Cclick
in a yellow cell....
Otherwise, you can write a VBA procedure using the TimeScaleData method to
do that.

Gérard Ducouret

"anak_baru" <anak_baru.3o5k3e@DoNotSpam.com> a écrit dans le message de
news: anak_baru.3o5k3e@DoNotSpam.com...
>
> hi guys, i'm new guy in here..but i really needs your help..
>
> how to make algorithm for cumulative work at current date (at Task
> Usage view) and write it to another field like Text01?
>
> regards,
>
>
> --
> anak_baru
> ------------------------------------------------------------------------
> anak_baru's Profile: http://forums.techarena.in/members/anak_baru.htm
> View this thread: [ask] about VB Script + Ms. Project
>
> http://forums.techarena.in
>

can you give me an example please..what type of timescaledata?

For example, a VBA procedure which copies the actual Work into Baseline10:

Gérard Ducouret

For Each oTâche In ActiveProject.Tasks
i = 0
For Each Ass In oTâche.Assignments
i = i + 1
Deb = oTâche.Assignments(i).Start
Fin = oTâche.Assignments(i).Finish

Set TSVs = oTâche.Assignments(i).TimeScaleData(Deb, Fin,
Type:=pjAssignmentTimescaledActualWork, _
TimeScaleUnit:=pjTimescaleDays, Count:=1)

Set TSVs2 = oTâche.Assignments(i).TimeScaleData(Deb, Fin,
Type:=pjAssignmentTimescaledBaseline10Work, _
TimeScaleUnit:=pjTimescaleDays, Count:=1)

For Each TSV In TSVs
Debug.Print i & " Début période: " & Format(TSV.StartDate, "Long
Date"), "Travail réel: " & Val(TSV.Value) / 60 & "h", oTâche.Name,
Ass.ResourceName, "Index de tranche :" & TSV.Index
'NB : Val(TSV.Value) convert the empty string to a zero
IndexCell = TSV.Index

For Each TSV2 In TSVs2
If TSV2.Index = IndexCell Then
TSV2.Value = Val(TSV.Value) '/ 60
End If
Next TSV2

Next TSV
Next Ass
Next oTâche

[anak_baru]

Originally Posted by Gérard Ducouret

For example, a VBA procedure which copies the actual Work into Baseline10:

Gérard Ducouret

For Each oTâche In ActiveProject.Tasks
i = 0
For Each Ass In oTâche.Assignments
i = i + 1
Deb = oTâche.Assignments(i).Start
Fin = oTâche.Assignments(i).Finish

Set TSVs = oTâche.Assignments(i).TimeScaleData(Deb, Fin,
Type:=pjAssignmentTimescaledActualWork, _
TimeScaleUnit:=pjTimescaleDays, Count:=1)

Set TSVs2 = oTâche.Assignments(i).TimeScaleData(Deb, Fin,
Type:=pjAssignmentTimescaledBaseline10Work, _
TimeScaleUnit:=pjTimescaleDays, Count:=1)

For Each TSV In TSVs
Debug.Print i & " Début période: " & Format(TSV.StartDate, "Long
Date"), "Travail réel: " & Val(TSV.Value) / 60 & "h", oTâche.Name,
Ass.ResourceName, "Index de tranche :" & TSV.Index
'NB : Val(TSV.Value) convert the empty string to a zero
IndexCell = TSV.Index

For Each TSV2 In TSVs2
If TSV2.Index = IndexCell Then
TSV2.Value = Val(TSV.Value) '/ 60
End If
Next TSV2

Next TSV
Next Ass
Next oTâche

error bro, can u write full script..i'm new at VB, sorry..^^

[anak_baru]

Originally Posted by Gérard Ducouret

You should look at the Rod Gill's book:

Author of the only book on Project VBA, see:
http://www.projectvbabook.com

Gérard Ducouret

i just don't know about dimension for oTâche, Ass, TSV, TSV2, TSVs, TSVs2, Deb, Fin, can you write they dimension?

really thanks,.

[anak_baru]

anak,

Hereafter is the declaration of my dimensions for this procedure:

Sub CopyActuals()
Dim TSV As TimeScaleValue, TSV2 As TimeScaleValue
Dim TSVs As TimeScaleValues, TSVs2 As TimeScaleValues
Dim oTâche As Task
Dim Ass As Assignment
Dim Deb As Date, Fin As Date
Dim NomRess As String, RessID As Integer
Dim i As Integer, Hrs_jr As Long, HowMany As Long, IndexCell As Integer

[anak_baru]

failed for summary task..:(
some summary task failed (error result), some summary task success..

can u help me again?

can u add my Yahoo Messenger? erry_32@yahoo.com

anak_baru,

If your project is not confidential, you can send it to me : you have my
email address, just REMOVETHIS and THAT.
And explain me what you want to do with this VBA procédure.

Gérard Ducouret

"anak_baru" <anak_baru.3ok7vb@DoNotSpam.com> a écrit dans le message de
news: anak_baru.3ok7vb@DoNotSpam.com...
>
> failed for summary task..:(
> some summary task failed (error result), some summary task success..
>
> can u help me again?
>
> can u add my Yahoo Messenger? erry_32@yahoo.com
>
>
> --
> anak_baru
> ------------------------------------------------------------------------
> anak_baru's Profile: http://forums.techarena.in/members/anak_baru.htm
> View this thread: [ask] about VB Script + Ms. Project
>
> http://forums.techarena.in
>

[anak_baru]

Originally Posted by Gérard Ducouret

anak_baru,

If your project is not confidential, you can send it to me : you have my
email address, just REMOVETHIS and THAT.
And explain me what you want to do with this VBA procédure.

Gérard Ducouret

ok, no problem, i can share my project with REMOVETHIS and THAT..
but..where i must sent my file, i need your email?

Erry,

1° - Most of your Summaries don't have any resource (which is complying with
the best practices). But your VB Script works only when there is at least a
resource which generates work.
2° - In the Number1 custom field, renamed "Target 2 (Value)" you have a long
formula which returns sometimes a result as a string such as "Not Yet
Started". So you get a #Error.

Hope this helps,

Gérard Ducouret

[anak_baru]

Originally Posted by Gérard Ducouret

Erry,

1° - Most of your Summaries don't have any resource (which is complying with
the best practices). But your VB Script works only when there is at least a
resource which generates work.
2° - In the Number1 custom field, renamed "Target 2 (Value)" you have a long
formula which returns sometimes a result as a string such as "Not Yet
Started". So you get a #Error.

Hope this helps,

Gérard Ducouret

1. any suggestion for this? i just want to take cumulative work for every task (included for summary task too) for current date

2. i know that, i have fixed it..

[anak_baru]

anyone can help me? please..

anak_baru wrote:
> anyone can help me? please..

You might find it easier to export the work to Excel and do the sums there.