PDA

View Full Version : Applying actual work on specific dates



hagan_333
12-18-2012, 05:48 PM
Hi there,

I am trying to eliminate some tedious data entry, and have a macro fill actual work data into tasks from an excel file the resources fill out. Reading from the excel file is simple enough, I just cannot get the work to insert properly into project. For example,
Dim tSet As Tasks
Set tSet = ActiveProject.Tasks
Dim t As Task
For Each t In tSet
If Not t Is Nothing Then
If Not t.Summary Then
If t.WBS = "2.2.2.1.1.1" Then

t.ActualWork = 6000


End If
End If
End If
Next t
End Sub

This code ends up filling 100 hours for 8 hours a day, starting on the start date of the task. What I would like to do is sign specific values onto specific dates. Is there a workaround to do this or is it even possible?

Thanks!