ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   New Users to Excel (https://www.excelbanter.com/new-users-excel/)
-   -   Monthly Bill Payment Running Totals (https://www.excelbanter.com/new-users-excel/212296-monthly-bill-payment-running-totals.html)

BetaDocuments

Monthly Bill Payment Running Totals
 
Hi,

I have excel spreadsheet with this data

Verizon Bill Due 12/9/8 $235
Met Ed Bill Due 12/14/8 $345
Dell........... ................... ........
LG........... ................... ........
Pulse........ .................... .........



** I want this to be calculated automatically ** as I have large list
of bills

Minimum Amount needed on XXX date

12/1/2008 $0
12/2/2008 $0
12/3/2008 $0
12/4/2008 $0
12/5/2008 $0
12/6/2008 $0
12/7/2008 $0
12/8/2008 $0
12/9/2008 $235
12/10/2008 $0
12/11/2008 $0
12/12/2008 $0
12/13/2008 $0
12/14/2008 $345
12/15/2008
12/16/2008
12/17/2008
12/18/2008
12/19/2008
12/20/2008
12/21/2008
12/22/2008
12/23/2008
12/24/2008
12/25/2008
12/26/2008


thanks in advance.

Don Guillett

Monthly Bill Payment Running Totals
 
Sub matchduedates()
mc = 14 'column n
For i = 2 To cells(Rows.Count, mc).End(xlUp).Row
If cells(i, mc + 1) < "" Then
mrow = Application.Match(cells(i, mc), Columns(mc + 2), 0)
cells(mrow, mc + 3) = cells(i, mc + 1)
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"BetaDocuments" wrote in message
...
Hi,

I have excel spreadsheet with this data

Verizon Bill Due 12/9/8 $235
Met Ed Bill Due 12/14/8 $345
Dell........... ...................
........
LG........... ...................
........
Pulse........ ....................
.........



** I want this to be calculated automatically ** as I have large list
of bills

Minimum Amount needed on XXX date

12/1/2008 $0
12/2/2008 $0
12/3/2008 $0
12/4/2008 $0
12/5/2008 $0
12/6/2008 $0
12/7/2008 $0
12/8/2008 $0
12/9/2008 $235
12/10/2008 $0
12/11/2008 $0
12/12/2008 $0
12/13/2008 $0
12/14/2008 $345
12/15/2008
12/16/2008
12/17/2008
12/18/2008
12/19/2008
12/20/2008
12/21/2008
12/22/2008
12/23/2008
12/24/2008
12/25/2008
12/26/2008


thanks in advance.



BetaDocuments

Monthly Bill Payment Running Totals
 
On Dec 3, 8:33*am, "Don Guillett" wrote:
Sub matchduedates()
mc = 14 'column n
For i = 2 To cells(Rows.Count, mc).End(xlUp).Row
If cells(i, mc + 1) < "" Then
mrow = Application.Match(cells(i, mc), Columns(mc + 2), 0)
cells(mrow, mc + 3) = cells(i, mc + 1)
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"BetaDocuments" wrote in message

...



Hi,


I have excel spreadsheet with this data


Verizon Bill * * * * * * * * * *Due 12/9/8 * * * * * * * * * * * $235
Met Ed Bill * * * * * * * * * *Due * 12/14/8 * * * * * * * * * $345
Dell........... * * * * * * * * * *....................
........
LG........... * * * * * * * * * * ....................
........
Pulse........ * * * * * * * * * *.....................
.........


** I want this to be calculated automatically ** as I have large list
of bills


Minimum Amount needed on XXX date


12/1/2008 * * * * * $0
12/2/2008 * * * * * $0
12/3/2008 * * * * * $0
12/4/2008 * * * * * $0
12/5/2008 * * * * * $0
12/6/2008 * * * * * $0
12/7/2008 * * * * * $0
12/8/2008 * * * * * $0
12/9/2008 * * * * * $235
12/10/2008 * * * * *$0
12/11/2008 * * * * *$0
12/12/2008 * * * * *$0
12/13/2008 * * * * *$0
12/14/2008 * * * * *$345
12/15/2008
12/16/2008
12/17/2008
12/18/2008
12/19/2008
12/20/2008
12/21/2008
12/22/2008
12/23/2008
12/24/2008
12/25/2008
12/26/2008


thanks in advance.- Hide quoted text -


- Show quoted text -


http://spreadsheets.google.com/pub?k...Hrf1PZV800kGBw

Here is the link of this Spreadsheet. I think this are VBA and I have
no idea how to do it. I will really appreaciate if you can do this
for me and email me new copy to paste here new link if you can please
do that for me. Thanks for your input.

Don Guillett

Monthly Bill Payment Running Totals
 

I gave you the basic way to do it for an EXCEL spreadsheet. If desired send
your excel workbook to my address below with clear explanation and snippet
of this message and I will take a look.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"BetaDocuments" wrote in message
...
On Dec 3, 8:33 am, "Don Guillett" wrote:
Sub matchduedates()
mc = 14 'column n
For i = 2 To cells(Rows.Count, mc).End(xlUp).Row
If cells(i, mc + 1) < "" Then
mrow = Application.Match(cells(i, mc), Columns(mc + 2), 0)
cells(mrow, mc + 3) = cells(i, mc + 1)
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"BetaDocuments" wrote in
message

...



Hi,


I have excel spreadsheet with this data


Verizon Bill Due 12/9/8 $235
Met Ed Bill Due 12/14/8 $345
Dell........... ...................
........
LG........... ...................
........
Pulse........ ....................
.........


** I want this to be calculated automatically ** as I have large list
of bills


Minimum Amount needed on XXX date


12/1/2008 $0
12/2/2008 $0
12/3/2008 $0
12/4/2008 $0
12/5/2008 $0
12/6/2008 $0
12/7/2008 $0
12/8/2008 $0
12/9/2008 $235
12/10/2008 $0
12/11/2008 $0
12/12/2008 $0
12/13/2008 $0
12/14/2008 $345
12/15/2008
12/16/2008
12/17/2008
12/18/2008
12/19/2008
12/20/2008
12/21/2008
12/22/2008
12/23/2008
12/24/2008
12/25/2008
12/26/2008


thanks in advance.- Hide quoted text -


- Show quoted text -


http://spreadsheets.google.com/pub?k...Hrf1PZV800kGBw

Here is the link of this Spreadsheet. I think this are VBA and I have
no idea how to do it. I will really appreaciate if you can do this
for me and email me new copy to paste here new link if you can please
do that for me. Thanks for your input.


Don Guillett

Monthly Bill Payment Running Totals
 
I sent OP a corrected workbook with this. Using match helps with date
problems in find.

Sub matchduedates()'assigned to a shape
Application.ScreenUpdating = False

Range("c17:c" & Cells(Rows.Count, 2).End(xlUp).Row).ClearContents

On Error Resume Next
For i = 4 To Cells(3, 3).End(xlDown).Row
If Cells(i, 4) < "" Then
mrow = Application.Match(Cells(i, 3), Columns(2), 0)
Cells(mrow, 3).Value = Cells(mrow, 3) + Cells(i, 4)
End If
Next i

Application.ScreenUpdating = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...

I gave you the basic way to do it for an EXCEL spreadsheet. If desired
send your excel workbook to my address below with clear explanation and
snippet of this message and I will take a look.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"BetaDocuments" wrote in message
...
On Dec 3, 8:33 am, "Don Guillett" wrote:
Sub matchduedates()
mc = 14 'column n
For i = 2 To cells(Rows.Count, mc).End(xlUp).Row
If cells(i, mc + 1) < "" Then
mrow = Application.Match(cells(i, mc), Columns(mc + 2), 0)
cells(mrow, mc + 3) = cells(i, mc + 1)
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"BetaDocuments" wrote
in message

...



Hi,


I have excel spreadsheet with this data


Verizon Bill Due 12/9/8 $235
Met Ed Bill Due 12/14/8 $345
Dell........... ...................
........
LG........... ...................
........
Pulse........ ....................
.........


** I want this to be calculated automatically ** as I have large list
of bills


Minimum Amount needed on XXX date


12/1/2008 $0
12/2/2008 $0
12/3/2008 $0
12/4/2008 $0
12/5/2008 $0
12/6/2008 $0
12/7/2008 $0
12/8/2008 $0
12/9/2008 $235
12/10/2008 $0
12/11/2008 $0
12/12/2008 $0
12/13/2008 $0
12/14/2008 $345
12/15/2008
12/16/2008
12/17/2008
12/18/2008
12/19/2008
12/20/2008
12/21/2008
12/22/2008
12/23/2008
12/24/2008
12/25/2008
12/26/2008


thanks in advance.- Hide quoted text -


- Show quoted text -


http://spreadsheets.google.com/pub?k...Hrf1PZV800kGBw

Here is the link of this Spreadsheet. I think this are VBA and I have
no idea how to do it. I will really appreaciate if you can do this
for me and email me new copy to paste here new link if you can please
do that for me. Thanks for your input.




All times are GMT +1. The time now is 03:30 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com