Assignments.Count property (Project)
Gets the number of items in the Assignments collection. Read-only Long.
expression A variable that represents an 'Assignments' object.
The following example prompts the user for the name of a resource and then assigns that resource to tasks without any resources.
Sub AssignResource() Dim T As Task ' Task object used in For Each loop Dim R As Resource ' Resource object used in For Each loop Dim Rname As String ' Resource name Dim RID As Long ' Resource ID RID = 0 RName = InputBox$("Enter the name of a resource: ") For Each R in ActiveProject.Resources If R.Name = RName Then RID = R.ID Exit For End If Next R If RID <> 0 Then ' Assign the resource to tasks without any resources. For Each T In ActiveProject.Tasks If T.Assignments.Count = 0 Then T.Assignments.Add ResourceID:=RID End If Next T Else MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation End If End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.