vba to evaluate every cell from BI49 to the last row and if there's an N/A then pop up an error message and exit program

[parkerbelt]

I'm looking for the vba to evaluate every cell from BI49 to the last row and if there's an N/A then pop up an error message and exit program.

I had a similar request yesterday, but I can't get the syntax right.

 

[mole999]

if you quit automatically post message then surely you can't fix in programme

 

[Fluff]

If the range contains N/A rather than #N/A try

Sub Chk()
If WorksheetFunction.CountIf(Range("BI49", Range("BI" & Rows.Count).End(xlUp)), "N/A") Then
   MsgBox "N/A occurs"
   Exit Sub
End If
End Sub

 

[parkerbelt]

That worked! It was #N/A, so I changed the code. Thank you!!

If the range contains N/A rather than #N/A try

Sub Chk()
If WorksheetFunction.CountIf(Range("BI49", Range("BI" & Rows.Count).End(xlUp)), "N/A") Then
   MsgBox "N/A occurs"
   Exit Sub
End If
End Sub

 

[Fluff]

Glad to help & thanks for the feedback