This is event code; it needs to go under the sheet that you are working on:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$A$1:$b$400")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Sheet2")
.Select
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Target.Address
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Target.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Now()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InputBox("You've made a change to the Rates tab.
Please enter your name here for historical purposes.")
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End If
End Sub
....reset the target range.
HTH,
Ryan---
--
RyGuy
"Neon520" wrote:
> Hi Niek,
>
> Thank you for the link you posted.
> Can you make a small change to the code so that the Date Stamp stay in a
> certain assigned column range, instead of using the Offset?
>
> I tried using Range ("C2:C10") but then the Date Stamp show up the whole
> range instead of BASE upon the data entry of each row.
>
> Thank you,
> Neon520
>
>
> "Niek Otten" wrote:
>
> > Look here:
> >
> > http://www.mcgimpsey.com/excel/timestamp.html
> >
> > --
> > Kind regards,
> >
> > Niek Otten
> > Microsoft MVP - Excel
> >
> > "Neon520" <(E-Mail Removed)> wrote in message
> > news:AFEAE73A-BF57-4BFD-B444-(E-Mail Removed)...
> > > Hi Everyone,
> > >
> > > Is there a way to put in "DATE STAMP" in a Column if someone is modifying
> > > a
> > > particular row?
> > > Let's say if someone is modifying Row 10 of Any Column A-F, then put in a
> > > Date Stamp that say "Modified by Username <DATE>". I believe the username
> > > can be pull off from the username of the Excel Application.
> > > And this Date Stamp should be automatically updated if another person make
> > > any modification to Row 10 again.
> > >
> > > Thanks for any suggestion.
> > >
> > > Neon520
> >
Similar Threads
