Bob Phillips
12/19/2006 4:34:00 PM
Are you sure it works <G>.? Looking again it seems to me I have rows and
columns mixed up. Assuming it does
With Worksheets("SheetName")
j = Activecell.Column
For i = 2 To .Cells(.Rows.Count, j).End(xlUp).Row Step 8
.Cells(Activecell.Row, j).FormulaR1C1 = "=SheetName!R[" & i &
"]C"
j = j + 1
Next i
End With
--
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
"colin919" <colin919@discussions.microsoft.com> wrote in message
news:893CACC2-8E27-43FE-8D36-936A6989FC8D@microsoft.com...
> Works great!
> But it created another question. How do I word the "Do while loop" to run
> until the data in the "Sheetname" cell is emptycell? My syntax does not
> seem
> to be working.
>
> "Bob Phillips" wrote:
>
>> j = Activecell.Column
>> For i = 2 To 18 Step 8
>> Cells(Activecll.Row, j).FormulaR1C1 = "=SheetName!R[" & i & "]C"
>> j = j + 1
>> Next i
>>
>> --
>> ---
>> HTH
>>
>> Bob
>>
>> (change the xxxx to gmail if mailing direct)
>>
>>
>> "colin919" <colin919@discussions.microsoft.com> wrote in message
>> news:AFEBF649-977E-4160-8D01-910A4E984C52@microsoft.com...
>> > My current situation is:
>> >
>> > ActiveCell.FormulaR1C1 = "=SheetName!R[2]C"
>> > ActiveCell.Offset(1, 0).Select
>> > ActiveCell.FormulaR1C1 = "=SheetName!R[10]C"
>> > ActiveCell.Offset(1, 0).Select
>> > ActiveCell.FormulaR1C1 = "=SheetName!R[18]C"
>> > etc......
>> >
>> > I would like to replace the row with an integer increasing by 8
>> > therefore
>> > creating a small loop. VB at the moment does not seem to understand my
>> > request. Is there an easier way to do this? Please help!
>> >
>>
>>
>>