ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Error inserting formulas into a range object (https://www.excelbanter.com/excel-programming/336447-error-inserting-formulas-into-range-object.html)

Josh22[_3_]

Error inserting formulas into a range object
 

Greetings all,

I am receiving an 'Application-defined or Object-defined' Run-time
error on some simple code but I can not for the life of me get it to
work. I am using 2003 and trying to just insert a formula into a
selected range of rows down a column.


Code:
--------------------

Dim cell As Range

Sub insertLineSellFormula()
For Each cell In Selection
cell.Formula = "=OFFSET(" & cell.Address & ",0,-2)/(1-OFFSET(" & cell.Address & ",0,-1)"
Next cell
End Sub
--------------------

Oddly enough I can reference the cell object to alter other properties
of it within the loop (clear it, apply conditional formats, ect.) but
when I attempt to insert the formula or a .Value I get the run-time
error.

As always any insight you guys may have is very much appreciated.

Thanks!


--
Josh22
------------------------------------------------------------------------
Josh22's Profile: http://www.excelforum.com/member.php...o&userid=24080
View this thread: http://www.excelforum.com/showthread...hreadid=393114


justahelper

Error inserting formulas into a range object
 

I think the end of your formula is missing a bracket.
",0,-1)"
should be
",0,-1))"


"Josh22" wrote:


Greetings all,

I am receiving an 'Application-defined or Object-defined' Run-time
error on some simple code but I can not for the life of me get it to
work. I am using 2003 and trying to just insert a formula into a
selected range of rows down a column.


Code:
--------------------

Dim cell As Range

Sub insertLineSellFormula()
For Each cell In Selection
cell.Formula = "=OFFSET(" & cell.Address & ",0,-2)/(1-OFFSET(" & cell.Address & ",0,-1)"
Next cell
End Sub
--------------------

Oddly enough I can reference the cell object to alter other properties
of it within the loop (clear it, apply conditional formats, ect.) but
when I attempt to insert the formula or a .Value I get the run-time
error.

As always any insight you guys may have is very much appreciated.

Thanks!


--
Josh22
------------------------------------------------------------------------
Josh22's Profile: http://www.excelforum.com/member.php...o&userid=24080
View this thread: http://www.excelforum.com/showthread...hreadid=393114




All times are GMT +1. The time now is 12:08 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com