Run Time Error

[kcpettit13]

Hello,

I am getting a Run-time error 13: Type mismatch when I enter anything in column 8 that does not = "YES". The red below is where the error is coming from. Can anyone help?

Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Column = 8 Then
If Target.Value = "YES" Then
Application.EnableEvents = False
Target.EntireRow.Copy Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
Application.EnableEvents = True
End If

Else
If Target.Column = 11 Then
If Target.Value > 0 Then
Application.EnableEvents = False
Target.EntireRow.Copy Sheets("Missing_Raws").Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
Application.EnableEvents = True
End If
End If
End If
End Sub

 

[Joe4]

What are you actually doing when this error occurs? If I just update one cell at a time, it works fine. If I try updating multiple cells at once, I get the error.

I see that error occur if more than one cell is being updated at a time (i.e. you are doing a Copy and Paste, and the Paste is going into multiple cells).
In that case, the size of Target is more than one cell, so then the line:

If Target.Value = "YES" Then

does not make sense.
You would actually need to loop through each cell in Target.