Date stamp + text macro needed

[TeppE]

Dear MrExcel

I need a excel macro that inputs text and date for me.

eks: ok 23.05.2011 or dead 23.05.2011

we want excel to fill in the rest of the text after we have written ok or dead.


please help

kind regards

bellowed fan

 

[VoG]

This is fir values entered in column A (1): right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
    Application.EnableEvents = False
    Target.Value = Target.Value & " " & Format(Date, "dd.mm.yyyy")
    Application.EnableEvents = True
End If
End Sub

 

[TeppE]

First of, thanks a bunch <3

second: how did you build up the macro, where does it say ok and dead?

third: how do i change column from A?

kind regards

bellowed fan

 

[VoG]

I didn't realise it had to be those specific words. Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
    Application.EnableEvents = False
    If Target.Value = "ok" Or Target.Value = "dead" Then Target.Value = Target.Value & " " & Format(Date, "dd.mm.yyyy")
    Application.EnableEvents = True
End If
End Sub

Change 1 to the number of the column.

 

[TeppE]

I diden't quite understand the macro, do i change 1 to say 7 so it ends up in column G or do i write G in the macro. neither did work

thanks so far

kind regards

 

[VoG]

For column G and a case-insensitive comparison try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 7 Then
    Application.EnableEvents = False
    If LCase(Target.Value) = "ok" Or LCase(Target.Value) = "dead" Then Target.Value = Target.Value & " " & Format(Date, "dd.mm.yyyy")
    Application.EnableEvents = True
End If
End Sub