Add data Sum in several sheets

[yetti]

Could some kind person assist with this?

Main data on a range is split by macro into several worksheets and each
worksheet get named as the result of the filtered split (i.e. if column A of
main data is entered with various rows cat dog rat there will be worksheets
called cat dog rat containing original rows from main data
sheet.
If say another data line is out into Main data sheet with column A cell
called Monkey a further running of the macro is needed that adds another
worksheet called Monkey and so on.


It is required, as next step, to total each of the worksheets putting a
double underlined total box with light grey shading .

Then open another worksheet called summary that lists each total row from
each of these worksheets with that all totalled.

It is beyond my experience but would appreciate some code in order I might
make it an example to then by trial and error learn to adapt my recording of
macro's as a beginner.

Your help or ideas is appreciated greatly.

 

[Debra Dalgleish]

Do you really need each item on a separate sheet? You could use an
AutoFilter and a Subtotal formula to display individual items and their
totals.

To create a summary of the master list in another workbook, you could
create a pivot table. There are instructions in Excel's help, and here:

http://www.contextures.com/xlPivot01.html

 

[yetti]

Thank you for your assistance Debra I will check out your link and work
through all that is contained on a very good and well presented site.
As a learner looks to be invaluable as I am trying to "self teach". I will
try to learn the Pivot approach........For sake of inquisitiveness.Though
code would be nice too in order I understand how to record macro's but where
data varies by row or column or work book sheets varies It would be nice to
insert an "all embracing code" a kind person called Bob Philips already gave
me some for finding the last row
iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
Cells(iLastRow+1,"A") = ... your sum formula

I was after something for worksheets as well

Once again your prompt assistance is really appreciated

 

[yetti]

Debra,
Looks like your book due in March is going to be an invaluable read and work
of reference if your site is anything to go by.
Good effort.

 

[Bob Phillips]

It will be. Debra is an authority on the subject.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[Bob Phillips]

Yetti,

If you want to process all the sheets, you could use something like

For Each sh In Activeworkbook.Worksheets
'then sh points at the next worksheet
If sh.Name = "Summary" Then
'you don't want to process Summary inj this loop
... now do your stuff
End If
Next sh

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[yetti]

Bob and Debra.............Many Thanks.......Hope I learn enough fairly soon
to assist others but I fear it is a long road yet.......or should I say
yetti.
Best regards