If-Then-Else Statement

  • Thread starter loren.pottinger
  • Start date
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
 
D

Dave Peterson

You've posted this same question to multiple newsgroups. Which thread should
get the answers?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

is Retrieving a Cell address from a cell containing a SUMPRODUCTformula a problem ? 5
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Code returns TRUE instead of value 2
Macro for comparing columns and highlighting matching/differences 14
If-Then-Else Statement 7
Array macro question 4
Using Drop Down Menu for Macro 6
Excel VBA 1

Top