Date

[reza]

Dear All,

hoping you can help me...
actually it will easier if i use project professional, but my manager said i
should use excel.
A(Activity) B (Target) C(Start) D(Finish)
E(Realization)
In depth survey 500 respondent

what i want to achieve, when i input in column E(realization), the start
date will automatically fill with the input date and when they input 500
respondent in column E, the finish date will automatically input date. (like
microsoft project)...

need your guidance to achieve this...pleaseeee....

so many thanks

reza

 

[Bernie Deitrick]

Reza,

Right-click the sheet tab, select "View Code" and paste the code into the
window that appears. I assumed that the entry of 500 is an actual number,
not a string, but that can be changed if needed.

HTH,
Bernie
MS Excel MVP


Private Sub Worksheet_Change(ByVal Target As Range)
'Limit to single cells in column E
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 5 Then Exit Sub

Application.EnabeEvents = False
If Target.Value >= 500 Then
If Cells(Target.Row, 4).Value = "" Then
Cells(Target.Row, 4).Value = Date
End If
Else
If Cells(Target.Row, 3).Value <> "" Then
Cells(Target.Row, 3).Value = Date
End If
End If
Application.EnabeEvents = True
End Sub