Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 6
Default How can I enter monthly fee in one cell in excel?

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.
  #2   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 10,593
Default How can I enter monthly fee in one cell in excel?

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.



  #3   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 6
Default How can I enter monthly fee in one cell in excel?



"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
  #4   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 10,593
Default How can I enter monthly fee in one cell in excel?

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



  #5   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 6
Default How can I enter monthly fee in one cell in excel?

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






  #6   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 10,593
Default How can I enter monthly fee in one cell in excel?

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






  #7   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 6
Default How can I enter monthly fee in one cell in excel?

"view code" that's where I pasted the formula in.

"Bob Phillips" wrote:

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






  #8   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 10,593
Default How can I enter monthly fee in one cell in excel?

But that takes you to the current worksheet code, not the Thisworkbook code.

--
---
HTH

Bob


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



"deacon" wrote in message
...
"view code" that's where I pasted the formula in.

"Bob Phillips" wrote:

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








  #9   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 6
Default How can I enter monthly fee in one cell in excel?

Actually, it gives you the option to go to any sheet, or to Thisworkbook in
the Excel 2007 I'm using.

"Bob Phillips" wrote:

But that takes you to the current worksheet code, not the Thisworkbook code.

--
---
HTH

Bob


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



"deacon" wrote in message
...
"view code" that's where I pasted the formula in.

"Bob Phillips" wrote:

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









  #10   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 10,593
Default How can I enter monthly fee in one cell in excel?

Once you are in the VBIDE yes, but in starts by taking you to the worksheet
code module.

In 2003, the instructions that I give take you directly to ThisWorkbook. It
would be nice to be able to do the same in 2007 wouldn't it? They seem to
have removed so many nice little things in 2007. Shame.

--
---
HTH

Bob


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



"deacon" wrote in message
...
Actually, it gives you the option to go to any sheet, or to Thisworkbook
in
the Excel 2007 I'm using.

"Bob Phillips" wrote:

But that takes you to the current worksheet code, not the Thisworkbook
code.

--
---
HTH

Bob


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



"deacon" wrote in message
...
"view code" that's where I pasted the formula in.

"Bob Phillips" wrote:

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













  #11   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 6
Default How can I enter monthly fee in one cell in excel?

Yes, I first pasted into the "worksheet code" and then had to back out of
that, re-read your instructions two or three times, and then I found
Thisworkbook and did it all over again. My skill in Excel is a lot more
primitive than yours, but, yeah, some of the changes they made in 07 seem to
be a little counterintuitive.

Thanks for your help on this.

"Bob Phillips" wrote:

Once you are in the VBIDE yes, but in starts by taking you to the worksheet
code module.

In 2003, the instructions that I give take you directly to ThisWorkbook. It
would be nice to be able to do the same in 2007 wouldn't it? They seem to
have removed so many nice little things in 2007. Shame.

--
---
HTH

Bob


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



"deacon" wrote in message
...
Actually, it gives you the option to go to any sheet, or to Thisworkbook
in
the Excel 2007 I'm using.

"Bob Phillips" wrote:

But that takes you to the current worksheet code, not the Thisworkbook
code.

--
---
HTH

Bob


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



"deacon" wrote in message
...
"view code" that's where I pasted the formula in.

"Bob Phillips" wrote:

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












Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Enter multiple numbers in a cell so total shows when enter keypres newbie Excel Worksheet Functions 2 August 19th 07 12:23 PM
Auto enter date when data in enter in another cell Brian Excel Worksheet Functions 5 December 7th 06 07:44 PM
enter data in cell but cannot save until click off cell in excel T70McCains Excel Discussion (Misc queries) 1 November 18th 05 06:06 PM
how do I enter a RETURN (Enter) in a cell in EXCEL2003 Micheline Excel Discussion (Misc queries) 5 April 14th 05 10:00 PM
How do I enter a SUM(cell:cell) in pocket excel so it works prope. WillyJ1000 Excel Worksheet Functions 2 February 10th 05 01:14 AM


All times are GMT +1. The time now is 12:04 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"