VBA for multiple time stamps (start & finish)

[Raymie]

Hi

I have a VBA for entering a time stamp when running is entered in column 15 which enters now() in column 26 (see VBA below). What I am looking to do now is if complete is entered in column 15 I then get now() in column 27 so I can see the start and finishing time. Is this possible and how?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
xCellColumn = 15
xTimeColumn = 26
xRow = Target.Row
xCol = Target.Column
If Target.Text = "Running" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
End If
End If
End Sub

 

[Scott T]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

If Target.Column = 15 And UCase(Target) = "RUNNING" Then
    Cells(Target.Row, 26) = Date
ElseIf Target.Column = 15 And UCase(Target) = "COMPLETE" Then
    Cells(Target.Row, 27) = Date
End If
End Sub

 

[Raymie]

That worked perfect thanks

 

[Scott T]

You're welcome