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 


 MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation 

 End If 


End Sub

See also

Assignments Collection Object

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.