Sheet Change Event Dubuggin: Restrict Cell Values toand Changing cells based on input

first remove the

application.enableevents = true

line from your Build sub or you may end up stuck in a loop you can't terminate

second your code only monitors one cell-column C and the row (teststaken + 7) which you update as soon as an entry is made in a row. so once you've made an entry you are only monitoring the cell below it. I don't really know why you set it up that way so can't advise what your best solution is-it may be just to monitor the whole column C

Quick question, why take off app.enabevent = true? Don't I have to cut it back on after I cut it off?

So I did that to ignore changes above the header. changed code to If

Target.Column = 3 And Target.Row > Distance Then

Worked perfectly for updating.

How would you do for delete on update

Possible Solution?

Private Sub Worksheet_Change(ByVal Target As Range)
    
 Application.EnableEvents = False
    Build
    
If Target.Column = 3 And Target.Row > Distance Then
        item = Cells(Target.Row, 3)
        If item = vbNullString Then
            Cells(Target.Row, 1).Resize(1, 67).Clear
            Exit Sub
        End If
        If IsError(Application.Match(item, PTests, 0)) Then
            MsgBox "Please Insert Valid PTest"
            Cells(Target.Row, 3) = vbNullString
        Else: x = WorksheetFunction.Match(item, PTests, 0)

        Cells(Target.Row, 2) = Date + Time
        Cells(Target.Row, 1) = Target.Row - 6
        Cells(Target.Row, 3).Font.Color = 16711680
        Cells(Target.Row, 1).Resize(1, 2).HorizontalAlignment = xlCenter
        Cells(Target.Row, 6) = PTestsAdmin(x)
        End If
    End If

    TestsTaken = Sheet3.Cells(Distance, 1).End(xlDown)
    Build

Application.EnableEvents = True

End Sub