H
Hadi
Hello Experts,
I have master file with about 50 subprojects inside. they're linked and all
posted on our Project Server 2003. I'm trying to find a way to popluate an
Enterprise Project Text Field in a batch fashion without having to open each
project file, and populate the data. So i opened the master project and all
of its subprojects. I populated the Enterprise Project Text Field at the
project name level (Outline level 1) using the Entry Table and then tried to
use the Macro below to fill down to the lower tier summary tasks and subtasks
but for some reason the Macro is not working...here is what i have
Sub TaskSummaryCustomField()
Dim t As Task
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
If t.OutlineLevel > 1 Then
t.EnterpriseProjectText21= = t.OutlineParent.EnterpriseProjectText21
End If
Next t
End Sub
I think i know the problem but dont know how to fix it. I think this Macro
works in a local file enviornment but not so much in a master/subproject
enviornment.
Thank you for your help
Hadi
I have master file with about 50 subprojects inside. they're linked and all
posted on our Project Server 2003. I'm trying to find a way to popluate an
Enterprise Project Text Field in a batch fashion without having to open each
project file, and populate the data. So i opened the master project and all
of its subprojects. I populated the Enterprise Project Text Field at the
project name level (Outline level 1) using the Entry Table and then tried to
use the Macro below to fill down to the lower tier summary tasks and subtasks
but for some reason the Macro is not working...here is what i have
Sub TaskSummaryCustomField()
Dim t As Task
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
If t.OutlineLevel > 1 Then
t.EnterpriseProjectText21= = t.OutlineParent.EnterpriseProjectText21
End If
Next t
End Sub
I think i know the problem but dont know how to fix it. I think this Macro
works in a local file enviornment but not so much in a master/subproject
enviornment.
Thank you for your help
Hadi