Sequential Numbering

[Sperrier]

I need to re-organize a GANTT I received that has been sorted so that the
task numbers are out of order. I think I need to use a text column filled
with numbers that will permit me to re-sort to the original order when I need
to. Does MSP have a fill function like Excel that permits me to fill the
Task1 column automatically? Alternatives?

Thanks very much.

Regards,

 

[John]

I need to re-organize a GANTT I received that has been sorted so that the
task numbers are out of order. I think I need to use a text column filled
with numbers that will permit me to re-sort to the original order when I need
to. Does MSP have a fill function like Excel that permits me to fill the
Task1 column automatically? Alternatives?

Thanks very much.

Regards,

Sperrier,
Rather than set up some elaborate scheme to capture the existing sort,
why not go to Project/Sort/Sort By and find out what criteria was used.
Then just jot that information down and use it to re-establish the sort.

To answer your basic question, no, Project does not have a automatic
fill down feature like Excel. You will have to manually enter the
sequential numbers in a spare field - although this process could easily
be automated with the following VBA macro.

Sub fill_down_S()
Dim t As Task
Dim i As Integer
For Each t In activeproject.Tasks
i = i + 1
t.Number1 = i
Next t
End Sub


John
Project MVP

 

[Sperrier]

Wow. Easy and simple. Sometimes just like me...

 

[John]

Wow. Easy and simple. Sometimes just like me...

Sperrier,
Glad we could help and thanks for the feedback.
John

 

[Dytham]

A generic answer to when you feel you need Excel type functionality, is
obviously just to do it in Excel, copy / pasting as necessary. This includes
using Excel for charts.

 

[John]

Sperrier,
Rather than set up some elaborate scheme to capture the existing sort,
why not go to Project/Sort/Sort By and find out what criteria was used.
Then just jot that information down and use it to re-establish the sort.

To answer your basic question, no, Project does not have a automatic
fill down feature like Excel. You will have to manually enter the
sequential numbers in a spare field - although this process could easily
be automated with the following VBA macro.

Sub fill_down_S()
Dim t As Task
Dim i As Integer
For Each t In activeproject.Tasks
i = i + 1
t.Number1 = i
Next t
End Sub


John
Project MVP

John,
For Pete's sake, can't you get it right? Using the code you posted will
NOT number the sorted file as desired. However, the following code will:

Sub fill_down_X()
Dim t As Task
Dim i As Integer
SelectTaskColumn
For Each t In ActiveSelection.Tasks
i = i + 1
t.Number1 = i
Next t
End Sub

Boy, I've got to watch you every step of the way . . .

Regards,
Bob

 

[Sperrier]

Thanks to you all.

Regards,

A generic answer to when you feel you need Excel type functionality, is
obviously just to do it in Excel, copy / pasting as necessary. This includes
using Excel for charts.

 

[JulieS]

:

John,
For Pete's sake, can't you get it right? Using the code you posted will
NOT number the sorted file as desired. However, the following code will:

Sub fill_down_X()
Dim t As Task
Dim i As Integer
SelectTaskColumn
For Each t In ActiveSelection.Tasks
i = i + 1
t.Number1 = i
Next t
End Sub

Boy, I've got to watch you every step of the way . . .

Regards,
Bob

Bob,

Why did you drag Pete into this??!

And please, be nice to John -- he's allowed the occassional OOOPs. He's
forgotten more about Project than I'll ever know.

Regards,
Esmerelda

 

[John]

Thanks to you all.

Regards,

Sperrier,
You're welcome.
John