Change in one cell adds a date to another cell,,,

[V L]

Hello All: I need some VBA to do the following. This VBA needs to run on one tab only. I make a change to the contents in cell C17. I would like the change in C17 to then set the date in cell S4. Hopefully this is clear.

V L...

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in C17 and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("C17")) Is Nothing Then Exit Sub
    Range("S4") = Date
End Sub

 

[iggydarsa]

what you are asking is not too clear but for what I understand this code might help you

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row = 17 Then
        Range("S4").Value = Date
    End If
End Sub