Monthly Bill Payment Running Totals

  • Thread starter Thread starter BetaDocuments
  • Start date Start date
B

BetaDocuments

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.
 
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
 
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











- Show quoted text -
Click to expand...

http://spreadsheets.google.com/pub?key=pbu_yMtbDHrf1PZV800kGBw

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.
 
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
(e-mail address removed)
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
message











- Show quoted text -
Click to expand...

http://spreadsheets.google.com/pub?key=pbu_yMtbDHrf1PZV800kGBw

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.
 
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
 
Back
Top