Analysis Resource for many projects

[Verossa]

Hi All

I want to export resource data to MS Excel (Analyse Timescale Data). My project file contains 4 individual projects and I need the output to be displayed with some type of project identifer. At the present, all the resources are lumped together and I cannot see which project they correspond to

I've tried numerous filters and nothing is working. Can anyone assist? Is there a VBA macro I can purchase to enable this functionality? In actual fact is there a resource that sells MS Project VBA Macro's that add additional functionality

I am having a tough day with MS Project today - just look at the number of posts (...and I thought the worst was over

I'm going for a beer - thanks in advance to all who respond
Ver
(Should I post this in the VB NG?)

 

[Gérard Ducouret]

Hello Verossa,

I think that a simple VBA routine could insert the Project name or Project
code beside the task names.
So it would be easy to sort the sort tasks by project in Excel.

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris

Hi All,

I want to export resource data to MS Excel (Analyse Timescale Data). My

project file contains 4 individual projects and I need the output to be
displayed with some type of project identifer. At the present, all the
resources are lumped together and I cannot see which project they correspond
to.

I've tried numerous filters and nothing is working. Can anyone assist?

Is there a VBA macro I can purchase to enable this functionality? In actual
fact is there a resource that sells MS Project VBA Macro's that add
additional functionality?

I am having a tough day with MS Project today - just look at the number of

posts (...and I thought the worst was over)

 

[Gérard Ducouret]

Good evening Verossa,
Try the following VBA procedure. I tested on only 3 WBS levels, but you
could adapt it for more.
The VBA procedure uses the Text10 and the Flag1 fields. You can change that.

Hope this helps,

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris

Sub Tache_Projet()
Dim oTache As Object, NomProj As String

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
oTache.Text10 = oTache.Name 'Copie de sécurité...
If oTache.Flag1 = False Then 'pour ne pas insérer le nom 2 fois
If oTache.Parent = "Microsoft Project" Then
NomProj = oTache.Name
GoTo Suite
End If
If oTache.Parent.Parent = "Microsoft Project" Then
NomProj = Left(oTache.Parent.Name, Len(oTache.Parent.Name) -
4)
GoTo Suite
End If
If oTache.Parent.Parent.Parent = "Microsoft Project" Then
NomProj = Left(oTache.Parent.Parent.Name,
Len(oTache.Parent.Parent.Name) - 4)
GoTo Suite
End If
Suite:
oTache.Name = NomProj & " " & oTache.Name
oTache.Flag1 = True
End If
End If
Next

End Sub

Hi All,

I want to export resource data to MS Excel (Analyse Timescale Data). My

project file contains 4 individual projects and I need the output to be
displayed with some type of project identifer. At the present, all the
resources are lumped together and I cannot see which project they correspond
to.

I've tried numerous filters and nothing is working. Can anyone assist?

Is there a VBA macro I can purchase to enable this functionality? In actual
fact is there a resource that sells MS Project VBA Macro's that add
additional functionality?

I am having a tough day with MS Project today - just look at the number of

posts (...and I thought the worst was over)

 

[Verossa]

Good Morning Gerard

Apologies for not responding earlier - this is the first opportunity I've had to view the NG

Thanks for the code, its very kind of you to provide this. I've never delved into VBA Macro's in any application and therefore I am not sure how to install this code (slightly embarressing - red face). Could you provide some instructions

Thanks again Gerard - I owe you a drink (or two

Vers

 

[Gérard Ducouret]

Hello Verossa,

Copy all the VBA procédure, from the Sub... to the End Sub lines.
Go to MS Project : Alt + F11 key (or Tools / /Macros / Visual Basic Editor)
In the Visual Basic Editor, insert a new module : Insert / Module
Edit / Paste

To run the macro :

Tools / Macro / Macros... / select the Tache_Projet macro and click the Run
button

If you really adopt this macro, you could present an easiest way to run it :
create a new button in a tool bar:
Right Click on any tool of any tool bar. Select Customize...
In the Commands tab, go down to find the All Macros category
In the right hand window, find your macro. select it with the mouse and
drag/drop it (left button down) on a tool bar. It'll insert between 2
buttons.

The new button is working , but not very beautiful. You can improve its
façade :
(Keep the Customize dialog open)
Right Click the new button : Name (change the tip-info bubble)
Right Click the new button : Default Style : it becomes a square
Right Click the new button : Change image button

That's all

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris

Good evening Verossa,
Try the following VBA procedure. I tested on only 3 WBS levels, but you
could adapt it for more.
The VBA procedure uses the Text10 and the Flag1 fields. You can change that.

Hope this helps,

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris

Sub Tache_Projet()
Dim oTache As Object, NomProj As String

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
oTache.Text10 = oTache.Name 'Copie de sécurité...
If oTache.Flag1 = False Then 'pour ne pas insérer le nom 2 fois
If oTache.Parent = "Microsoft Project" Then
NomProj = oTache.Name
GoTo Suite
End If
If oTache.Parent.Parent = "Microsoft Project" Then
NomProj = Left(oTache.Parent.Name, Len(oTache.Parent.Name) -
4)
GoTo Suite
End If
If oTache.Parent.Parent.Parent = "Microsoft Project" Then
NomProj = Left(oTache.Parent.Parent.Name,
Len(oTache.Parent.Parent.Name) - 4)
GoTo Suite
End If
Suite:
oTache.Name = NomProj & " " & oTache.Name
oTache.Flag1 = True
End If
End If
Next

End Sub

Hi All,

I want to export resource data to MS Excel (Analyse Timescale Data). My

project file contains 4 individual projects and I need the output to be
displayed with some type of project identifer. At the present, all the
resources are lumped together and I cannot see which project they correspond

to.

I've tried numerous filters and nothing is working. Can anyone assist?

Is there a VBA macro I can purchase to enable this functionality? In actual
fact is there a resource that sells MS Project VBA Macro's that add
additional functionality?

I am having a tough day with MS Project today - just look at the number

of
posts (...and I thought the worst was over)

I'm going for a beer - thanks in advance to all who respond.
Vers
(Should I post this in the VB NG?)

 

[verossa]

Hi Gerard,

Thanks for the response - so much detail - you're very kind.

I owe you a much more in-depth response, so please accept my apologies. It
8:10pm here and I'm going out with the girl friend for a meal.

I'll review your post tomorrow and respond in detail.

Hope you are having (or have had) a good day.
Vers

Hello Verossa,

Copy all the VBA procédure, from the Sub... to the End Sub lines.
Go to MS Project : Alt + F11 key (or Tools / /Macros / Visual Basic Editor)
In the Visual Basic Editor, insert a new module : Insert / Module
Edit / Paste

To run the macro :

Tools / Macro / Macros... / select the Tache_Projet macro and click the Run
button

If you really adopt this macro, you could present an easiest way to run it :
create a new button in a tool bar:
Right Click on any tool of any tool bar. Select Customize...
In the Commands tab, go down to find the All Macros category
In the right hand window, find your macro. select it with the mouse and
drag/drop it (left button down) on a tool bar. It'll insert between 2
buttons.

The new button is working , but not very beautiful. You can improve its
façade :
(Keep the Customize dialog open)
Right Click the new button : Name (change the tip-info bubble)
Right Click the new button : Default Style : it becomes a square
Right Click the new button : Change image button

That's all

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris


"Gérard Ducouret" <[email protected]> a écrit dans le message
de news:uqjP6%[email protected]...

Good evening Verossa,
Try the following VBA procedure. I tested on only 3 WBS levels, but you
could adapt it for more.
The VBA procedure uses the Text10 and the Flag1 fields. You can change that.

Hope this helps,

Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris

Sub Tache_Projet()
Dim oTache As Object, NomProj As String

For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
oTache.Text10 = oTache.Name 'Copie de sécurité...
If oTache.Flag1 = False Then 'pour ne pas insérer le nom 2 fois
If oTache.Parent = "Microsoft Project" Then
NomProj = oTache.Name
GoTo Suite
End If
If oTache.Parent.Parent = "Microsoft Project" Then
NomProj = Left(oTache.Parent.Name, Len(oTache.Parent.Name) -
4)
GoTo Suite
End If
If oTache.Parent.Parent.Parent = "Microsoft Project" Then
NomProj = Left(oTache.Parent.Parent.Name,
Len(oTache.Parent.Parent.Name) - 4)
GoTo Suite
End If
Suite:
oTache.Name = NomProj & " " & oTache.Name
oTache.Flag1 = True
End If
End If
Next

End Sub

"Verossa" <[email protected]> a écrit dans le message de

Hi All,

I want to export resource data to MS Excel (Analyse Timescale Data).

My
project file contains 4 individual projects and I need the output to be
displayed with some type of project identifer. At the present, all the
resources are lumped together and I cannot see which project they correspond

to.

I've tried numerous filters and nothing is working. Can anyone

assist?
Is there a VBA macro I can purchase to enable this functionality? In actual
fact is there a resource that sells MS Project VBA Macro's that add
additional functionality?

I am having a tough day with MS Project today - just look at the

number

of
posts (...and I thought the worst was over)