View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.newusers
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default 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.