Got a macro that works perfectly to filter out dependent tasks within a subproject. As I am using this in Master Project dependency will appear as a path to the other file and the macro is not working.
Following is the code used. Is there any solution to this problem Sub DefinePath()
Dim T As Task Dim I As Long
‘Clear the existing filter Application.FilterClear
‘Capture the selected task I = Application.ActiveCell.Task.UniqueID
‘Flag the Predecessors and Successors For Each T In ActiveProject.Tasks T.Text10 = “” If T.UniqueID = I Then T.Text10 = “Selected Task” End If If T.PathPredecessor = True Then T.Text10 = “Predecessor” End If If T.PathSuccessor = True Then T.Text10 = “Successor” End If Next T
‘Apply a filter on the flagged tasks SetAutoFilter FieldName:=”Text10″, FilterType:=pjAutoFilterIn, _ Criteria1:=”Predecessor” & Chr$(9) & “Successor” & Chr$(9) & “Selected Task”