Word command to display date (now)

[bubba06]

Is there a formula or something where a specific word is selected the next cell will come up with the date(now)

Thanks in advance

 

[BeingYogi]

may be:

=if(isblank(A2),"",today()) ...... b2 formula

 

[bubba06]

Hi, no that didnt work

 

[Taul]

how about in cell B2

=IF(A2="donkey",TODAY(),"")

 

[bubba06]

no that didnt work either - but it is close

 

[Taul]

hmmm, I think you need to be specific.

what is the word you are using in the cell that should trigger the date?
what cell is the word in?
what cell do you want the date in?

(please give cell references like cell A2 etc)

Also, when you say "not quite", what result are you actually getting?

 

[bubba06]

Hi - sorry 4 the late reply -the word is "Completed" the column is D3:D80 - E3:E80 is the date if completed

 

[villy]

Is there a formula or something where a specific word is selected the next cell will come up with the date(now)

Thanks in advance

Try this in code

Sub fromhere()
If Selection.Text = "Completed" Then Selection.Offset(1, 0) = Date
End Sub

 

[Taul]

Hi,
In cell E3 use the formula

=IF(D3="Completed",TODAY(),"")

or

=IF(D3="Completed",NOW(),"")

format the cell as Date.

However, when you access the worksheet tomorrow, it will show tomorrow's date.
I'm sure this is not what you wanted to achieve.
I would suggest you use Villy's vba solution

 

[Taul]

Assuming you have no other purpose for the cell entry, try this bit of code

Right click the page tab you are using and click on view code .

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

        Dim rng As Range
         '   Only look at single cell changes
        If Target.Count > 1 Then Exit Sub
        '   Set Target Range
        Set rng = Range("d3:d80")
        '   Only look at that range
        If Intersect(Target, rng) Is Nothing Then Exit Sub

Dim ce As Range
    For Each ce In Range("d3:d" & Range("d80").End(xlUp).Row)
        If ce.Value = "Completed" Then
            If ce.Offset(0, 1).Value = "" Then
                ce.Offset(0, 1).Value = Date
            End If
        Else
            ce.Offset(0, 1).Value = ""
        End If
     Next ce

Application.ScreenUpdating = True
End Sub