Speed Julius
New Member
- Joined
- Sep 18, 2014
- Messages
- 1
I have a macro that run when the cell value change manually (work's good) but when the cell value change using formula don't work.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("E1:E100")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If Target.Value > 1 Then
Col = Target.Column
fila = Target.Row
c = ActiveSheet.Cells(fila, Col - 3).Value
ActiveSheet.Cells(fila + 1, Col - 3).Value = c
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("E1:E100")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If Target.Value > 1 Then
Col = Target.Column
fila = Target.Row
c = ActiveSheet.Cells(fila, Col - 3).Value
ActiveSheet.Cells(fila + 1, Col - 3).Value = c
End If
End If
End Sub