[Εκτύπωση] Άθροισμα ανά σελίδα

[gr8styl]

Καλημέρα σας.
Χρυσόστομε, ξεκινώντας από το αρχικό παράδειγμα του Τάσου,
έσβησα και πρόσθεσα στήλες και γραμμές για να πετύχω το επιθυμητό layout και άλλαξα τις 3 γραμμές του κώδικα από:
Range("A15:A400").SpecialCells(xlCellTypeFormulas) .EntireRow.Delete Shift:=xlUp
Offer.Range("C16:K3232").ClearContents
.Range("K16").AutoFilter Field:=7, Criteria1:="<>"

σε:
Range("A8:A4000").SpecialCells(xlCellTypeFormulas) .EntireRow.Delete Shift:=xlUp
Offer.Range("C8:I3209").ClearContents
.Range("J9").AutoFilter Field:=4, Criteria1:="<>"

Επίσης προσάρμοσα τους τύπους:
=SUMIF(INDIRECT("A15:"&A1);"=";INDIRECT("L15:"&SUB STITUTE(A1;"A";"L")))
=SUMIF(INDIRECT("A15:"&A2);"=";INDIRECT("L15:"&SUB STITUTE(A2;"A";"L")))

στις γραμμές 1 και 2:
=SUMIF(INDIRECT("A7:"&A1);"=";INDIRECT("J7:"&SUBST ITUTE(A1;"A";"J")))
=SUMIF(INDIRECT("A7:"&A2);"=";INDIRECT("J7:"&SUBST ITUTE(A2;"A";"J")))

Το αποτέλεσμα είναι στο συνημμένο.

Χρόνια πολλά και καλές γιορτές
Θανάσης