Excel VBA Table Column Sum

[Randa]

Hi Everyone,

I've been stuck on this thing for hours and can't seem to find a way around it. I have created a sheet in vba that goes through another (parent) sheet, checks for values and then builds up 4 tables, one under the other, based on projects won, lost, on hold and on-going. I set these tables as Table1 , Table2, Table3, Table4... Issue is, I have to build a small summary table at the top of the sheet that shows the sums of each of these 4 tables..

Everything is built in vba from scratch because the workbook/sheet is also created. I am using the following formula to calculate the sums of COLUMN6 from Table1 but the code is wrong.. I know it's something of the sort, but I cannot find the right format.

wsO.Range("F4").Function = wsO.Application.WorksheetFunction.Sum("Table1[" & "Column6" & "]")

Can you please help? I have pulled all my hair trying to figure this out.

Reaaaallyy would appreciate it.

Thanks!

[err]

I need to check a total to determine if a file should be created. I did the following:

Dim balancedJeCheckRange As Variant
Dim balancedJeCheck As Variant
Dim sourceWorkbookName As String
Dim sourceSheetName As String
Dim sourceSheetName As String
sourceWorkbookName = "WORKBOOK NAME"
sourceWorkbookName = "WORKSHEET NAME"
sourceWorkbookName = "TABLE NAME"

Set balancedJeCheckRange = Workbooks(sourceWorkbookName).Sheets(sourceSheetName)
Set balancedJeCheckRange = balancedJeCheckRange.ListObjects(sourceTableName)
Set balancedJeCheckRange = balancedJeCheckRange.ListColumns("AMOUNT").Range
balancedJeCheck = Application.WorksheetFunction.Sum(balancedJeCheckRange)
balancedJeCheck = Application.WorksheetFunction.Round(balancedJeCheck, 2)

I then check the value of balancedJeCheck to decide whether to right the file or not.
You could also then assign it to a cell value.

I find this easier then working out the quotes.

I am could do this with fewer lines but did not need to from a performance perspective for my application.

Hope this helps.