Stop Counting

[Vtookup]

Hi All.
I need help with formula or vba to stop counting and retain last count (E5 or column E)
E5=Today()-C1
C1=Today()
D5=Blank or not Blank
If D5=Blank then E5 counts
If D5 is not blank or populated then counting stop and retain the number

Thanks in advance for the help.

 

[Scott T]

Today-Today will always be 0. Not sure what you are trying to do.

 

[Vtookup]

Hi
Sorry I messed up. Let's start over.
found this code, I'll change detail to match the vba.
B4 =Date of Entry
C4 = Today()-B4
D4 =blank or not blank ("Y")
Goal is for C4 to continue counting until D4 is filled up with "Y". Then C4 stop the count and convert number into value.
like it to work in column C (beyond C4)
here's the code shared...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("D4") Then Exit Sub
If UCase(Range("D4").Value) = "Y" Then
    Range("C4") = Range("C4").Value
Else
    Range("D4").Formula = "=TODAY()-B4"
End If
End Sub

Thanks