Copy Paste

  • Thread starter Thread starter smandula
  • Start date Start date
S

smandula

I have a column starting A1 for 10 rows. Every 3 seconds copy and paste to
cell E1,
the value found in A1, then 3 seconds later value in A2 paste to E1 .. etc.
until A10 is done. Then stop.
Here is some of the code.


Dim x
Sub IncreseEvery60()
ActiveCell.Offset(1, 0).Select
Call xReturn

Application.OnTime Now + TimeValue("00:00:03"), "IncreseEvery60"

End Sub

Sub xReturn()
Let x = ActiveCell.Address.Cut
ActiveCell.Paste _
Destination:=ActiveCell.Range("E1")

'problem here of returning to active cell in column A

Range(x).Select 'Return to prior cell address

End Sub

With thanks
 
Sub IncreseEvery60()
ActiveCell.Offset(1, 0).Select
Range("E1").Value = ActiveCell.Value

Application.OnTime Now + TimeValue("00:00:03"), "IncreseEvery60"

End Sub
 
Back
Top