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.