Netscape crashed while sending (pardon any duplicate post):

That dd represents the date of the month. So I think you'll have to go to
another approach.

I used a helper cell and did this:

=INT(A1/86400)&":"&HOUR(A1/86400)&":"&MINUTE(A1/86400)&":"&SECOND(A1/86400)

If A1 contained the number of seconds.



Alex wrote:

Dave,

Thank you. The delete key does exactly what I want.
I have another problem which is:
I am using the following formula to calculate the number
of seconds to the number of days:hours:minutes:seconds =
(c5/60)24. Cell C5 has the time is seconds. The cell is
formatted as custom dd --- hh:mm:ss. This works ok up to
31 days. Example, 44794.17 seconds converts to
31days:02hours:23minutes:10seconds. This is what I want.
But 46163.17 seconds convert to
01day:01hour:23minutes:10seconds. I would like it to
display 32days:01hour:minutes:10seconds and so on as the
seconds increment.
What format should I use so that the days are limited to
31 calendar days. I would like the day to continue to
increment as the seconds increment.

Thanks
Alex


-----Original Message-----
Don't hit the space bar when you're clearing cells in
column A. Hit the delete
key (on the keyboard) (or Edit|Clear|Contents).

Alex wrote:

Tom,

This code works fine when I enter a different value in
colume A. However, I would like to force the time stamp
in colume B to be blank when I enter a zero or a space
(removing the data in columew A). With the current code
when I enter a zero in colume A I get a time stamp in
colume B and when I enter a "space" in colume A I
get "#VALUE!" in colume C and D.

FYI, in colume C I have the following formula =A2/6 and
in
colume D =(c2/60)/24. Colume C and D work fine. The
time
stamp works fine. But I would like colume B to blank
when
I remove the data from colume A or enter a zero in
colume
A.

Thanks for your help.
ALEX
-----Original Message-----
Assume you will make entries one cell at a time, but
may
delete multiple
cells.

Private Sub Worksheet_Change(ByVal Target As
Excel.Range)
If Target.Count = 1 Then
On Error GoTo errHandler
If Target.Column = 1 Then
Application.EnableEvents = False
If Target.Value < "" Then
Target.Offset(0, 1).Value = Now
Else
Target.Offset(0, 1).ClearContents
End If
End If
Else
If Target.Columns.Count = 1 And _
Target(1).Column = 1 Then
Application.EnableEvents = False
For Each cell In Target
If cell.Value = "" Then _
Target.Offset(0, 1).ClearContents
Next
End If
End If
errHandler:
Application.EnableEvents = True
End Sub

Lightly tested.

Regards,
Tom Ogilvy

Alex wrote in message
...
Tom,

Thank you very much for your help. The code work
great! I
have one minor request. I would the time stamp
colume
(B)
to go back to a blank cell when I remove/delete the
data
in colume A. With the current code when I
remove/delete
data from colume A, colume B still retains the stamp
until
I enter new data in colume A and the the stamp
changes
to
the new time and date.

Thank you,
Alex
-----Original Message-----
Right click on the sheet tab and put in code like
this:

Private Sub Worksheet_Change(ByVal Target As
Excel.Range)
If Target.Count 1 Then Exit Sub
On Error GoTo errHandler
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Now
End If
errHandler:
Application.EnableEvents = True
End Sub

Regards,
Tom Ogilvy

Alex wrote in message
...
Thank you for your previous reply.
I have another problem. I want to time stamp a
cell
entry.
Example: cell A2 thru A25 are cell enrty fields
(any
value) in cell B2 thru B25 I want the date and
time
that
entries were made in the A colume.
I used the following in B2 thru B25 =IF(A20,NOW
(),IF
(A2=0,"")). This works except that when I enter
another
value in the next A cell (A3) the pervious date
and
time
in the B colume (B2) changes to the lastest time
entry
in
A3.
I tried using Excel help but I can't find anything
that
discribes what I want to do.
Trying to simplfy. When I enter data in A2 date
andtime
stamp in B2 and keep that time. If ten minutes
later
I
enter data in A3 B3 should date and time the
entry.
The
entries should be 10 minutes apart.

Thank you,
Alex


.



.


--

Dave Peterson

.


--

Dave Peterson