Thread: Date Log
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
egun egun is offline
external usenet poster
 
Posts: 88
Default Date Log

If you are trying to record the date/time any time cell C13 changes to "Y",
then paste this code into that worksheet's code module (right-click on the
worksheet's name tab, select "View Code"):

Private Sub Worksheet_Change(ByVal Target As Range)
'
' This prevents recursion into this subroutine -
' set it back to True before you exit!
'
Application.EnableEvents = False
'
If (Target.Row = 13 And Target.Column = 3 And Target = "Y") Then
ActiveSheet.Cells(16, 3) = Format(Now(), "mmm dd, yyyy h:mm AMPM;@")
End If
'
Application.EnableEvents = True
End Sub

Note: set cell C16 format to "Text", note "Date" or the VBA Format
statement will not make any difference!

HTH,

Eric