Write a macro ro copy column at certain time of day.
 

will this work ?

Sub Copy()
Application.OnTime TimeValue("10:00:00"), "CopyColumn"
End Sub

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
End Sub


---
Message posted from http://www.ExcelForum.com/

Write a macro ro copy column at certain time of day.
 

Yes, that should work okay. A suggestion, and a question.

Suggestion. The select is not required, you could use this code

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False
Application.CutCopyMode = False
End Sub

Question. What will trigger the Copy macro? To reduce your work, you will
want this automated. Do you know about workbook open code, because that is
probably the best place to put it?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Daytrader " wrote in message
...
will this work ?

Sub Copy()
Application.OnTime TimeValue("10:00:00"), "CopyColumn"
End Sub

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
End Sub


---
Message posted from http://www.ExcelForum.com/

Write a macro ro copy column at certain time of day.
 

I posted this also

Columns("N").Value = Columns("C").Value

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Bob Phillips" wrote in message ...
Yes, that should work okay. A suggestion, and a question.

Suggestion. The select is not required, you could use this code

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False
Application.CutCopyMode = False
End Sub

Question. What will trigger the Copy macro? To reduce your work, you will
want this automated. Do you know about workbook open code, because that is
probably the best place to put it?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Daytrader " wrote in message
...
will this work ?

Sub Copy()
Application.OnTime TimeValue("10:00:00"), "CopyColumn"
End Sub

Sub CopyColumn()
Columns("C:C").Copy
Columns("N:N").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
End Sub


---
Message posted from http://www.ExcelForum.com/