L
loren.pottinger
It is not executing my If-Then-Else statement.
It seems the only statement being executed is: Cells(Row, Col).Value =
Range("K" & Row) and I only want it to do that if the condition is
true, and put a 0 in each cell in the range if it is false. Can someone
please look at my code and help me to get it to execute the
If-Then-Else statement. Thank you. Updated code as follows:
Sub Fill()
Dim TestDate As Date
Dim Col As Integer
Dim Row As Long
For Col = 13 To 29
For Row = 7 To 63
With TestDate = DateAdd("m", Range("F" & Row).Value, _
Range("H" & Row).Value)
If TestDate < Range("I" & Row).Value Then
Cells(Row, Col).Value = Range("K" & Row)
Range("F" & Row).Value = Range("F" & Row).Value - 1
Else
Cells(Row, Col).Value = 0
Range("F" & Row).Value = Range("F" & Row).Value - 1
End If
End With
Next Row
Next Col
End Sub
It seems the only statement being executed is: Cells(Row, Col).Value =
Range("K" & Row) and I only want it to do that if the condition is
true, and put a 0 in each cell in the range if it is false. Can someone
please look at my code and help me to get it to execute the
If-Then-Else statement. Thank you. Updated code as follows:
Sub Fill()
Dim TestDate As Date
Dim Col As Integer
Dim Row As Long
For Col = 13 To 29
For Row = 7 To 63
With TestDate = DateAdd("m", Range("F" & Row).Value, _
Range("H" & Row).Value)
If TestDate < Range("I" & Row).Value Then
Cells(Row, Col).Value = Range("K" & Row)
Range("F" & Row).Value = Range("F" & Row).Value - 1
Else
Cells(Row, Col).Value = 0
Range("F" & Row).Value = Range("F" & Row).Value - 1
End If
End With
Next Row
Next Col
End Sub