try this
Sub test()
Dim i As Long
' change value of i as per your requirement
i = 2
Range(ActiveCell, ActiveCell.Offset(i, 200)).Copy
End Sub
On Thu, Jan 13, 2011 at 11:03 PM, iggy-mac wrote:
> Ashish,
>
> Thanks for your help, that works just fine.
>
> If I was to take that a step further,
Ashish,
Thanks for your help, that works just fine.
If I was to take that a step further, how would I amend the code so
that the copy range stepped 200 to the right, regardless of how many
rows I highlighted ie sometimes I'll copy one row, somestimes it may
be 2,3..4 rows.
I can do it one at a t
try this
Range(ActiveCell, ActiveCell.Offset(0, 200)).Copy
On Thu, Jan 13, 2011 at 7:06 PM, iggy-mac wrote:
> Hello Group,
>
> Can anyone help me with this “simple” line of code. I need a line
> that will allow me to:
>
> Starting at the cell I’m in,
> Extend right for 200 cells
> Activate t
Hello Group,
Can anyone help me with this “simple” line of code. I need a line
that will allow me to:
Starting at the cell I’m in,
Extend right for 200 cells
Activate the cells & copy
I want to use easy code ie along the lines of
ActiveCell.Offset(0,200).Range.Select
Or
Range.ActiveCell.Offset
