Help with Excel Macro.

C

Cesar_us

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.
 
J

JMB

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.
 
C

Cesar_us

Just curious. Why the line of code "Application.CutCopyMode = False".

Thanks

JMB said:
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 said:
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.
Click to expand...
Click to expand...
 
J

JMB

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 said:
Just curious. Why the line of code "Application.CutCopyMode = False".

Thanks

JMB said:
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 said:
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.
Click to expand...
Click to expand...
Click to expand...
 
Top