PDA

View Full Version : Need help for edit code



etheer
11-19-2012, 10:08 AM
Hi
i need help edit code copy cell and past to another cell

jolivanes
11-19-2012, 09:46 PM
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Target.Value = "Yes" Then Target.Offset(, 1).Value = "Yes": Target.Offset(, 2).Value = Target.Offset(, -4).Value
End If
End Sub