Inserting page sum in footer

[JML0328]

Hello:

I'm trying to get my Excel spreadsheet to insert the sum of a certain column in the footer of each page it prints.

I checked the header/footer orientation and could not find anything.

Any ideas?

 

[Trevor G]

You would need to use some VBA to get a cell contents into Headers/Footers.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> headfoot()<br><SPAN style="color:#00007F">With</SPAN> ActiveSheet<br>    .PageSetup.LeftFooter = Range("D4")<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[JML0328]

I tried that and put in the formula I wanted and it gave me an error. Sub or function not defined.

 

[Trevor G]

Where did you add the code and run the macro?

You need to use Alt + F11 on the keyboard then go to Insert and Select Module copy the code across and close the VBA screen.

Then in the workbook use Alt + F8 on the sheet you want the macro to work on and then select the macro and it should work.

 

[JML0328]

The macro works. I placed the range in (E7:E37). But in this case, it only gave me the value of the E7 cell. I need to the sum of all the values in the E column on that page.

I tried to use the SUM function instead and got that error.

Sorry if I'm being vague.

 

[Trevor G]

Can you create a formula in another column to sum the range and then hide that column you can then use the cell id to give you the value.

 

[JML0328]

Yes, I will give that try. If not, I have another method lined up.

Thanks so much for your help.