MS Project 2003 "Not Responding"

[y7c4g2k5]

MS Project Standard 2003
Problem - when the project file was small macros ran fine - now that
the file has grown to 3,300 tasks the macros no longer work - I get the
hour glass icon but code never finishes executing - eventually I get
"Not Responding" in the header bar and have to close the file and
reopen it in order to work on it.
(1) Is there a way to prevent this from happening?
(2) What are some things I can do in order to speed up the code - this
file is going to get bigger.
Thanking you in advance - Jay K.

 

[Rod Gill]

So if you press Ctrl+Break to interrupt the code, is it always "stuck" at
the same code?

There are lots of things you can do, but without seeing your code it is
impossible for us to say what is slowing your code down most. Can you post
it back?

Try also to get a feel for which part of the code is taking the longest by
commenting out parts of the code until you are left only with the bit that
causes the most delays.

 

[y7c4g2k5]

This is the macro that gives the "Not Responding" message in the header
bar - it worked until the file grew to 3,300 tasks.

Sub Filter_Select()

Dim ts As Tasks
Dim t As Task

For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
t.Flag10 = "No"
End If
Next t

Set ts = ActiveSelection.Tasks
For Each t In ts
If Not t Is Nothing Then
t.Flag10 = "Yes"
End If
Next t

FilterEdit Name:="select", TaskFilter:=True, Create:=True, _
OverwriteExisting:=True, FieldName:="Flag10", Test:="equals",
Value:="Yes", _
ShowInMenu:=False, ShowSummaryTasks:=False
FilterApply Name:="select"

End Sub

 

[Rod Gill]

I used:
Sub FilterSelect2()
Dim ts As Tasks
Dim t As Task
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
t.Flag10 = False
End If
Next t

Set ts = ActiveSelection.Tasks
For Each t In ts
If Not t Is Nothing Then
t.Flag10 = True
End If
Next t

FilterEdit Name:="select", TaskFilter:=True, Create:=True, _
OverwriteExisting:=True, FieldName:="Flag10", Test:="equals",
Value:="Yes", _
ShowInMenu:=False, ShowSummaryTasks:=False
FilterApply Name:="select"
End Sub

Both this macro and your macro worked fine. Mine filtered 10 selected tasks
out of 6,000 within 2 seconds.

I use Project Professional SP2, so what version do you have?

If you have the latest SP level then how much memory do you have?

If you have 512MB+ then you may need to try re-installing Project.

Does the macro work on another PC?

 

[y7c4g2k5]

Bill,

I'm using MS Project Standard 2003 and I have the sevice pack 2 upgrad
installed. I tried your code and I'm still not able to get it to run
is there some other system issues that need to be verified??
Thanks again - Jay K

 

[Jan De Messemaeker]

HI,

Unlikely but you never know - is Maco security set to low?
HTH

 

[y7c4g2k5]

Yes the macro security is set to low? Is it a reference that needs to
be established? Thanks - Jay Ki.

 

[Jan De Messemaeker]

Hi,

Reference?? I meant Tools, Macro, Security. Is that "Low"?

 

[y7c4g2k5]

Yes the macro security is set at "low". Why did it work earlier when
the file was about half the size it is now? Thank you Jay K.

 

[Gary L. Chefetz [MVP]]

Smells like possible file bloat and/or corruption in the binary record. If
this is a stand-alone project, I'd suggest saving as an Access database and
more or less following the instructions in the following FAQ, although you
don't need to save offline or follow any of the other Project Server stuff.
Simply save to mdb, flip the ext_edited bit and open the plan again.

http://www.projectserverexperts.com/Shared Documents/BinaryRebuild.htm

 

[y7c4g2k5]

I'm NOT using MS Project Professional 2003 or MS Project Server 2003
just working with MS Project Standard 2003 - how do I get the code t
run and run Faster? Thank you - Jay K

 

[Rod Gill]

Follow the instructions that Gary gave you. Just ignore an Project Server
instructions and use an Access database to save. You can't go any further
with your problem until you eliminate file bloat or corruption. To do that
follow Gary's instructions.

 

[y7c4g2k5]

Have created access database file and changed the PROJ_EXT_EDETED field
- however access changed my '1' to a '-1'. I then closed the access
database and reopened the project file but how is the change I made in
access communicated to the ms project file? Is it possible to isolate
just the code I need to run predecessor only? I really don't need
successor - thanking you in advance - Jay K.

 

[y7c4g2k5]

Please don't waste any more time on this I have decided not to use thi
code and will go in another direction with the issue - thanks again
Jay K