Copy Text1 from/to Task to/from Assignment (MS Project 2007)

F

franklin

Similar to my previous question ... is this not possible anymore with Project
2007?

Sub CopyText1()
Dim t As Task
Dim a As Assignment
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
For Each a In t.Assignments
a.Text1 = t.Text1
'OR alternatively: t.Text1 = a.Text1
Next a
End If
Next t
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top