Cell Update kickoffs Another Cell Update

[V L]

Hello All:

Looking for some assistance with the following. The contents of cell C17 occasionally gets updated. When this occurs, I would like cell S4 to automatically update to todays date. This workbook contains many tabs. This will only need to run on select sheets. Thank you in advance...

 

[Joe4]

Put code like this in the "ThisWorkbook" module in the VB Editor (it absolutely MUST be in this location), and edit the IF statement to match what sheets you want to run it against:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'   Exit if multiple cells updated at once
    If Target.CountLarge > 1 Then Exit Sub

'   Only run on Sheets 2 and 3
    If (Sh.Name = "Sheet2") Or (Sh.Name = "Sheet3") Then
'       See if cell C17 is updated
        If Target.Address(0, 0) = "C17" Then
'           Update cell S4 with today's date
            Sh.Range("S4") = Date
        End If
    End If
    
End Sub

 

[V L]

Put code like this in the "ThisWorkbook" module in the VB Editor (it absolutely MUST be in this location), and edit the IF statement to match what sheets you want to run it against:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'   Exit if multiple cells updated at once
    If Target.CountLarge > 1 Then Exit Sub

'   Only run on Sheets 2 and 3
    If (Sh.Name = "Sheet2") Or (Sh.Name = "Sheet3") Then
'       See if cell C17 is updated
        If Target.Address(0, 0) = "C17" Then
'           Update cell S4 with today's date
            Sh.Range("S4") = Date
        End If
    End If
   
End Sub

Would it be possible to add some VBA to the individual sheets that will need to run this?

 

[RoryA]

Note you should always disable events if you are changing cells on the same sheet whose Change event you are monitoring.

 

[Joe4]

Would it be possible to add some VBA to the individual sheets that will need to run this?

Please explain exactly what you are talking about in more detail.