Date Functions
 

Hello,

I would like to be able to have the following happen. If Part # cell is
blank then Completed Date is blank, but if a value is entered into the part #
cell I would like to have the current date appear in the Completed Date cell,
and to stay that date. Currently once midnight comes the date changes.

Sample chart:
Part # Request Date Completed Date

1234 April 23/06

Thanks

Date Functions
 

Hey,
try this change event macro in the sheet module:
-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 2
If Target.Offset(0, -1).Value "" Then
Target.Offset(0, 1).Value = Format(Now(),
"mm/dd/yyyy")
Else
Target.Offset(0, 1).Value = ""
End If

End Select
End Sub
----------------------------------------
Ben:cool:


--
protonLeah
------------------------------------------------------------------------
protonLeah's Profile: http://www.excelforum.com/member.php...o&userid=32097
View this thread: http://www.excelforum.com/showthread...hreadid=535390