Recording changed cells in the same sheet
 

What I need to do is this:

I have two column of data, the first has numbers and the second is
blank. If I change anything in the first column I need the old value
to appear in the second column automatically. What would be the
easiest way to accomplish this?

Recording changed cells in the same sheet
 

put in sheet code-module (column A1:A100 is target B is dest.) change if..

Dim x, cl

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = x
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Value
End Sub


"unlucky" skrev:

What I need to do is this:

I have two column of data, the first has numbers and the second is
blank. If I change anything in the first column I need the old value
to appear in the second column automatically. What would be the
easiest way to accomplish this?

Recording changed cells in the same sheet
 

That worked completely and perfectly. Thanks very much!

On Jun 12, 4:41 pm, excelent
wrote:
put in sheet code-module (column A1:A100 is target B is dest.) change if..

Dim x, cl

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = x
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Value
End Sub

"unlucky" skrev:

What I need to do is this:

I have two column of data, the first has numbers and the second is
blank. If I change anything in the first column I need the old value
to appear in the second column automatically. What would be the
easiest way to accomplish this?