functions

[ludite]

Indicate in a cell when a spreadsheet has been changed e.g. mailing lists

[Don Guillett]

Is there a question here?

--
Don Guillett
SalesAid Software
[email protected]
"ludite" <[email protected]> wrote in message
news:[email protected]...
> Indicate in a cell when a spreadsheet has been changed e.g. mailing lists

[ludite]

I have spreadsheets that I must keep track of when they were last edited. I
don't want the date it was opened =NOW() or =TODAY(), only if the spreadsheet
is changed. Is it possible to have that entered in a cell?
"ludite" wrote:

> Indicate in a cell when a spreadsheet has been changed e.g. mailing lists

[Don Guillett]

If you want an update each time ANY change is made copy paste this to the
macro module of the ThisWorkbook. Be aware that this will fire EACH time any
change is made.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sheets("sheet1").Range("c4") = Date
Application.EnableEvents = True

End Sub
--
Don Guillett
SalesAid Software
[email protected]
"ludite" <[email protected]> wrote in message
news:[email protected]...
>I have spreadsheets that I must keep track of when they were last edited. I
> don't want the date it was opened =NOW() or =TODAY(), only if the
> spreadsheet
> is changed. Is it possible to have that entered in a cell?
> "ludite" wrote:
>
>> Indicate in a cell when a spreadsheet has been changed e.g. mailing lists

[ludite]

Don
Thank you for your help. I have created the macro as you outlined below but
perhaps I need to clarify my understanding of "an update each time ANY change
is made ". I would like to be able to enter the date a spreadsheet is
updated in a cell on the sheet. Is there a function that does this?

"Don Guillett" wrote:

> If you want an update each time ANY change is made copy paste this to the
> macro module of the ThisWorkbook. Be aware that this will fire EACH time any
> change is made.
>
>
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
> Application.EnableEvents = False
> Sheets("sheet1").Range("c4") = Date
> Application.EnableEvents = True
>
> End Sub
> --
> Don Guillett
> SalesAid Software
> [email protected]
> "ludite" <[email protected]> wrote in message
> news:[email protected]...
> >I have spreadsheets that I must keep track of when they were last edited. I
> > don't want the date it was opened =NOW() or =TODAY(), only if the
> > spreadsheet
> > is changed. Is it possible to have that entered in a cell?
> > "ludite" wrote:
> >
> >> Indicate in a cell when a spreadsheet has been changed e.g. mailing lists
>
>
>

[ludite]

Don
The macro to insert updated date in spreadsheets is working very well.
Thanks.

"ludite" wrote:

> Don
> Thank you for your help. I have created the macro as you outlined below but
> perhaps I need to clarify my understanding of "an update each time ANY change
> is made ". I would like to be able to enter the date a spreadsheet is
> updated in a cell on the sheet. Is there a function that does this?
>
> "Don Guillett" wrote:
>
> > If you want an update each time ANY change is made copy paste this to the
> > macro module of the ThisWorkbook. Be aware that this will fire EACH time any
> > change is made.
> >
> >
> > Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
> > Application.EnableEvents = False
> > Sheets("sheet1").Range("c4") = Date
> > Application.EnableEvents = True
> >
> > End Sub
> > --
> > Don Guillett
> > SalesAid Software
> > [email protected]
> > "ludite" <[email protected]> wrote in message
> > news:[email protected]...
> > >I have spreadsheets that I must keep track of when they were last edited. I
> > > don't want the date it was opened =NOW() or =TODAY(), only if the
> > > spreadsheet
> > > is changed. Is it possible to have that entered in a cell?
> > > "ludite" wrote:
> > >
> > >> Indicate in a cell when a spreadsheet has been changed e.g. mailing lists
> >
> >
> >