Globally change task type

[Chris]

Hello,

How can I change all tasks in a project from default to fixed duration?

This is what I did:
- select the whole task column
- select Project > task information
- select fixed duration in task type

The problem is, when I do this the blank lines in my project automatically
get a 1 day duration, and then I have to clean up all these lines.

Thanks.

 

[JackD]

Remove the blank lines in your project. They are not a good idea.

 

[Brian K - Project MVP]

Hello,

How can I change all tasks in a project from default to fixed duration?

This is what I did:
- select the whole task column
- select Project > task information
- select fixed duration in task type

The problem is, when I do this the blank lines in my project automatically
get a 1 day duration, and then I have to clean up all these lines.

Thanks.

Try to do Jacks suggestion but if you cannot then run this VBA:

Sub ChangeType()
Dim T As Task

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
T.Type = pjFixedDuration
End If
Next T
End Sub

 

[Chris]

Thanks Jack and Brian for the quick reply!

Try to do Jacks suggestion but if you cannot then run this VBA:

Sub ChangeType()
Dim T As Task

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
T.Type = pjFixedDuration
End If
Next T
End Sub

 

[JulieS]

Hi Chris,

In addition to Jack and Brian's suggestions you can change the default to
all *new* tasks added to a project in Tools>Options, Schedule tab and change
the default task type. If you change the option before adding tasks to the
project file, all tasks will have the newly set default.

Hope this helps.
Julie

 

[sisu]

suggested code snippet fails

Project 2003 Standard SP3 running the VBA snippet:

Sub ChangeType()
Dim T As Task

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
T.Type = pjFixedDuration
End If
Next T
End Sub

Generates - Run-time error '1101': The argument value is not valid
watch shows pjFixedDuration as 1

Any changes I should make?

 

[sisu]

suggested code snippet fails - fix

This fixed it -

Sub ChangeType()
Dim T As Task

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
If T.Type <> pjFixedDuration Then
T.Type = pjFixedDuration
End If
End If
Next T
End Sub