Calculating days between column of dates and current date 1

[Rzrbkpk]

I know this is probably a simple solution, but it is eluding me. I have an Excel worksheet where dates are in column C. In my code, I have inserted a blank column D. I'd like to calculate the difference between each date in column C with the current date (in number of days) and place it on the same row in column D. The only caveat is that there may be some blank cells in column C. Any help is appreciated.

 

[PHV]

A starting point:

For Each c in Range("C:C")
  If IsDate(c.Value) Then
    c.Offset(0, 1) = Date - c.Value
  End If
Next

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Rzrbkpk]

Thanks PHV! That's the basic concept I was looking for. As far as addressing the cells with the blank entries, I tried to complete the conditional statement you started. It works, but instead of stopping at the last row of data, it checks the full range ("C:C"), which makes sense, but not what I'm needing. Column A has an entry in each cell. Could we change the range or offset to compensate for the blank enries in column C?

Sub Test1()
    
    For Each c In Range("C:C")
        If IsDate(c.Value) Then
        c.Offset(0, 1) = Date - c.Value
        Else
        c.Offset(0, 1) = 0
    End If
    Next
   
End Sub

 

[PHV]

I'd try this:
For Each c In Intersect(Range("C:C"), ActiveSheet.UsedRange)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Rzrbkpk]

That took care of it! Thank you!!