View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
j j is offline
external usenet poster
 
Posts: 128
Default VB Questionmarks in a For loop

I've found a couple of posts similar to what i need, but i'm still having
issues with it. i'm trying to insert a formula into a cell via VB, and i'm
not doing the quotations correct i think. i just went ahead and put the
generic formula in there with no extra messy quotation marks just to
hopefully help this make more sense. any ideas?

For Row = 2 To 2 Step 1
Sheets(12).Select
Sheets(12).Copy Befo=Sheets(12)
Range("C7").Select

'***here's where i get the problem
ActiveCell.FormulaR1C1 = " =IF(MIN('Sheet1'!I"& Row &":S"& Row
&")<MAX('Sheet1'!I"& Row &":S"& Row &"),("$"&MIN('Sheet1'!I"& Row &":S"& Row
&") & " to $" & MAX('Sheet1'!I"& Row &":S"& Row &")),"$"&MAX('Sheet1'!I"& Row
&":S"& Row &")) " "


Next Row

thanks in advance

~jay