sum a range
 

I have a program that filters a table and should sum the visible rows in a
particular column and store the results in an array variable. This occurs
inside a for loop. Everything works fine except for the sum part. I'm not
sure what the correct code should be to accomplish this. Here is what I have,
which does not work. Is there a suitable replacement for this?
With workbooks("Data").Sheets("Sheet1").ListObjects("tb lData")

iLoop2PrevWeek(iLoopCount) = WorksheetFunction.Sum _
(.ListColumn(4).DataBodyRange.SpecialCells(xlCellT ypeVisible))

End with

sum a range
 

Hi Brad, would you be able to provide more information on the structure of
the workbook and the full code.

If this post helps click Yes
---------------
Jacob Skaria

"Brad" wrote:

I have a program that filters a table and should sum the visible rows in a
particular column and store the results in an array variable. This occurs
inside a for loop. Everything works fine except for the sum part. I'm not
sure what the correct code should be to accomplish this. Here is what I have,
which does not work. Is there a suitable replacement for this?
With workbooks("Data").Sheets("Sheet1").ListObjects("tb lData")

iLoop2PrevWeek(iLoopCount) = WorksheetFunction.Sum _
(.ListColumn(4).DataBodyRange.SpecialCells(xlCellT ypeVisible))

End with