none
MPP Duplicate Task Identification VBA Script RRS feed

All replies

  • Hi,

    are you looking for something like the following?

    Sub DupTasks() Dim T As Task For Each T In ActiveProject.Tasks If Not T Is Nothing Then For i = T.ID + 1 To ActiveProject.Tasks.Count If Not ActiveProject.Tasks(i) Is Nothing Then If T.Name = ActiveProject.Tasks(i).Name _ And T.Start = ActiveProject.Tasks(i).Start _ And T.Finish = ActiveProject.Tasks(i).Finish Then MsgBox "Duplicate Task: " & T.Name _
    & " " & T.ID & " " & ActiveProject.Tasks(i) End If End If Next i End If Next T End Sub

    Regards
    Barbara
    Tuesday, July 9, 2013 2:37 PM
    Moderator