Thread
:
sum function
View Single Post
#
7
Posted to microsoft.public.excel.programming
[email protected]
external usenet poster
Posts: 12
sum function
thanx tom .. but as column dont work
but i found something
..Offset(17, 0).FormulaR1C1 = "=SUM(R[-17]C:R[-1]C)"
and it's working !!
Tom Ogilvy a écrit :
Sub AddFormula()
Dim col as Column
set col = Cells(1."IV").End(xltoLeft).Column
cells(3,col).End(xldown)(2).Formula = "=Sum(R3C:R[-1]C)"
End Sub
--
Regards,
Tom Ogilvy
wrote in message
ps.com...
anyone have any idea on how to do this ???
a écrit :
here is what i got for now .. but the sum formula dont show up in the
sheet. can someone help me
Dim GraphicWks As Worksheet
Dim DestCell As Range
Dim x As Range
Dim y As Range
Dim sumrng As Range
Set GraphicWks = Worksheets("calcul pour graphique")
With GraphicWks
Set DestCell = .Cells("3", .UsedRange.Columns.Count + 1)
Set x = .Cells("3", .UsedRange.Columns.Count)
Set y = .Cells(ActiveSheet.UsedRange.Rows.Count,
ActiveSheet.UsedRange.Columns.Count)
Set sumrng = Range(x, y)
End With
With DestCell
.Offset(17, 0).Formula = "=sum('" & sumrng
& "')"
End With
End Sub
please!
a écrit :
this work out good if i want the sum of only a1: to end of row..
but everytime the macro runs a new column is added. and this is the
column i want to have the sum
i have 2 headers on the top and like 12 values under it
week1
good
value 1
2
3
sum of all value
a écrit :
Hi,
try this :
Sub SUMMING()
Dim oEnd As Object, r
Set oEnd = Range("A65536").End(xlUp)
r = oEnd.Row + 1
Range("A" & r).Formula = "=sum(a1:a" & oEnd.Row & ")"
End Sub
Rgds,
Halim
menuliskan:
hi all,
i need help on how to put a sum function at the end of the last
(rigth
end ) column.
follow the number for the macro sequence of where the data is input.
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
| 1 | 2 |
3(sum of all 1) 4(sum of all 2)
after each run of the macro there is a new colomn of data and a new
sum
thx for the help in advance
Reply With Quote
[email protected]
View Public Profile
Find all posts by
[email protected]