Copy a rectangular range of cells with VB

[ilya2004]

Hi everyone,<o></o>
<o></o>
I am trying to copy a rectangularrange of cells from one area of the worksheet to another without using the copyand paste function.<o></o>
<o></o>
Essentially I am trying to geta code that does the following:<o></o>
<o></o>
<o></o>

[/FONT][/COLOR]
[COLOR=black][FONT='inherit']Range("A1:B3") =Range("C4:D6")<o:p></o:p>[/FONT][/COLOR]

<o></o>
<o></o>
Thanks,<o></o>
Ilya<o></o>

 

[Scott Huish]

Misread post.

 

[Jonmo1]

Try

Range("A1:B3").Value = Range("C4:D6").Value<O:P></O:P>

 

[Rick Rothstein]

This uses Copy/Paste underneath the surface, but does so in a line of code. It differs from what jonmo1 posted in that it preserves the cell formatting from C4:D6... jonmo1's code only copies the cell values and nothing more (it was not clear to me which functionality you were after)...

Range("C4:D6").Copy Range("A1")

 

[ilya2004]

This uses Copy/Paste underneath the surface, but does so in a line of code. It differs from what jonmo1 posted in that it preserves the cell formatting from C4:D6... jonmo1's code only copies the cell values and nothing more (it was not clear to me which functionality you were after)...

Range("C4:D6").Copy Range("A1")

Hi Rick,

I actually only want to copy the value of the cells, but I like that your code only makes me specify the location of the first cell instead of the whole range. I would rather only copy the values because in practice this will be selecting ranges of 10,000's of cells and it will be faster to do it that way. Is there a way to do this?

-Ilya

 

[Scott Huish]

jonmo's answer does that

 

[ilya2004]

Great, thank you all