is there a cell update event? 1

[Davefeet]

I have an excel workbook, each row is a record, I want column A to be updated with the current date whenever anybody changes anything or adds antything into any other cell in that same row.


Any suggestions

SLC: Greatest snow on earth!!!

 

[JGillespie]

right click on sheet tab and View Code

paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)
MyRow = Target.Row
Cells(MyRow, 1).Value = Now()

End Sub

should work fine

Jamie Gillespie
j-gillespie@s-cheshire.ac.uk

 

[Davefeet]

That isn't working, am I missing something here.
I see what you are doin but doesnt seem to work.

any other suggestions

SLC: Greatest snow on earth!!!

 

[JGillespie]

any errors? are you moving off cell once edited?

works for me

Jamie Gillespie
j-gillespie@s-cheshire.ac.uk

 

[Davefeet]

yes I am moving off cell
and no errors



SLC: Greatest snow on earth!!!

 

[JGillespie]

macros enabled?

Jamie Gillespie
j-gillespie@s-cheshire.ac.uk

 

[Davefeet]

yep

I have other macros that work

Is it working in your workbook

SLC: Greatest snow on earth!!!

 

[xlbo]

Have you pasted it into the WORKSHEET module or a standard module

ie did you right click on the sheet tab and choose "View Code" or did you go to the VBE and insert a module (or add it to an existing module)



Rgds, Geoff
[blue]Experience is something you don't get until just after you need it[/blue]
We want to help [red]you[/red] Help us by reading this FAQ 1st faq222-2244

 

[Davefeet]

Got it to work, this is all in the worksheet.


Sub Worksheet_Change(ByVal Target As Range)
Myrow
End Sub


Public Sub Myrow()
Dim Myrow As Integer
Myrow = Selection.Row
Cells(Myrow, 1).Value = Now()
End Sub


SLC: Greatest snow on earth!!!

 

[xlbo]

Another thing to try - run this from a standard module

sub Enabler()
application.enableevents = true
end sub

Rgds, Geoff
[blue]Experience is something you don't get until just after you need it[/blue]
We want to help [red]you[/red] Help us by reading this FAQ 1st faq222-2244

 

[Davefeet]

That is wierd I tried what you suggested and now it works, the difference is I dimensioned MyRow
Thanks for all your help

Sub Worksheet_Change(ByVal Target As Range)
Dim Myrow As Integer
Myrow = Target.Row
Cells(Myrow, 1).Value = Now()
End Sub


SLC: Greatest snow on earth!!!

 

[JGillespie]

glad to have helped!

Jamie Gillespie
j-gillespie@s-cheshire.ac.uk