Data Validation Function

[nicolai.adamsky]

I'm looking to make a function to validate a year. I want to make a sub(x,y,z) and say that if z is not an integer, a message box pops up. I also want if z is not between x and y inclusive, then a message box pops up. How do i code the sub? Thanks alot.

 

[HalfAce]

Hello nicolai.adamsky, welcome to the board.
Your request is a little vague as to what you have that will be represented by the x, y & z.
Assuming you mean them to represent cell values (that I also assume will contain years),
you can try something like this.

Sub ValidateTheYear()
Dim x%, y%, z%
On Error Resume Next
'Change 'Sheet1' to the real name of the sheet of interest
With Sheets("Sheet1")
  x = .Range("A1").Value 'Beginning year
  y = .Range("A2").Value 'Ending Year
  z = .Range("A3").Value 'Year to validate
End With

If Not Err.Number = 0 Then _
   MsgBox "One or more of the years are not valid.", , "Invalid Year(s)": Err.Clear: Exit Sub

If z < x Or z > y Then _
   MsgBox "' " & z & " ' is outside of the given parameters.", , "Invalid Year": Exit Sub

'Replace this MsgBox with your code if the year is validated
MsgBox "' " & z & " ' is an acceptable year.", , "All's cool."

End Sub

If this is nothing like what you meant/had in mind then can you elaborate a bit?

Hope it helps.