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

Hi,

Right click your sheet tab, view code and paste this in. Alter A1 - A100 to
suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
Target.Offset(, 1).Value = Time
End If
End Sub

Mike


"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

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

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

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