Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy and paste range ontime
Hi,
I need to copy a static range and paste to specific cells at specific times. The time interval is over 370 minutes. Here is the code that seems to work well. Sub CopyVolume1() Range("C2:C4").Select Selection.Copy Range("D2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Public Sub Time() Application.OnTime TimeValue("14:07:00"), "CopyVolume1" Application.OnTime TimeValue("14:08:00"), "CopyVolume2" Application.OnTime TimeValue("14:09:00"), "CopyVolume3" End Sub Sub CopyVolume2() Range("C2:C4").Select Selection.Copy Range("e2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Sub CopyVolume3() Range("C2:C4").Select Selection.Copy Range("f2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Is there a way to do this with out having to copy and paste the Sub CopyVolume3 until I have 370 Sub CopyVolumes and 370 Application.OnTime TimeValue("14:09:00"), "CopyVolume3". Each time having to enter the various parameters ? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy & paste range | Excel Programming | |||
Find %ontime & SUMIF ontime ie: find matching sets within Range... | Excel Worksheet Functions | |||
copy range and paste into every 3rd cell of new range | New Users to Excel | |||
Copy/Paste Range | Excel Programming | |||
Copy paste range | Excel Programming |