Validate Year

  • Thread starter Thread starter Ron
  • Start date Start date
R

Ron

Hello all,

I need code to confirm that the date in a cell is either in the
current year or the upcoming year and flag it if it's not. Assistance
appreciated. Thanks, Ron
 
Something like this maybe...

CellYear = Year(Range("A1").Value)
If CellYear < Year(Now) Or CellYear > Year(Now) + 1 Then
MsgBox "That is not a good date!"
End If
 
Hi Rick, thanks for the assistance. I edited to the code below and
I'm getting a run time error "Object required".

Sub TestYearEffYr()
Dim cellyear As Range
Set cellyear = Year(Range("p4").Value)
If cellyear < Year(Now) Or cellyear > Year(Now) + 1 Then
MsgBox "That is not a good date!"
End If
End Sub
 
Hi Rick, got it. Seems to work I need a little more testing. Thanks
again for your assistance, Ron

Sub TestYearEffYr()
Dim cellyear As String
cellyear = Year(Range("p4").Value)
If cellyear < Year(Now) Or cellyear > Year(Now) + 1 Then
MsgBox "That is not a good date!"
End If
End Sub
 
Since you are storing the year in the cellyear variable, I would probably
Dim it as a Long instead of as a String.

--
Rick (MVP - Excel)


Hi Rick, got it. Seems to work I need a little more testing. Thanks
again for your assistance, Ron

Sub TestYearEffYr()
Dim cellyear As String
cellyear = Year(Range("p4").Value)
If cellyear < Year(Now) Or cellyear > Year(Now) + 1 Then
MsgBox "That is not a good date!"
End If
End Sub
 
Back
Top