Sum(Above)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Silver - 07 Oct 2004 15:00 GMT

Hello,

I want to be able to add up lines in a Word table using =SUM(ABOVE) however
that only adds up correctly if there are numbers in every line. If there is
a vacant line it only displays the totals of numbers up to that line. Is
there a way of overcoming this?

Please help

Reply to this Message

Jezebel - 07 Oct 2004 15:20 GMT

put in a zero and format it as hidden

> Hello,
>
[quoted text clipped - 4 lines]
>
> Please help

Reply to this Message

Graham Mayor - 07 Oct 2004 15:58 GMT

Or add the individual cells that constitute the total.
Or use an Excel link for your calculations.

Signature

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

> put in a zero and format it as hidden
>
[quoted text clipped - 6 lines]
>>
>> Please help

Reply to this Message

Suzanne S. Barnhill - 07 Oct 2004 17:57 GMT

See http://word.mvps.org/FAQs/AppErrors/SumAboveIncorrect.htm

Signature

Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

> Hello,
>
[quoted text clipped - 4 lines]
>
> Please help

Reply to this Message

Jane Pumroy - 11 Oct 2004 20:39 GMT

Please use this macro. It will work no matter which
column you are in or how many rows are in the table (we
have a document here that can span 24 pages). Works with
Word Visual Basic.

Sub SumColumn()
'
' SumColumn Macro
' Macro created 09/20/2004 by JAPUMROY
'
Dim Col As Integer
Dim Cell As Integer
Dim ColInfo

If Selection.Information(wdWithInTable) = False Then
MsgBox "The insertion point is not in a table."
End If
If Selection.Information(wdWithInTable) = True Then
Col = Selection.Cells(1).ColumnIndex
ColInfo = Chr(Col + 64)
End If
If Selection.Information(wdWithInTable) = True Then
Cell = Selection.Cells(1).RowIndex - 1
Set myRange = ActiveDocument.Words(1)
End If
myRange = "=SUM(" & ColInfo & "1:" & ColInfo & Cell
& ")"
Selection.InsertFormula Formula:=myRange,
NumberFormat:=""

End Sub

>-----Original Message-----
>Hello,
[quoted text clipped - 7 lines]
>
>.

Reply to this Message