Show date in cell if data changes

N

Neil G

Hi folks, not sure if this is the right forum (maybe worksheet functions?)

Basically I have a worksheet in which I enter scores, and from this produce
a table.

I would like to display in a cell below the scores matrix, a date when I
enter new scores - IE so that I can keep track of when I last updated the
scores matrix.

Possible?

Thanks
Neil
 
N

Neil G

Thanks

I looked at the page, and tried adapting your Alternate 2 to this
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("B2:U11"), .Cells) Is Nothing Then
Application.EnableEvents = False
With .Cells(14, 1)
.NumberFormat = "dd mmm yyyy"
.Value = Date
End With
Application.EnableEvents = True
End If
End With
End Sub

However, this just puts a date in 14, 1 offset from EVERY change I make in
the area B2:U11
What I actually want, is only one date to be displayed for any changes made
in that area in Cel A14 ONLY.
I'm not really any good with vbs. Can anyone suggest a mod to make it work
please.
I'll search the archievs meantime to see if I can work it out

Thanks
Neil
 
D

Dave Peterson

So if you change anything in B2:U11, then you want to change A14?

If yes, then change this:

With .Cells(14, 1)
to
With me.Cells(14, 1)

the me refers to the worksheet that owns the code--so it'll always points at
A14.
 
Top