Copy/Paste Controlled by Timer

  • Thread starter Thread starter ryguy7272
  • Start date Start date
R

ryguy7272

How can I create a macro that calculates a time interval, say 10 seconds, and
then copies all data from column B to column C, then waits 10 minutes, then
copies columns C to D, waits 10 minutes, then copies D to E, and so on and so
forth.

Thanks!
 
Look at Application.OnTime

eg.

Dim col As Integer

Sub StartItUp()
col = 2
Application.OnTime Now + TimeSerial(0, 0, 10), "DoCopy"
End Sub


Sub TimedCopy()
Sheet1.Columns(col).Copy Sheet1.Columns(col + 1)
col = col + 1
If col < 100 Then
Application.OnTime Now + TimeSerial(0, 10, 0), "DoCopy"
End If
End Sub


Tim
 
Thanks FSt1! I've seen that before. Forgot about it; thanks for reminding
me. One more thing, how can I start in column B, copy then paste one column
to the right, then copy then paste that column (now in column C) and copy
then paste one to the right (now in column D) and copy then paste one to the
right (now in column E)...etc...

Thanks!
Ryan---
 
I ended up going with two columns, and got it working with this:

Dim i As Long
Dim iCol As Long
Dim num As Long

iCol = 7
num = 100

Columns(iCol).Select
Range("IV1").Select
Selection.End(xlToLeft).Select


For i = 0 To num

Selection.EntireColumn.Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste

Next i

Thanks!
Ryan--
 
Back
Top