Code to Copy and Paste Values with interval of 3 Seconds

[rexcel548562]

Hi,

I want to copy values from Cell D1 and paste into cell C1. I want that whenever value is changed in cell D1, then Code should detect it and after 3 seconds it should copy this value from cell D1 and paste into cell B1.

[mjr veverka]

So why do you need cell "C1" here what does "C1" have to do with all of this ?

[k1dr0ck]

copy from D1 to C1 then after 3 seconds copy to B1?

try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intersection As Range
Set intersection = Intersect(Target, Range("D1"))

    If Not intersection Is Nothing Then
        Range("C1").Value = Range("D1").Value
        Application.Wait Now() + TimeValue("0:0:03")
        Range("B1").Value = Range("D1").Value
    End If

End Sub