Restrict macro to run n times during specified period

[delta_negative]

Is there a way to restrict a macro to run only a specified number of times during a user designated time period, for example run no more than 3 times during a 24 hour period?

We have a macro that runs to alert maintenance personnel if a certain temperature condition is met in machinery. This condition may happen numerous times during a day but we only need to alert the mechanics once a day if the condition is true.

Thanks for any assistance you can provide.

 

[Snakehips]

delta_negative,

Perhaps something like this....

You will need 3 spare cells anywhere in the workbook. I have coded as Cells A1:A3 in sheet "SomeSheet"

In A1 enter the number of times you want to alert in a given day.
A2 will hold the current date, programatically.
A3 will hold count of alerts to date, programatically.

Sub Alert()
'Reset date& count if new day
If Not Sheets("SomeSheet").Range("A2") = Date Then
Sheets("SomeSheet").Range("A2") = Date
Sheets("SomeSheet").Range("A3") = 0
Else
'Check count
If Sheets("SomeSheet").Range("A3") >= Sheets("SomeSheet").Range("A1") Then Exit Sub


'Do your existing Alert stuff then increment count

Sheets("SomeSheet").Range("A3") = Sheets("SomeSheet").Range("A3") + 1
Exit Sub
End If
End Sub

Hope that helps.

 

[delta_negative]

delta_negative,

Perhaps something like this....

You will need 3 spare cells anywhere in the workbook. I have coded as Cells A1:A3 in sheet "SomeSheet"

In A1 enter the number of times you want to alert in a given day.
A2 will hold the current date, programatically.
A3 will hold count of alerts to date, programatically.

Sub Alert()
'Reset date& count if new day
If Not Sheets("SomeSheet").Range("A2") = Date Then
Sheets("SomeSheet").Range("A2") = Date
Sheets("SomeSheet").Range("A3") = 0
Else
'Check count
If Sheets("SomeSheet").Range("A3") >= Sheets("SomeSheet").Range("A1") Then Exit Sub


'Do your existing Alert stuff then increment count

Sheets("SomeSheet").Range("A3") = Sheets("SomeSheet").Range("A3") + 1
Exit Sub
End If
End Sub

Hope that helps.

Thank you very much for responding.

Will try the code tomorrow and let you know how it goes.