» Creating Date and Time Stamp

Private Sub Worksheet_Change(ByVal Target As Range)
'Target.Font.ColorIndex = 5
Dim ProdCode, Flag
Flag = 0
'Dim Val As Range

ProdCode = Left(Target, 4)
Select Case ProdCode
Case "99YT"
Target.Offset(0, 1) = "T640-E MMB"
Flag = 1
Case "804E"
Target.Offset(0, 1) = "T640-FPC1-E"
Flag = 1
Case "ST32"
Target.Offset(0, 1) = "M320-FPC3"
Flag = 1
Case Else
End Select

If (Flag = 1 And Target.Offset(0, 4) = "") Then
Target.Offset(0, 4) = Date
End If

End Sub

// I used "Flag" to flag me when the cell is entered
//and I also insured that the date cell is empty
//Enjoy

I've programmed a timestamp to update when the list has changed, but how do you stop the timestamp from updating when the file is opened. I only want it to change when someone has changed my inventory list.

Thanks,
Danielle

The formula should read

=IF(A2=",",IF(B2="",NOW(),B2),NOW())

=IF(A2=A2,NOW(),B2)

Is the correct formula

Simply type the now function somewhere on the spreadsheet. =Now()

Then go to Data > validation and
Under Allow: = list
Under Source: = "the cell you typed the now formula"

This will allow you to do a "timestamp" function and make it stick!

Later

The validation method worked for me. However, it would be much better if it didnt rely on selecting from the drop down list, but instead captured the time/date when text was entered into the adjacent cell....