On 2002-02-21 18:37, NateO wrote:
The way I interpreted the question was that the placement of the sum formula, which varies, is equally as important as the function itself. To properly place the function, vba is required.
I do like your streamlined vba, the tone of the post is a little much for me. I get on here to help people, not to impress more experienced users necessarily.
It's all good. Cheers, Nate
On 2002-02-21 19:00, NateO wrote:
Tu ne parles pas anglais?
"The answer (total) must stand in the cell next to x1"
zuts alors
On 2002-02-21 19:08, Tikas A. Planck wrote:
What is your point Miss Oliver?
When entering the formula, put it in cell x1.
I'm bored with this. Goodbye.
On 2002-02-21 17:56, Tikas A. Planck wrote:
In any event, I don't think much of your code.
All that is needed is :-
Sub For_Holland()
[A1].End(xlToRight)(1, 2).Value = Application.Sum(Range([A1], [A1].End(xlToRight)))
End Sub
On 2002-02-21 17:58, Juan Pablo G. wrote:
Another option, a Named Formula.
Select B1. This is IMPORTANT
Go to Insert, Names, Define.
In the first box type SumLeft, and in the Refers To, put this formula:
<pre>
=SUM(Sheet1!$A1:A1)
</pre>
Now, you can use it in a cell like this
=SumLeft
and it will Sum from Column A to the one on the left of that cell. It also adjustes automatically to insert or delete of columns.
On 2002-02-21 17:58, Juan Pablo G. wrote:
Another option, a Named Formula.
Select B1. This is IMPORTANT
Go to Insert, Names, Define.
In the first box type SumLeft, and in the Refers To, put this formula:
<pre>
=SUM(Sheet1!$A1:A1)
</pre>
Now, you can use it in a cell like this
=SumLeft
and it will Sum from Column A to the one on the left of that cell. It also adjustes automatically to insert or delete of columns.