insert date in a column when information is entered in another column

[Millie]

Let's say I have column A and I want to add a date so that I know what date someone updated column A. Is there anyway to add a date to the end of anything someone types, or should I make exel populate a date in column B when something is entered in column A. If so what is the argument??? help hel

Another question, If I have a columnA called status and the status changes to a particular value, is there a way to auto email , if the email address is in columnB

 

[Peo Sjoblom]

See

http://tinyurl.com/yf1c

there you'll find both a macro and a formula way

--

Regards,

Peo Sjoblom

Let's say I have column A and I want to add a date so that I know what

date someone updated column A. Is there anyway to add a date to the end of
anything someone types, or should I make exel populate a date in column B
when something is entered in column A. If so what is the argument??? help
help

Another question, If I have a columnA called status and the status changes

to a particular value, is there a way to auto email , if the email address
is in columnB

 

[J.E. McGimpsey]

One way:

Put this in the worksheet code module (right-click on the worsheet
tab and choose view code):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If .Column = 1 Then ' Entry in column A
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy"
.Value = Date
End With
End If
End With
End Sub

 

[millie]

why when i change the column to D does it quit working....example...i want the date to be in column e

----- J.E. McGimpsey wrote: ----

One way

Put this in the worksheet code module (right-click on the worsheet
tab and choose view code)

Private Sub Worksheet_Change(ByVal Target As Excel.Range
With Targe
If .Count > 1 Then Exit Su
If .Column = 1 Then ' Entry in column
With .Offset(0, 1
.NumberFormat = "dd mmm yyyy
.Value = Dat
End Wit
End I
End Wit
End Sub

 

[J.E. McGimpsey]

Did you change the line to:

If .Column = 4 Then

That works for me.