I am working with the following code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("u11:u32")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then Range("t69").Select
Application.CutCopyMode = False
Selection.Copy
Range("s69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("u9").Select
Application.EnableEvents = True
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("y11:y32")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then Range("x69").Select
Application.CutCopyMode = False
Selection.Copy
Range("w69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("y9").Select
Application.EnableEvents = True
End Sub
The first part is working perfectly, but when I change values in range y11:y32, nothing happens.
Can anyone help on this?
thanks
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("u11:u32")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then Range("t69").Select
Application.CutCopyMode = False
Selection.Copy
Range("s69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("u9").Select
Application.EnableEvents = True
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("y11:y32")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then Range("x69").Select
Application.CutCopyMode = False
Selection.Copy
Range("w69").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("y9").Select
Application.EnableEvents = True
End Sub
The first part is working perfectly, but when I change values in range y11:y32, nothing happens.
Can anyone help on this?
thanks