Likely you had an error. Errors need to be handled. The way the code is written, I doubt that you want multiple iterations.
You can run Application.EnableEvents = True, close and reopen. For a one-off run of one line, I put it in Immediate window and enterkey at end.
Then use the 2nd sub here. The 1st was my test. I found 78 runs for one change.
![]()
Dim i as Integer Private Sub Worksheet_Change(ByVal Target As Range) i = i + 1 Debug.Print i, Target.Address If Target.Column >= 12 Then Cells(Target.Row, 14) = Target.Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Target.Column >= 12 Then Cells(Target.Row, 14) = Target.Value Application.EnableEvents = True End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks