I am setting up a financial statement and need to have a fee of a set amount
added on the seventh of each month. I want the date of the seventh to add 3
to the value already present in one cell.

Private Sub Workbook_Open()
Dim myId As Date

myId = Date - 1 ' in case it doesn't already exist
On Error Resume Next
myId = Evaluate(ThisWorkbook.Names("_Updated").RefersTo)
On Error GoTo 0
If myId < Date And Day(Date) = 15 Then
With Worksheets("Sheet1").Range("A1") '<=== change to suit
.Value = .Value + 3
End With
End If
ThisWorkbook.Names.Add Name:="_Updated", RefersTo:=Date
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"deacon" wrote in message
...
I am setting up a financial statement and need to have a fee of a set
amount
added on the seventh of each month. I want the date of the seventh to add
3
to the value already present in one cell.

"Bob Phillips" wrote:

Private Sub Workbook_Open()
Dim myId As Date

myId = Date - 1 ' in case it doesn't already exist
On Error Resume Next
myId = Evaluate(ThisWorkbook.Names("_Updated").RefersTo)
On Error GoTo 0
If myId < Date And Day(Date) = 15 Then
With Worksheets("Sheet1").Range("A1") '<=== change to suit
.Value = .Value + 3
End With
End If
ThisWorkbook.Names.Add Name:="_Updated", RefersTo:=Date
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"deacon" wrote in message
...
I am setting up a financial statement and need to have a fee of a set
amount
added on the seventh of each month. I want the date of the seventh to add
3
to the value already present in one cell.





Thanks Bob, but I have the 2007 Office programs and didn't see the excel
icon. the formula is a little over my head, but I get the idea, just not sure
how to appropriate it. I'll play with it!

Mike

How about minimizing the worksheet and following the alternative
instructions?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"deacon" wrote in message
...


"Bob Phillips" wrote:

Private Sub Workbook_Open()
Dim myId As Date

myId = Date - 1 ' in case it doesn't already exist
On Error Resume Next
myId = Evaluate(ThisWorkbook.Names("_Updated").RefersTo)
On Error GoTo 0
If myId < Date And Day(Date) = 15 Then
With Worksheets("Sheet1").Range("A1") '<=== change to suit
.Value = .Value + 3
End With
End If
ThisWorkbook.Names.Add Name:="_Updated", RefersTo:=Date
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"deacon" wrote in message
...
I am setting up a financial statement and need to have a fee of a set
amount
added on the seventh of each month. I want the date of the seventh to
add
3
to the value already present in one cell.





Thanks Bob, but I have the 2007 Office programs and didn't see the excel
icon. the formula is a little over my head, but I get the idea, just not
sure
how to appropriate it. I'll play with it!

Mike

Thanks Bob, actually, I "played around" by clicking the Office button in the
upper left, then "Excel options," then "customize." There's a check box in
there which let's you put a short cut in the upper left (the little box where
"save" and "undo" and "redo" appear by default. So, I did that, pasted in
your formula with the appropriated day of the month. Then, I saved a copy of
the worksheet, changed the date on the toolbar and tried it; it seems to be
working, but we'll see what happens on January 7th! Thanks again.

Mike Myers

"Bob Phillips" wrote:

How about minimizing the worksheet and following the alternative
instructions?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"deacon" wrote in message
...


"Bob Phillips" wrote:

Private Sub Workbook_Open()
Dim myId As Date

myId = Date - 1 ' in case it doesn't already exist
On Error Resume Next
myId = Evaluate(ThisWorkbook.Names("_Updated").RefersTo)
On Error GoTo 0
If myId < Date And Day(Date) = 15 Then
With Worksheets("Sheet1").Range("A1") '<=== change to suit
.Value = .Value + 3
End With
End If
ThisWorkbook.Names.Add Name:="_Updated", RefersTo:=Date
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"deacon" wrote in message
...
I am setting up a financial statement and need to have a fee of a set
amount
added on the seventh of each month. I want the date of the seventh to
add
3
to the value already present in one cell.





Thanks Bob, but I have the 2007 Office programs and didn't see the excel
icon. the formula is a little over my head, but I get the idea, just not
sure
how to appropriate it. I'll play with it!

Mike

You mean that you have added it to the QAT.

What is that item called in the Customize list?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"deacon" wrote in message
...
Thanks Bob, actually, I "played around" by clicking the Office button in
the
upper left, then "Excel options," then "customize." There's a check box in
there which let's you put a short cut in the upper left (the little box
where
"save" and "undo" and "redo" appear by default. So, I did that, pasted in
your formula with the appropriated day of the month. Then, I saved a copy
of
the worksheet, changed the date on the toolbar and tried it; it seems to
be
working, but we'll see what happens on January 7th! Thanks again.

Mike Myers

"Bob Phillips" wrote:

How about minimizing the worksheet and following the alternative
instructions?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"deacon" wrote in message
...


"Bob Phillips" wrote:

Private Sub Workbook_Open()
Dim myId As Date

myId = Date - 1 ' in case it doesn't already exist
On Error Resume Next
myId = Evaluate(ThisWorkbook.Names("_Updated").RefersTo)
On Error GoTo 0
If myId < Date And Day(Date) = 15 Then
With Worksheets("Sheet1").Range("A1") '<=== change to suit
.Value = .Value + 3
End With
End If
ThisWorkbook.Names.Add Name:="_Updated", RefersTo:=Date
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"deacon" wrote in message
...
I am setting up a financial statement and need to have a fee of a set
amount
added on the seventh of each month. I want the date of the seventh
to
add
3
to the value already present in one cell.





Thanks Bob, but I have the 2007 Office programs and didn't see the
excel
icon. the formula is a little over my head, but I get the idea, just
not
sure
how to appropriate it. I'll play with it!

Mike