View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default Auto tag the time in B1 to an entry in cell A!

Both do the same thing.

Type something in column A and get the time in column B

Mike's "Time" will give you just hh:mm:ss

My "Now" will give you date and time.

Depends what you want.

Mike also uses a finite range in column A.........I don't

In my code, disabling events prevents possible infinite looping.

Adding error trap re-enables events in the case of an error

Neither are likely in this case but...................

I just stick it in to be safe.


Gord

On Wed, 5 Nov 2008 13:56:00 -0800 (PST), DDavid
wrote:


What is the difference from the last post solution?

Is there a reason for not using any of both?


On 5 nov, 14:04, Gord Dibben <gorddibbATshawDOTca wrote:
Event code is a good way to go to get a static time stamp in a cell.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in any cell in Col A, time into column B
On Error GoTo enditall
* * Application.EnableEvents = False
* * * * If Target.Cells.Column = 1 Then
* * * * * * *n = Target.Row
* * * * * * * * If Me.Range("A" & n).Value < "" Then
* * * * * * Me.Range("B" & n).Value = Now
* * * * End If
* * End If
enditall:
* * Application.EnableEvents = True
End Sub

Right-click on the sheet tab and "View Code"

Copy/paste into that module. *Edit to suit then Alt + q to return to the
Excel window.

Gord Dibben *MS Excel MVP

On Wed, 5 Nov 2008 06:54:23 -0800 (PST), DDavid
wrote:

Hi guys,


I need to get a solution for this.


If write a data in Cell A1, how can I get in cell B1 the time on what
this data was writen.


Thanks in advance.


ADC