Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub Task_CF_To_Resource_Usage()
Dim Reso As Resource
Dim Task_As As Assignment
Dim Reso_As As Assignment
Dim Job As Task
For Each Job In ActiveProject.Tasks
If Not Job Is Nothing Then
For Each Task_As In Job.Assignments
Task_As.Flag1 = Job.Flag1
Set Reso = ActiveProject.Resources(Task_As.ResourceID)
For Each Reso_As In Reso.Assignments
If Reso_As.TaskID = Job.ID Then
Reso_As.Flag1 = Task_As.Flag1
End If 'TaskID
Next Reso_As
Next Task_As
End If 'Nothing
Next Job
End Sub