Deleting a row if number is entered into cell unless another cell contains a number

[RayKIII]

Excel 2016, Windows 10

I am trying to find a way to delete any data entered into a row if specific text (130 0r 911) in entered into a cell (A4) unless another cell (A1) contains specific text (5). So if the users enter 1 in A1 and then a name in A2 and address in A3 and the 130 in A4 it deletes all data entered into A1, A2, A3, and A4. Now if the users enter a 5 in A1 and 130 0r 911 in A4 then it does nothing and they can continue to enter the data ion the row. I believe this is straight forward but if there are any questions, please let me know.

 

[DanteAmor]

I guess you meant A1, B1, C1 and D1, the cells to check are A1 and D1 of row 1

Put the following code in the events of your sheet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then Exit Sub
        If Target.Value = 130 Or Target.Value = 911 Then
            If Cells(Target.Row, "A").Value <> 5 Then
               Range(Cells(Target.Row, "A"), Cells(Target.Row, "D")) = ""
            End If
        End If
    End If
End Sub

 

[RayKIII]

Thank you for your response. You are correct, I did mean A1, B1, C1, and D1. Unfortunately, I am still unable to get this to work.

 

[DanteAmor]

Press Right click on tab sheet, select View Code; In the panel that opens paste code.

Go back to the sheet and capture data

 

[RayKIII]

I have and it does not appear to be working.

https://drive.google.com/file/d/1nGkmNaECp_N8MyaaDbT1M7ByQJ05Vtqy/view?usp=sharing

 

[DanteAmor]

You put the code in Thisworkbook, in your VBAProject press double click on "Sheet (Sheet1)" in the panel that opens paste the code.

Go back to the sheet and capture data again.

 

[RayKIII]

OK, sorry about that! Yes, that did it! Thank you very much!!

 

[DanteAmor]

I'm glad to help you!