ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA time date stamp (https://www.excelbanter.com/excel-programming/434553-vba-time-date-stamp.html)

naslami

VBA time date stamp
 
I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.

Mike Middleton[_2_]

VBA time date stamp
 
naslami -

Any suggestions? Ultimately I want to load this file onto a Palm Pilot for
use in the field. <


I suggest you first check to see if there is a version of software for the
Palm Pilot that supports Excel VBA.

- Mike
http://www.MikeMiddleton.com


"naslami" wrote in message
...
I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in
that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.



naslami

VBA time date stamp
 
Yes, I am working on that...but even if I find a Palm that supports VBA, I
still cannot
get the file to work on the computer after I open and close it...

"Mike Middleton" wrote:

naslami -

Any suggestions? Ultimately I want to load this file onto a Palm Pilot for
use in the field. <


I suggest you first check to see if there is a version of software for the
Palm Pilot that supports Excel VBA.

- Mike
http://www.MikeMiddleton.com


"naslami" wrote in message
...
I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in
that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.




leung

VBA time date stamp
 

if the problem is from the setting of "excel VBA security is set at high "
after you set to low you need to exit Excel application to make it effective.



"naslami" wrote:

Yes, I am working on that...but even if I find a Palm that supports VBA, I
still cannot
get the file to work on the computer after I open and close it...

"Mike Middleton" wrote:

naslami -

Any suggestions? Ultimately I want to load this file onto a Palm Pilot for
use in the field. <


I suggest you first check to see if there is a version of software for the
Palm Pilot that supports Excel VBA.

- Mike
http://www.MikeMiddleton.com


"naslami" wrote in message
...
I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in
that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.





All times are GMT +1. The time now is 01:19 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com