VBA 2003 to 2010

Member for

15 years 7 months

mr fabian 

ı just copy the text to global. mpt and it works , if you still have problems could you try to insert a new module and paste 

 

Private Sub Project_BeforeSave()
Dim t As Task
Dim ts As Tasks
Dim A As Assignment
Set ts = ActiveProject.Tasks
For Each t In ts
    If (Not t Is Nothing) Then
        For Each A In t.Assignments
            'change the following line to use
            'for a different custom field
            A.Text5 = t.Text5
           
        Next A
    End If
Next t
End Sub
 
 and run this script manually 
 
best regards.

Member for

15 years 8 months

Could you pls verify you have SP1 and August Hotfix applied to Project 2010 ?

Regards,

Ismet