Automatically Save after Dynamic recalculation / updation

[arshadmohamed]

Iam using a Powerpoint presentation linked to a Excel work sheet to be updated daily..

The excel worksheet is made to open at Windows startup and it updates itself after comparing the sytem date accordingly..

Is there any way i can automatically save this excel file and close after the dynamic updation ?

How to create or add the any Macro only for this particular file?

Thanx for any help

 

[P Sitaram]

At the end of procedure that carries out the updation add the line:

ActiveWorkbook.Close SaveChanges:=True

 

[arshadmohamed]

Re: Automatically Save after Dynamic recalculation / updatio

Wel,

Where to add this command?

The updation i do, is kind of function comparing the local date, for which i use IF Today()

Do i have to create a Macro and add the above said comman?

How to Create a Macro which would apply only for this file alone?

sorry if iam not very clear..

 

[P Sitaram]

Re: Automatically Save after Dynamic recalculation / updatio

okay, if the workbook does not have any code, do this:

To the left of the File menu, there is a small excel icon. Right click on the icon and choose `view code'. You will be taken to VBE-visual Basic Editor. In the top of the large white area, there will be two drop-down boxes. In the left han box choose `workbook'. You will be presented with two lines `Private Sub Workbook_Open' and End Sub. In between the lines, paste this code:

Private Sub Workbook_Open() ' Do not paste this line
    Dim response
    response = MsgBox("Save Changes and Close?", vbOKCancel)
    If response = vbCancel Then Exit Sub
    ActiveWorkbook.Close savechanges:=True
End Sub 'Don't paste this either

Now whenever the workbook is opened the user will be given an option to save and close the workbook

 

[arshadmohamed]

Re: Automatically Save after Dynamic recalculation / updatio

Thanx for the help..

It is prompting for Saving changes rite?

it does not requre for the file to be open.. coz its the Power Point Window dats gonna run..

Is it possible to make the file just close by itself? without any option ?

 

[P Sitaram]

Re: Automatically Save after Dynamic recalculation / updatio

Yes, by this code:

Private Sub Workbook_Open()     
        ActiveWorkbook.Close savechanges:=True 
End Sub

After this, if you need to use the workbook, macros have to be disabled.