Had someone create a macro for me that does it:
Code:
Sub Macro1()
'
' Macro1 Macro
'
Dim i As Integer
Dim j As Integer
Dim years As Variant
Dim yearsb As Long
Dim start_rent As Currency
Dim free_rent As Long
Dim square_feet As Long
Dim increases As Variant
Dim term As Long
Dim partial As Variant
For i = 289 To 459
start_rent = Cells(i, 1).Value
free_rent = Cells(i, 2).Value
square_feet = Cells(i, 3).Value
increases = Cells(i, 4).Value
term = Cells(i, 5).Value
years = term / 12
yearsb = WorksheetFunction.RoundUp(years, 0) - 1
rent = 0
For j = 0 To yearsb
rent = rent + (12 * start_rent * (1 + increases) ^ j)
Next
partial = years - WorksheetFunction.RoundDown(years, 0)
If partial > 0 Then
rent = rent - (((1 - partial) * 12) * start_rent * (1 + increases) ^ yearsb)
End If
rent = rent - free_rent * start_rent
Cells(i, 6).Value = (rent * square_feet)
Cells(i, 7).Value = rent / term
Next
'
End Sub
Bookmarks