Run-time error'13: Type Mismatch Error

[reubanrao93]

Evening gurus,

This VBA is to delete rows for any cells of Columns I containing "Failed" followed by cells on Column N containing "VALUE!". It works flawlessly for Column I criteria whoever 'Run-time error'13: Type Mismatch Error' occurs on Column N. All the columns has been pasted as value hence the cell VALUE! does not have any reference. Is there anything I'm missing here?

Application.ScreenUpdating = True

Sheets("OUTPUT").Range("I:I").Select
Last = Cells(Rows.Count, "I").End(xlUp).Row
For I = Last To 1 Step -1
If (Cells(I, "I").Value) = "Failed" Then
Cells(I, "A").EntireRow.Delete
End If
Next I

Sheets("OUTPUT").Range("N:N").Select
Last = Cells(Rows.Count, "N").End(xlUp).Row
For N = Last To 1 Step -1
If (Cells(N, "N").Value) = "VALUE!" Then <--- Run-time error'13: Type Mismatch occurs here
Cells(N, "A").EntireRow.Delete
End If
Next N

End Sub

 

[MARK858]

Are you sure that you have VALUE! in the cell and not #VALUE!

 

[mohadin]

Hi
I guess something like

If VarType(Cells(N, "N").Value) = vbError Then

 

[MARK858]

Just

If Cells(N, "N").Text = "#VALUE!" Then

will probably do if @reubanrao93 does have #VALUE! in the cell.

 

[mohadin]

As well

 

[MARK858]

As well

I put "Just" because it avoids a function call.

 

[reubanrao93]

Just

If Cells(N, "N").Text = "#VALUE!" Then

will probably do if @reubanrao93 does have #VALUE! in the cell.

My goodness, I've been looking at the code for hours and didn't notice the missing "#". Thank you very much

 

[reubanrao93]

Just

If Cells(N, "N").Text = "#VALUE!" Then

will probably do if @reubanrao93 does have #VALUE! in the cell.

Yeap missing that "#". Solved it, much appreciated.