looping every third row
 

I am trying to write a loop that will iterate every third row from row 4
to row 238. Each iteration would be as follows.

Range("C4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[0]-R[-2]C[0]"
Selection.NumberFormat = "$#,##0_);[Red]($#,##0)"
Range("C4:C4").AutoFill Destination:=Range("D4:O4")

I know I could write this in C++ with a for loop, but I'm not sure how I
would write this in VB. Any help would be great!

Jason


*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

looping every third row
 

Untested:
for n = 4 to 238 step 3
cell(n,3).FormulaR1C1 = "=R[-1]C[0]-R[-2]C[0]"
cell(n,3).NumberFormat = "$#,##0_);[Red]($#,##0)"
Not sure what you're attempting with the next line???
Range("C4:C4").AutoFill Destination:=Range("D4:O4")
next


"Jason Hancock" wrote in message
...
I am trying to write a loop that will iterate every third row from row 4
to row 238. Each iteration would be as follows.

Range("C4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C[0]-R[-2]C[0]"
Selection.NumberFormat = "$#,##0_);[Red]($#,##0)"
Range("C4:C4").AutoFill Destination:=Range("D4:O4")

I know I could write this in C++ with a for loop, but I'm not sure how I
would write this in VB. Any help would be great!

Jason


*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

looping every third row
 

I am getting compile error: sub or function not defined on the
cell(n,3). Do I need to Dim the cell?



*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

looping every third row
 

Change cell to Cells.



--
Message posted from http://www.ExcelForum.com

looping every third row
 

I think it's supposed to be

Cells

instead of cell.

--
Regards

Juan Pablo González

"Jason Hancock" wrote in message
...
I am getting compile error: sub or function not defined on the
cell(n,3). Do I need to Dim the cell?



*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

looping every third row
 

Yeah, that got it. Cells instead of cell. I should have known that
from my errors with sheet and sheets.

As for the line that had an unknown meaning:

Range("C4:C4").AutoFill Destination:=Range("D4:O4")

I'm trying to get the formula to be put in columns C through O. This
line, in a modified state, succeeded in putting dates in several cells,
however now I am getting a Runtime Error '1004'. Any ideas?




*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!