Looping Through NonContiguous Selections

[Jim Aksel]

Project allows us to select up to 10 groups of non-adjacent tasks. I would
like to be able to loop through them programatically---

dim tsk as task
For each tsk in [The Block of non-Contiguos Selections]
'My wonderful code goes here
tsk.Text1="Wonderful Day"
Next tsk

Does anyone have a sample that would be useful?

 

[Rod Gill]

Hi,

Try:

Sub test()
Dim Tsk As Task
For Each Tsk In Application.ActiveSelection.Tasks
Debug.Print Tsk.Name
Next Tsk
End Sub


--

Rod Gill
Project MVP

Project VBA Book, for details visit:
http://www.projectvbabook.com

NEW!! Web based VBA training course delivered by me. For details visit:
http://projectservertraining.com/learning/index.aspx

 

[Jim Aksel]

Thanks. I need to look harder in the Object Browser next time around.
Works fine.
Jim
The software is not allowed to win.

Hi,

Try:

Sub test()
Dim Tsk As Task
For Each Tsk In Application.ActiveSelection.Tasks
Debug.Print Tsk.Name
Next Tsk
End Sub


--

Rod Gill
Project MVP

Project VBA Book, for details visit:
http://www.projectvbabook.com

NEW!! Web based VBA training course delivered by me. For details visit:
http://projectservertraining.com/learning/index.aspx


----------------------------------------------------------------------------------------------------

Project allows us to select up to 10 groups of non-adjacent tasks. I
would
like to be able to loop through them programatically---

dim tsk as task
For each tsk in [The Block of non-Contiguos Selections]
'My wonderful code goes here
tsk.Text1="Wonderful Day"
Next tsk

Does anyone have a sample that would be useful?