Using Offset with Ranges

[syoun02]

I am still new to learning VBA. I want to be able to copy a cell, move it over a certain number of rows/colums (via the offset function) and then paste the cell into 3 different consecutive columns. How do I write the code- do I integrate the range function into the offset function?

Thanks!

 

[AJ]

I reckon you're well on the way there.
For example, to copy the contents of Cell A10 to Cells B11 through F11...

Range("A10").Select
Selection.Copy

Range(ActiveCell.Offset(1, 1), ActiveCell.Offset(1, 5)).Select
ActiveSheet.Paste

Rgds
AJ

 

[NateO]

Play with something like this:

Sub cpy()
ActiveCell.Copy ActiveCell.Offset(1, 4).Resize(, 3)
End Sub

Like offset, resize has two paramters, rows & columns. You can change activecell to a range (e.g., [a1].Copy [a1].Offset(1, 4).Resize(, 3))

Hope this helps.

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue">O</font></font></font>
This message was edited by NateO on 2002-05-02 08:24

 

[AJ]

Cool!