Re: I am trying to have project 2003 open up to current day by def

Hello MGB,

You are correct. You do not want anything before the line that begins
with
Private Sub Project_Open

in the window. You also do not need any of the lines that are commented
(being with a ' ) in the code either.
The basic code you need:

Private Sub Project_Open(ByVal pj As Project)
EditGoTo Date:=Now()
End Sub

should run when the project file is opened, so I'm not sure why it
appears to only be working after you scroll. It's possible that it is
taking that long for the file to open so there is a delay in the code
running.

I hope this helps. Let us know how you get along.

Julie
Project MVP

Visit http://project.mvps.org/ for the FAQs and additional information
about Microsoft Project


"MGB" <MGB@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:AC04B65B-2DEF-44DD-9F8F-4B6DB0AF77E4@xxxxxxxxxxxxxxxx
Thanks,

I opened VBE pasted:

folder (ThisProject):

Private Sub Project_Open(ByVal pj As Project)
EditGoTo Date:=Now()
'Name any additional filters you want applied here.
'This will show only summary tasks if uncommented:
'FilterApply Name:="Summary Tasks"
End Sub

into module 1 and then saved it. it did not work exactly as I would
have
guessed so... I went back in and deleted out, "folder (ThisProject):"
and
resaved it. I was not sure if that line was working or edited for my
file
correctly. It didnt seem to fit with the rest of the lines. My
project file
still opens up a couple of years too early, but if I click on the
scroll bars
once it jumps to current time. Which is ok, beats scrolling until I
see the
current date. If I overlooked something I would appreciate any
clarification.

--
-MGB


"JulieS" wrote:

MGB,

Please see fellow MVP Jack Dahlgren's site
http://masamiki.com/project/installingmacros.htm for directions on
installing macros.

I hope this helps. Let us know how you get along.

Julie
Project MVP

Visit http://project.mvps.org/ for the FAQs and additional
information
about Microsoft Project


"MGB" <MGB@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:9E4BB33E-479B-4606-8059-A998AF0EBEDD@xxxxxxxxxxxxxxxx
Sounds promising, I need a few more details to get it going I
think.
I found
the Global.mpt file and opened it. It operated like a "program"
called
organizer. I did not see Microsoft Project Objects folder. The
file
structure where I found Global.mpt is "C:\Program Files\Microsoft
Office\OFFICE11\1033". I also tried opening the file global.mpt
with
a
couple of simple editors that did not help either.
--
-MGB


"Jim Aksel" wrote:

Place the following code in your Global MPT in the Microsoft
Project
Objects
folder (ThisProject):

Private Sub Project_Open(ByVal pj As Project)
EditGoTo Date:=Now()
'Name any additional filters you want applied here.
'This will show only summary tasks if uncommented:
'FilterApply Name:="Summary Tasks"
End Sub
--
If this post was helpful, please consider rating it.

Jim
It''s software; it''s not allowed to win.

Visit http://project.mvps.org/ for FAQs and more information
about Microsoft Project



"MGB" wrote:


--
-MGB





.

Relevant Pages
Loading