Active Sheet range a1 has changes, then copy value range a1 and paste to another sheet 2 range a1

[cooleomter]

Please help,
i have a two sheets in a workbook. my goal is that if Active Sheet range A1 has changes (numbers with decimal) , then copy value Sheet range A1 and paste to another sheet 2 range a1. Sheet 2 is prepared and not to be created again..

Thank you guys.

 

[Mushy peas]

You can't do this for all excel workbook, but you can do within the worksheet.

'Under sheet1
Private Sub Worksheet_Change(ByVal Target as Range) 
    Dim EachCell as Range

    For Each EachCell in Target.cells
        If IsNumeric(EachCell.Value) Then If Int(EachCell.Value2) <> EachCell.Value2
            Sheet2.Cells(Target.Row, Target.Column) = EachCell.Value2
        End If
    Next EachCell
End Sub

 

[myall_blues]

When you say"

if Active Sheet range A1 has changes (numbers with decimal)

what do you mean by 'has changes'?
Do you mean if the value in the cell changes, or if it is different from the corresponding value in sheet 2?
Does A1 contain a formula, or is the data entered manually?