Passing Formula to Excel Using Cells Reference 1

[joebb3]

I generate a dynamic spreadsheet from Access. It works perfect except I do my MATH in access and just pass the result to Excel.

Like this:

wks.Cells(iRow, X) = LColMinor

LColMinor contains a sum of specific data.

What I want to do is pass the formula to make the spreadsheet updateable.

HOWEVER... I use the NUMERIC reference to cells in my code, NOT the Alphanumeric.

Like:

appexcel.Range(Cells(iRow, X), Cells(iRow, X)).Select

or

wks.Cells(9, 4)

So how do I pass a fomula based on Cells?

Here is an example of a failed attempt of mine:

wks.Cells(8, 9).Formula = "=Sum(Cells(" & PrevFR & "," & X & "): Cells(" & PrevLR & "," & X & "))"

which works out to 

=Sum(Cells(4,9):Cells(7,9))

Thanks in advance!

Joe

 

[SkipVought]

hi,

use the Address property of the range object...

wks.Cells(8, 9).Formula = "=Sum(" & Cells(PrevFR, X).Address & ":" & Cells(PrevLR, X).address & ")"

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[joebb3]

Skip... How many ways is there to say... "You da man!"

Thanx Tons! Here's a star!