Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Help with Excel Macro.
I am very new to writing macros and very green.
I have the following macro to copy and paste a column of cells. Sub copypaste() ' ' copypaste Macro ' Macro recorded 6/22/2005 by ' ' Keyboard Shortcut: Ctrl+q ' Range("AD3:BF3").Select Selection.Copy Range("AD19:BF19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub In the line [Range("AD19:BF19").Select] is there any way I can get it paste it in the Active Cell of choice. Thanks, Cesar. |
#2
|
|||
|
|||
Sub test3()
Range("AD3:BF3").Copy ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub Just don't select range AD3:BF3, then the activecell will not change. "Cesar_us" wrote: I am very new to writing macros and very green. I have the following macro to copy and paste a column of cells. Sub copypaste() ' ' copypaste Macro ' Macro recorded 6/22/2005 by ' ' Keyboard Shortcut: Ctrl+q ' Range("AD3:BF3").Select Selection.Copy Range("AD19:BF19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub In the line [Range("AD19:BF19").Select] is there any way I can get it paste it in the Active Cell of choice. Thanks, Cesar. |
#3
|
|||
|
|||
Just curious. Why the line of code "Application.CutCopyMode = False".
Thanks "JMB" wrote: Sub test3() Range("AD3:BF3").Copy ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub Just don't select range AD3:BF3, then the activecell will not change. "Cesar_us" wrote: I am very new to writing macros and very green. I have the following macro to copy and paste a column of cells. Sub copypaste() ' ' copypaste Macro ' Macro recorded 6/22/2005 by ' ' Keyboard Shortcut: Ctrl+q ' Range("AD3:BF3").Select Selection.Copy Range("AD19:BF19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub In the line [Range("AD19:BF19").Select] is there any way I can get it paste it in the Active Cell of choice. Thanks, Cesar. |
#4
|
|||
|
|||
when you copy and paste items in Excel, you usually have to hit the ESC key
to cancel the copy mode (clear the dashes that appear around your copy range). that's what that line does. Put an apostrophe ' in front of that line of code, then run it and look at AD3:BF3. "Cesar_us" wrote: Just curious. Why the line of code "Application.CutCopyMode = False". Thanks "JMB" wrote: Sub test3() Range("AD3:BF3").Copy ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub Just don't select range AD3:BF3, then the activecell will not change. "Cesar_us" wrote: I am very new to writing macros and very green. I have the following macro to copy and paste a column of cells. Sub copypaste() ' ' copypaste Macro ' Macro recorded 6/22/2005 by ' ' Keyboard Shortcut: Ctrl+q ' Range("AD3:BF3").Select Selection.Copy Range("AD19:BF19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub In the line [Range("AD19:BF19").Select] is there any way I can get it paste it in the Active Cell of choice. Thanks, Cesar. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Saving Excel using Macro | Excel Discussion (Misc queries) | |||
How do I find a Macro in Excel when I don't know its name? | Excel Discussion (Misc queries) | |||
How can I edit cell contents with a macro in Excel? | Excel Discussion (Misc queries) | |||
Problem Editing Macro in Shared Excel File | Excel Discussion (Misc queries) | |||
Open Access Database under and Excel window using a Macro | Excel Worksheet Functions |