trying to combine automated date and automated user

[ctrp44]

hello

i am trying to get my excel sheet so that each row will show what date that row was edited last and by which user. i can get the two parts to work separately but I cannot get them to work together as it causes the workbook to crash. my code so far is this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If Target.Column < 1 Then Exit Sub
    Cells(Target.Row, "I") = Application.UserName
    Cells(Target.Row, "H") = Date
   
End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.

You don't need to check if Target.Column < 1 since that is impossible.

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.CountLarge > 1 Then Exit Sub
  If Target.Row < 2 Then Exit Sub
  Application.EnableEvents = False
  Cells(Target.Row, "H").Resize(, 2).Value = Array(Date, Application.UserName)
  Application.EnableEvents = True
End Sub