| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there a Better way Q
Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded? Thanks Sub Macro1() Sheets("Sheet1").Select Range("C51:C57").Select Selection.Copy Sheets("Copy").Select Range("C51:D57").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("C62:C64").Select Selection.Copy Sheets("Copy").Select Range("C62:D64").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Is there a Better way Q
Option Explicit
Sub Macro1() workSheets("Sheet1").Range("C51:C57").Copy workSheets("Copy").Range("C51:D51").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False workSheets("Sheet1").Range("C62:C64").Copy workSheets("Copy").Range("C62:D62").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.cutcopymode = false 'remove marching ants End Sub Sean wrote: Is there a better way (which I'm sure there is) of performing a simple copy function as detailed below in a Macro I've recorded? Thanks Sub Macro1() Sheets("Sheet1").Select Range("C51:C57").Select Selection.Copy Sheets("Copy").Select Range("C51:D57").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("C62:C64").Select Selection.Copy Sheets("Copy").Select Range("C62:D64").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select End Sub -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Is there a Better way Q
Thanks Dave, whats the last piece "'remove marching ants?? (just don't
get the joke) On Jan 25, 9:52 pm, Dave Peterson wrote: Option Explicit Sub Macro1() workSheets("Sheet1").Range("C51:C57").Copy workSheets("Copy").Range("C51:D51").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False workSheets("Sheet1").Range("C62:C64").Copy workSheets("Copy").Range("C62:D62").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.cutcopymode = false 'remove marching ants End Sub Sean wrote: Is there a better way (which I'm sure there is) of performing a simple copy function as detailed below in a Macro I've recorded? Thanks Sub Macro1() Sheets("Sheet1").Select Range("C51:C57").Select Selection.Copy Sheets("Copy").Select Range("C51:D57").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("C62:C64").Select Selection.Copy Sheets("Copy").Select Range("C62:D64").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select End Sub-- Dave Peterson- Hide quoted text -- Show quoted text - |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Is there a Better way Q
Not a joke.
Select a range (b3:C9 say) edit|copy You'll see that marquee effect around the copied cells. Sean wrote: Thanks Dave, whats the last piece "'remove marching ants?? (just don't get the joke) On Jan 25, 9:52 pm, Dave Peterson wrote: Option Explicit Sub Macro1() workSheets("Sheet1").Range("C51:C57").Copy workSheets("Copy").Range("C51:D51").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False workSheets("Sheet1").Range("C62:C64").Copy workSheets("Copy").Range("C62:D62").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.cutcopymode = false 'remove marching ants End Sub Sean wrote: Is there a better way (which I'm sure there is) of performing a simple copy function as detailed below in a Macro I've recorded? Thanks Sub Macro1() Sheets("Sheet1").Select Range("C51:C57").Select Selection.Copy Sheets("Copy").Select Range("C51:D57").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("C62:C64").Select Selection.Copy Sheets("Copy").Select Range("C62:D64").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select End Sub-- Dave Peterson- Hide quoted text -- Show quoted text - -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Is there a Better way Q
aaaaah thats what it means, I gotta be a little bit sharper I guess.
Thanks again On Jan 25, 10:02 pm, Dave Peterson wrote: Not a joke. Select a range (b3:C9 say) edit|copy You'll see that marquee effect around the copied cells. Sean wrote: Thanks Dave, whats the last piece "'remove marching ants?? (just don't get the joke) On Jan 25, 9:52 pm, Dave Peterson wrote: Option Explicit Sub Macro1() workSheets("Sheet1").Range("C51:C57").Copy workSheets("Copy").Range("C51:D51").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False workSheets("Sheet1").Range("C62:C64").Copy workSheets("Copy").Range("C62:D62").PasteSpecial _ Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.cutcopymode = false 'remove marching ants End Sub Sean wrote: Is there a better way (which I'm sure there is) of performing a simple copy function as detailed below in a Macro I've recorded? Thanks Sub Macro1() Sheets("Sheet1").Select Range("C51:C57").Select Selection.Copy Sheets("Copy").Select Range("C51:D57").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("C62:C64").Select Selection.Copy Sheets("Copy").Select Range("C62:D64").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select End Sub-- Dave Peterson- Hide quoted text -- Show quoted text --- Dave Peterson- Hide quoted text -- Show quoted text - |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Linear Mode
