Forum Discussion
when cell value changes, copy the information to a new worksheet but also retain each change
Try this.
But after entering the value press enter, don't try downarrow / tab .
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
a = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1
ActiveCell.Offset(-1, 0).Activate
Sheets("Sheet2").Range("A" & a).Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
End If
End Sub
Hello sir it is working fine with this code. But here i want this automation with different way, so please guide here if it is possible.
Here you use cells F3, F4 and Range B, but here I just want to play with B2 which is the difference between the F4 (current price) and F3 (Last price). So whenever B2 gets any update then I want to store its result in B3, and if there is again any update then store result in B4 and so on.
Note: 1. cell F3 (last price) remains fixed, will not going to be change.
2. B2 (Difference between F4 and F3) gets update only when cell F4 (current price) gets change.
