I can't help you with this. Maybe try posting in the programming newsgroup.
On thing I did notice is in autofill the double xx in xlsheet:

xlsheet.range("c1:c2").autofill (
xxlsheet.range("c1"):xlsheet.range("c25"))

--
Biff
Microsoft Excel MVP


"balu" wrote in message
...
dear sir ,
i would like to represent my need in detail my for mula on an accessform
like this
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet
dim xlapp as excel.application
set xlapp = createobject ( " excel.application")
set xlbook = xlapp.workbook.add
set xlsheet = xlbook.xlsheet(1)
xlapp.visible = true
xlsheet.range("a1").value = 1000
xlsheet.range("b1").value = 200
xlsheet.range("c1").formula = xlsheet.range("a1").value -
xlsheet.range("b1").value
xlsheet.range("c2").formula = xlsheet.range("a2").value -
xlsheet.range("b2").value
'**********************
' actually column A and column b values were query values imported.

xlsheet.range("c1:c2").autofill (
xxlsheet.range("c1"):xlsheet.range("c25"))

' here im failing to autofill the formula for the range through code but
' i can with dragging the curser on the excel sheet on column C why ?
so it must be alike this,
a1=100 a2 = 200 a3 = 300
b1= 10 b2 = 0 c3 = 20
c1 = 110 c2 = 200 c3 = 320


please advise sir



"T. Valko" wrote:

Try this:

Enter this formula in B1:

=A1

Enter this formula in B2 and copy down as needed:

=B1+A2

Another way if your list of numbers in column A isn't too long:

Enter this formula in B1 and copy down as needed:

=SUM(A$1:A1)


--
Biff
Microsoft Excel MVP


"balu" wrote in message
...
dear sir,
i want the progressive sum of cell values in one column like this
column "a" , "a1"=10,"a2"=15,"a3"=20,"a4"=30 and i want the progressive
sum
of column A in column B like this
column "b" , "b1"=10,"b2'=25, "b3"=45 ,"b4"=75 and so on with respect
to
column A CELL values
can any kind guy can help me please