Run-time error '13': Type mismatch

[pells]

I am trying to the the following code but I am getting this error, run-time error '13': Type mismatch:

If ActiveSheet.Range("G11:G88") > 0 Then
MsgBox "No code entered!", vbExclamation, "Error"
Exit Sub
End If

Am I using the correct syntax and does anyone know how to resolve my error so that it works?

Many thanks.

 

[MrKowz]

What is it about G11:G88 that must be greater than 0?

 

[JackDanIce]

I think you're trying to evaluate an object (range of cells i.e. G11:G88) against a numerical rule - the two are not comparable, hence the type mismatch error.

What are you trying to achieve, that if any value in that range is greater than 0 to provide the error message? Or if all values in that range is greater than 0 to provide the error message?

If you're testing for a postive integer, are you expecting all the values (or any?) in that range to be non-positive?

 

[pells]

What is it about G11:G88 that must be greater than 0?

Hi,

If something is NOT entered in any cell from G11 to G88 then produce an error message.

 

[pells]

I think you're trying to evaluate an object (range of cells i.e. G11:G88) against a numerical rule - the two are not comparable, hence the type mismatch error.

What are you trying to achieve, that if any value in that range is greater than 0 to provide the error message? Or if all values in that range is greater than 0 to provide the error message?

If you're testing for a postive integer, are you expecting all the values (or any?) in that range to be non-positive?

Hi,

I am looking for if any value in that range is greater than 0 to provide the error message.

Thanks.

 

[Jonmo1]

Try

If Application.CountBlank(ActiveSheet.Range("G11:G88")) > 0 Then

 

[pells]

Try

If Application.CountBlank(ActiveSheet.Range("G11:G88")) > 0 Then

Many thanks for this, but this doesnt produce the error message.

 

[Jonmo1]

You've given 2 different answers to the question of what you want...

1.

If something is NOT entered in any cell from G11 to G88 then produce an error message.

2.

I am looking for if any value in that range is greater than 0 to provide the error message.

Those are 2 very different objectives, which is it?

My previous post answers version 1...

Perhaps this answers version 2 of your request..

If Application.Max(ActiveSheet.Range("G11:G88")) > 0 Then

 

[JackDanIce]

Jonmo suggests a better alternative, but this checks for positive numbers only:

If Application.Max(Range("G11:G88")) > 0 Then
        MsgBox ("No code entered!", vbExclamation, "Error")
        Exit Sub
End If

To check for any cell being blank in that range:

If Application.CountBlank(Range("G11:G88")) > 0 Then
MsgBox ("No code entered!", vbExclamation, "Error")
        Exit Sub
End If

And if both are combined:

If Application.CountBlank(Range("G11:G88")) > 0 OR _
   Application.Max(Range("G11:G88")) > 0 Then
MsgBox ("No code entered!", vbExclamation, "Error")
        Exit Sub
End If

 

[pells]

Apologies all if I have made this confusing and many thanks for all your replies.

What I am after is the following:

If there is something entered in cell range G11 to G88 AND if there isn't something in cell range H11 to H88 then produce an error

I hope this makes sense and hope you can assist me - many thanks.