| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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/ |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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/ |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| write a copy/paste from one workbook to another in a macro | Excel Discussion (Misc queries) | |||
| Saving a copy of excel file in macro but have it auto write | Excel Worksheet Functions | |||
| How to write a simple copy-paste macro? | New Users to Excel | |||
| is it possible to execute write to the fields in another .xsl form a macro in another .xsl? e.g. some way to load another .xsl into an .xsl macro and write to its data? | Excel Worksheet Functions | |||
| How to write a macro to get the system time in excel 97 | Excel Discussion (Misc queries) | |||
Linear Mode
