First of the year

[Guest]

I have a macro that runs by a command buttom. I want it to check each time
to see if it's after the first of the year, then display a warning message
and not display the messag again until it detects a new year

oldjay

 

[Jim Cone]

Why not just look at the calendar?
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

"Oldjay" <[email protected]>
wrote in message
I have a macro that runs by a command buttom. I want it to check each time
to see if it's after the first of the year, then display a warning message
and not display the messag again until it detects a new year

oldjay

 

[Norman Jones]

Hi OldJay,

Try:

'=============>>
Private Sub CommandButton1_Click()
On Error Resume Next
If Evaluate("DateTrigger") < Year(Date) Then
On Error GoTo 0

MsgBox "Year Change!"
Names.Add Name:="DateTrigger", _
RefersTo:=Year(Date)
End If

'your Code e.g.:
MsgBox "Hi"

End Sub
'<<=============

 

[Guest]

People forget. That's why I need the code

 

[Guest]

Thanks

Hi OldJay,

Try:

'=============>>
Private Sub CommandButton1_Click()
On Error Resume Next
If Evaluate("DateTrigger") < Year(Date) Then
On Error GoTo 0

MsgBox "Year Change!"
Names.Add Name:="DateTrigger", _
RefersTo:=Year(Date)
End If

'your Code e.g.:
MsgBox "Hi"

End Sub
'<<=============