error trap
 

Hi,

I also need some sort of error trapping here. If the
person missed doing the refresh at 24th and, for example
opened it on the 28th, I need the refresh to execute.
Somehow it has to check if it had refreshed on the 24th
and if not, and it's still within the same month, I need
it to be able to refresh then. But not anymore for the
rest of that month. I need help!!!








Private Sub Refresh_Button_Click()
If Date = DateSerial(Year(Date), Month(Date), 24)
Then
MsgBox "This is the 24th day of the Month. Your
data will be updated."

' RefreshMeters Macro
' Macro recorded 30/09/2003 by rhocarit
'
' Keyboard Shortcut: Ctrl+a
'
ActiveWorkbook.RefreshAll

Else
MsgBox "This is NOT the 24th day of the Month.
Your data has NOT been updated."
End If
End Sub

error trap
 

Rhonda,

The easiest way is to have the refresh code put a date stamp in a cell.
Than you can check that cell to see when it was updated.

Range("A1") = Date

--
sb
"Rhonda" wrote in message
...
Hi,

I also need some sort of error trapping here. If the
person missed doing the refresh at 24th and, for example
opened it on the 28th, I need the refresh to execute.
Somehow it has to check if it had refreshed on the 24th
and if not, and it's still within the same month, I need
it to be able to refresh then. But not anymore for the
rest of that month. I need help!!!








Private Sub Refresh_Button_Click()
If Date = DateSerial(Year(Date), Month(Date), 24)
Then
MsgBox "This is the 24th day of the Month. Your
data will be updated."

' RefreshMeters Macro
' Macro recorded 30/09/2003 by rhocarit
'
' Keyboard Shortcut: Ctrl+a
'
ActiveWorkbook.RefreshAll

Else
MsgBox "This is NOT the 24th day of the Month.
Your data has NOT been updated."
End If
End Sub

error trap
 

It would be hard to offer any code for this condition:

Somehow it has to check if it had refreshed on the 24th

How could that be determined?

--
Regards,
Tom Ogilvy


"Rhonda" wrote in message
...
Hi,

I also need some sort of error trapping here. If the
person missed doing the refresh at 24th and, for example
opened it on the 28th, I need the refresh to execute.
Somehow it has to check if it had refreshed on the 24th
and if not, and it's still within the same month, I need
it to be able to refresh then. But not anymore for the
rest of that month. I need help!!!








Private Sub Refresh_Button_Click()
If Date = DateSerial(Year(Date), Month(Date), 24)
Then
MsgBox "This is the 24th day of the Month. Your
data will be updated."

' RefreshMeters Macro
' Macro recorded 30/09/2003 by rhocarit
'
' Keyboard Shortcut: Ctrl+a
'
ActiveWorkbook.RefreshAll

Else
MsgBox "This is NOT the 24th day of the Month.
Your data has NOT been updated."
End If
End Sub