If any cell in a ranges changes?

[mikeymay]

I want to execute some code if any of the cells within a ranges of cells changes.

I am aware of the following code to do this for a single cell

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "$D$10" Then

'further code

but I'm not sure how to implement into a range so that a cell 2 columns to the left of the changed cell is amended.


Thanks

 

[VoG]

Do you mean something like

Target.Offset(, -2).Value = "x"

 

[mikeymay]

I think so....

For example -

The range to check is D1 to D50.
Cell D12 has a value added to it/has its current value changed, I then want cell B12 to equal to value added in D12 if B12 is currently blank/empty.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1:D50")) Is Nothing Then Exit Sub
If Target.Offset(, -2).Value = "" Then
    Application.EnableEvents = False
    Target.Offset(, -2).Value = Target.Value
    Application.EnableEvents = True
End If
End Sub

 

[mikeymay]

Works a treat!!

Thanks :D