VBA - MS Project - Assign single task to an Object variable after using "Find"

Question

I need to programmatically make changes to a few tasks. The tasks that need changes have ID numbers in the Text10 field. I would like to avoid using a filter if possible since all of these ID numbers are different. And looping through all the tasks takes way too long since the project file is 10k+ lines. I'm not sure if "Find" is the correct method here.

Question:

Is there a way to find the task using Text10 and assign is to a "Task" object so that I can then manipulate it? The below doesn't work but can hopefully get the point across:

Sub test()

Dim t As Task

Set t = Find("Text10", "equals", "A1044Fh82")
t.SetField pjTaskDuration, 0


End Sub

Thanks!

Rachel Hettinger · Accepted Answer · 2021-08-09 22:19:37Z

1

The Find method returns True if a matching value is found, and if so, the active selection is moved to the first matching task. So check the result of the Find method and then use the ActiveCell property to get a reference to the task:

If Application.Find("Text10", "equals", "A1044Fh82") Then
    Dim t As Task
    Set t = Application.ActiveCell.Task
    t.Duration = 0
End If

answered Aug 9, 2021 at 22:19

Rachel Hettinger

8,4872 gold badges25 silver badges35 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA - MS Project - Assign single task to an Object variable after using "Find"

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related