if a cell value changes, update date in another cell.

[Dave]

First, I have received two responces and when I've opened them there is
nothing there. I am tring now my home email thinking that our "IT" people
have blocked the responces somehow.

If I update cell B5 with a new $ amount, I need only cell C5 to update to
the current date. Column B are all $ amounts and column C are all dates. Im
just a beginner so please keep it simple. Looks like Excel for dummies is
too complicated.

Any other ideas why the responces are blank?????

 

[Mike H]

Hi,

Right click your sheet tab, view code and paste this in and try it.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Lastrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
If Not Intersect(Target, Range("B1:B" & Lastrow)) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 1) = Format(Now, "dd/mm/yyyy")
Application.EnableEvents = True
End If
End Sub

Mike

 

[Marcelo]

=if(b2<>"",today(),"")

remember that today() will put the current date, if you want to fix the date
that the $ where typed, you have to copy and past special as number, on the
c2.

hth
--
pleae click yes if it was helpfull
regards from Brazil
Marcelo



"Dave" escreveu: