Help with Excel Macro.

[Guest]

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.

 

[Guest]

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.

 

[Guest]

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

Thanks

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.

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.

 

[Guest]

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.

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

Thanks

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.

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.