I've finally got it :
Code
-------------------
Sub sumf()
'simulation of sum function
S = 0
x = ActiveCell.Row()
x = x - 1
For i = x To 6 Step -1
If Cells(x, 6) < 0 Then
S = S + Cells(x, 6).Value
Else
S = S
End If
Next i
[sumall] = S
ActiveCell.FormulaR1C1 = "=SUM(sumall)"
End Sub
-------------------
but, if i change a value it doesn't change the sum automatically.
would have to run the code once again.
Any ideas???
thanks
--
orenfarh
-----------------------------------------------------------------------
orenfarhi's Profile:
http://www.excelforum.com/member.php...fo&userid=1622
View this thread:
http://www.excelforum.com/showthread.php?threadid=27633