Performing some data validations.

[srosk]

Hi there. I am performing data validations on a sheet, and created the following code. I created a variable 'z', and added a formula that works. When I run the code in the debugger, I get a type mismatch error.

Expanding on this a little, I would like to add vbyesno to the MsgBox, and if no, end sub. Is it possible to essentially nest another if statement in here?

Thank you kindly

Dim z As Integer

z = "SUM(COUNTIF('121'!D:J,""<-50"")+COUNTIF('121'!D:J,"">50""))"
 
 If z > 1 Then
 MsgBox ("There are " & z & " strings greater than 50. Is this valid?")

End If

 

[srosk]

Wow. That totally went over my head, I was caught up in defining the variable type. Thank you so much, sorry for being dense.

What you have just posted is not what I suggested.

Dim z As Long
   
   z = Evaluate("SUM(COUNTIF('121'!D:J,""<-50"")+COUNTIF('121'!D:J,"">50""))")

 

[Fluff]

You're welcome & thanks for the feedback.

It's all to easy to get "Tunnel vision" unfortunately