Excel Coding: Automatic Datestamp, Field and Row Advance

Hi.  I'd like a little help with coding an Excel sheet.

I would like that when data is entered into the first cell (A1), the timestamp of entry automatically appears in B1 and cursor advances to C1 for next input.

When data is entered to C1, I would like the sheet to advance to the next row and begin the process over again with cursor awaiting input in A2.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Code something like the following into the Sheetchange event at either the worksheets or workbook objects.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 1).Value = Now
    End If
End Sub

Open in new window

Zack BarresseCEOCommented:
Actually it would be something more like this...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Target.Column = 1 Then
            Target.Offset(0, 1).Value = VBA.Now
            Target.Offset(0, 2).Select
        ElseIf Target.Column = 3 Then
            Target.Offset(1, -2).Select
        End If
        Application.EnableEvents = True
    End If
End Sub

Open in new window

This goes into the worksheet module. To install, right click the worksheet tab, select View Code, paste in the window. There can only be one Change event per module. Close the VBE window and then it should work.


Zack Barresse

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mrherndonAuthor Commented:
Thanks very much.  EXACTLY what I was looking for.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.