Autosum table column

account123

New Member
Joined
Oct 1, 2016
Messages
11
Hi...

My current activecell is one of the cells in the Totals row in a table, i have so many tables with different row count so the "FormulaR1C1" method is not working for me cause each time the values are different, i am looking for a code to enable me to autosum the whole column of the table.

Each table is in a separate workbook and all of them are named "Table1".

I Can manage to select the right cell in each table with my current code, but i cant autosum this column.

what i need is something like this, for example:

1. application.activecell.sum(thiscolumn)!

2. activecell=sum(thiscolumn)

On the other hand i have 2 cells (BQ6 & BQ7) which have the right First and Last cell to sum as text i.e" cell BQ6 has the text "E3" and cell BQ7 has the text "E8", and the right cell range i need to sum is actually E3:E8, so i tried this code and it didn't work:

Dim i as Range
Dim b as Range

Set i = Range(Range("BQ5").Value)
Set b = Range(Range("BQ6").Value)

ActiveCell.FormulaR1C1="=Sum(i:b)"

Thank you so much...
 

account123

New Member
Joined
Oct 1, 2016
Messages
11
thats looks good but the FieldName is different in every table, i can insert the correct field name in cell BQ8 but then i need o declare it at somethimg? i guess
 

SpillerBD

Well-known Member
Joined
Jul 2, 2014
Messages
2,705
The Field name will always be the header name from the table.
Like tables would be best using like headers simplifying those relationships.
 

account123

New Member
Joined
Oct 1, 2016
Messages
11
ok what would be the proper Dim method here or can u give me an example with a code please
 

SpillerBD

Well-known Member
Joined
Jul 2, 2014
Messages
2,705
thats looks good but the FieldName is different in every table, i can insert the correct field name in cell BQ8 but then i need o declare it at somethimg? i guess
Code:
BQRef= Range("BQ8").value
 ActiveCell.FormulaR1C1="=Sum(TableName,["&BQRef&"])"
 

Forum statistics

Threads
1,085,294
Messages
5,382,768
Members
401,804
Latest member
RB85

Some videos you may like

This Week's Hot Topics

Top