how to copy cells data in every 7th row?
 

Hi,
I have a column of data from A2 to A65000 and I am only interested in
every 7th data point (e.g. A2, A9, A16....). Is there a way to get those
selected points and store them in the next column (B) consecutviely (b1, b2,
b3, b4, ...)?

Thanks,

Jeff

how to copy cells data in every 7th row?
 

Jeff,

Sub Get7()
Dim outrng As Range
Dim i As Long
Set outrng = Range("b1")
Lastrow=cells(rows.count,1).end(xlup).row
For i = 2 To lastrow Step 7
outrng = Cells(i, 1)
Set outrng = outrng.Offset(1, 0)
Next i
End Sub


HTH

"Jeff" wrote:

Hi,
I have a column of data from A2 to A65000 and I am only interested in
every 7th data point (e.g. A2, A9, A16....). Is there a way to get those
selected points and store them in the next column (B) consecutviely (b1, b2,
b3, b4, ...)?

Thanks,

Jeff

how to copy cells data in every 7th row?
 

=Indirect("A" & (row()-1)*7+2) in B1 then drag fill down.

--
Regards,
Tom Ogilvy

"Jeff" wrote in message
...
Hi,
I have a column of data from A2 to A65000 and I am only interested in
every 7th data point (e.g. A2, A9, A16....). Is there a way to get those
selected points and store them in the next column (B) consecutviely (b1,
b2,
b3, b4, ...)?

Thanks,

Jeff

how to copy cells data in every 7th row?
 

Place this in B1 and drag down:

=OFFSET($A$2,(ROW()-1)*7,0)

*Note that if you place it in any other row besides the first you'll have to
do some slight modification from the way it is currently written

--
Regards,
Dave


"Jeff" wrote:

Hi,
I have a column of data from A2 to A65000 and I am only interested in
every 7th data point (e.g. A2, A9, A16....). Is there a way to get those
selected points and store them in the next column (B) consecutviely (b1, b2,
b3, b4, ...)?

Thanks,

Jeff