Copy/Paste Controlled by Timer

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!
 
T

Tim Williams

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
 
R

ryguy7272

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---
 
R

ryguy7272

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--
 
Top