Copy Paste from Active cell

[Guest]

I would like to have my macro copy paste range value from column b to J but
cannot seem to modify from a fixed postion to active cell. Ideally I want to
be able to move cell to any row in column b and run macro. Any help is
appreciated.

Sub Macro2()
Range("B11:J11").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Range("B11:M11").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="HomeBase"
End Sub

 

[Tom Ogilvy]

You macro select B11:J11

then it does nothing with it and selects

B11:M11

which it copies and pastes as values on top of itself.

What functionally do you want to do.

You said copy the activecell and what range associated with it and where to
you want to paste it.

If I wanted to copy the activecell and two cells to the right always to
column M of the same row I would do something like


Sub CopySomething()
ActiveCell.Resize(1,3).Copy
Cells(ActiveCell.Row,"M").Pastespecial xlValues
Application.Goto Reference:="HomeBase"
End Sub

Perhaps you can adapt that to meet your needs.

 

[Guest]

Tom,
The cells range in question are links to other cells in a worksheet. The
purpose of the copy / paste value is to eliminate the links. In this
situation I am starting at column B and want the range to extend to column M.
Your code will copy / paste the column B. How can I extend it to
incorporate column B through M?

 

[Tom Ogilvy]

Sub RemoveLinks()
if activecell.Column = 2 then
activeCell.Resize(1,12).copy
activeCell.PasteSpecial xlValues
end if
End Sub