Code to Delete Data in Specific Cells

[Rich]

Hi Everyone,

I was wondering if you could help me with some Excel Coding

The following is what I am trying to Achieve. Please note that I only want
it to happen on the Active Sheet, not on any of the other sheets

If P23 is updated, then clear the data in cells S23, T23, U23, V23, W23,
X23, Y23, Z23, AA23 or (S23:AA23)

If S23 is updated, then clear the data in cells V23, W23, X23, Y23, Z23,
AA23 or (V23:AA23)

If V23 is updated, then clear the data in cells X23, Y23, Z23, AA23 or
(X23:AA23)

If X23 is updated, then clear the data in cells Y23, Z23, AA23 or (X23:AA23)

I will actually want to apply this same function in rows 23 - 42 so if
there is some sort of short cut that applies the code to all rows that would
be great.

 

[Per Jessen]

Hi

This is an event code, so you have to paste it into the codesheet for the
desired sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetRow As Long
Application.EnableEvents = False
Set isect = Intersect(Target, Range("P2342"))
Set isect1 = Intersect(Target, Range("S23:S42"))
Set isect2 = Intersect(Target, Range("V23:V42"))
Set isect3 = Intersect(Target, Range("X23:X42"))

If Not isect Is Nothing Then
TargetRow = Target.Row
Range("S" & TargetRow & ":AA" & TargetRow).ClearContents
End If
If Not isect1 Is Nothing Then
TargetRow = Target.Row
Range("V" & TargetRow & ":AA" & TargetRow).ClearContents
End If
If Not isect2 Is Nothing Then
TargetRow = Target.Row
Range("X" & TargetRow & ":AA" & TargetRow).ClearContents
End If
If Not isect3 Is Nothing Then
TargetRow = Target.Row
Range("Y" & TargetRow & ":AA" & TargetRow).ClearContents
End If
Application.EnableEvents = True
End Sub

Hopes this helps.
....
Per