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

[crc]

Θανάση σε ευχαριστώ πάρα πολύ , και επίσης καλές γιορτές να έχεις και εσύ , αλλά θέλω να σε ρωτήσω και κάτι τελευταίο. Αν θελήσω να προσθέσω και άλλες γραμμές προς τα κάτω που πρέπει να αλλάξω κάτι έτσι ώστε να μην έχω θέμα με το τελικό αποτέλεσμα.

Ευχαριστώ πολύ και καλές γιορτές σε όλους :))

Χρυσόστομος

[gr8styl]

Αρχική Δημοσίευση από crc

... Αν θελήσω να προσθέσω και άλλες γραμμές προς τα κάτω που πρέπει να αλλάξω κάτι έτσι ώστε να μην έχω θέμα με το τελικό αποτέλεσμα.

Κάνεις εισαγωγή όσων γραμμών θέλεις πριν την γραμμή 3209.
Θα πρέπει να προσαρμόσεις την γραμμή του κώδικα:
Offer.Range("C8:I3209").ClearContents
Δηλαδή για εισαγωγή 200 γραμμών θα πρέπει να αλλάξεις τον κώδικα σε Offer.Range("C8:I3409").ClearContents¨
και αν σκοπεύεις να ξεπεράσεις τις 4000 γραμμές άλλαξε και την γραμμή
Range("A8:A4000").SpecialCells(xlCellTypeFormulas) .EntireRow.Delete Shift:=xlUp
σε Range("A8:A65000").SpecialCells(xlCellTypeFormulas) .EntireRow.Delete Shift:=xlUp

Καλή συνέχεια.
Θανάσης
ΥΓ. Μερος των ευχαριστιών στον Τάσο που έδωσε την αρχική λύση.