Looping through Summary Tasks in VBA

Question

I have built a VBA module to loop through and update summary tasks but it  goes through every task and checks to see if its a summary task then performs the action I need. My issue is this is becoming slow since I have almost 4,000 tasks in the schedule. Is there a way I can loop through the summary tasks only (There is only about 300 summary tasks) to speed up the VBA module?

Answer 1

Try:

1. Apply the filter Summary Tasks
2. Select all tasks
3. Loop thru selected tasks only
4. re-apply original filter (or All tasks filter)

Something like:

Sub Test()
Dim OldFilter As String
Dim OldId
Dim Tsk As Task
    OldFilter = ActiveProject.CurrentFilter
    OldId = ActiveCell.Task.ID
   
    FilterApply "Summary Tasks"
    For Each Tsk In ActiveSelection.Tasks
        If Tsk.Summary Then
            'Do your update
        End If
    Next Tsk
   
    FilterApply OldFilter
    EditGoTo ID:=OldId
End Sub

---

Rod Gill
Author of the one and only Project VBA Book and VBA developer.
www.project-systems.co.nz

Answer 2

pd,

If you are going to use Rod's excellent code directly, then you'll want to insert "SelectAll" just in front of the For statement.  Always the teacher, he's giving you something to think about....

Answer 3

pd240,

I'm curious, summary lines are not tasks but rather a summary of the subtask data under them. So what exactly are you "updating" about the summary lines?

John

Answer 4

Thanks Rod - That solution worked. 

John - I have VBA code that grabs information from an access database and brings it into the project file but I only need the data at the summary task level.  Some of the data I do need at the individual task level for reporting but for those I run a seperate module through the entire project to fill down the custom fields of the child tasks.

Answer 5

pd240,

That makes sense if the data from Access is for custom fields at summary level.

John