If...Then Statement Down a Column

[Angelfish13]

Hi,

I have an IF then statement for my starting cell for a particular column. How do I extend the formula down to the end of the column of used rows? Nothing I have tried has worked so far. Basically I am comparing two dates and inserting the results into a third column. Here is the code below. I cannot figure out how to extend it. Thanks for your help!

Sub Testing()
Dim A5 As Date
Dim B5 As Date
Dim C5 As Date
If Range("A5") > Range("B5") Or Range("B5") Is Nothing Then
Range("C5") = "OnTime"
Else: Range("C5") = "Late"

End If
End Sub

[AB33]

Please use code tags with your code. This code loops from row 5 to last row in column A and rest is your code.

Please Login or Register  to view this content.

[Angelfish13]

Sorry about the code tags, I will include them next time. Thank you so much for your help. The code works for the most part, except excel seems to be confused by the blank cells. I want excel to recognize the blank cells as Late, not On Time. Right now it shows blanks as on time. Do you have any idea how to do that? Thanks so much!

[AB33]

I am not sure, but try one of these codes and if none work, we will twist the ifs stat.

Please Login or Register  to view this content.

[Angelfish13]

I got it to work! I used your original code and just flipped the < sign. Thank you so much for your help!