Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code returns TRUE instead of value
Essentially what I am trying to do is this:
I am trying to calculate depreciation. I use the DateAdd function to add x number of months(Cell "F & Row that is active") to the acquisition date(Cell "H & Row that is active" of an asset. If the sum of those dates is greater than the End of life (Cell "I & Row that is active") of that asset then there is a payment for that month and the value in Range("K" & Row) is place in the active cell until the entire cell range from M7 to AC63 is filled. If the sum of those dates is not greater the End of life (Cell "I & Row that is active") of that asset then a value of zero is place in that cell. In either case the value in (Cell "F & Row that is active") decremented by 1 for the next time the loop is run. It runs, and the range is being filled, but there is not supposed to be a payment for every cell in the range. There are no zeros for when the condition is false. Additionally, the entire Column "M" only has the word TRUE and not a numerical value. My macro is as follows. Please help. Sub Fill() Dim TestDate As Date Dim Col As Integer Dim Row As Long For Col = 13 To 29 For Row = 7 To 63 TestDate = DateAdd("m", Range("F" & Row), _ Range("H" & Row)) If TestDate < Range("I" & Row) Then Range("K" & Row).Copy Cells(Row, Col) = Range("K" & Row) Range("F" & Row).Value = Range("F" & Row).Value - 1 Else Cells(Row, Col) = ActiveCell.Value = 0 Range("F" & Row).Value = Range("F" & Row).Value - 1 End If Next Row Next Col End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
=IF(test,true,false) only ever returns "true"? | Excel Worksheet Functions | |||
Any number above 15 returns false when it should be true | Excel Worksheet Functions | |||
An if statment tat returns a true blank | Excel Worksheet Functions | |||
If Statement returns true when false? | Excel Discussion (Misc queries) | |||
Code returns TRUE instead of value | Excel Discussion (Misc queries) |