put this code into Sheet1's Module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 Then If Target.Value <> "" Then If Target.Column = 3 And Target.Row > 1 Then Target(1, -1) = Format(Now, "dd-mmm-yyyy hh:mm:ss") Target(1, 0) = Application.UserName End If End If End If End Sub
On Thu, Sep 16, 2010 at 1:14 AM, JMac <jsvi...@gmail.com> wrote: > I have a worksheet in which I'd like to auto insert the date/time into > a cell in column A and the username into column B, if data is entered > or changed in the same row in column C. > What would be the best way to accomplish this ? > Thanks > Jeff -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe
ctv_Auto_Datetime_n_UserName.xls
Description: MS-Excel spreadsheet
