Project.Assignment.Overallocated.md

title	ms.service	api_name	ms.assetid	ms.date	ms.localizationpriority
Assignment.Overallocated property (Project)	project-server	Project.Assignment.Overallocated	739fcdcd-5ef0-754b-8868-ef3e0662a2e2	06/08/2017	medium

Assignment.Overallocated property (Project)

True if an assignment is overallocated. Read-only Boolean.

Syntax

expression. Overallocated

expression A variable that represents an Assignment object.

Example

The following example displays the percentage of resources in the active project that are overallocated.

Sub DisplayOverallocatedPercentage() 
 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim NOverallocated As Long ' Number of overallocated resources 
 
 For Each R In ActiveProject.Resources 
 If R.Overallocated Then NOverallocated = NOverallocated + 1 
 Next R 
 
 MsgBox (Str$((NOverallocated / ActiveProject.Resources.Count) * 100) _ 
 & " percent (" & Str$(NOverallocated) & "/" & Str$(ActiveProject.Resources.Count) _ 
 & ")" & " of the resources in this project are overallocated.") 
 
End Sub

[!includeSupport and feedback]