[VBA] Συγκεντρωτικά πωλήσεων

[dealer_xm]

Καλησπέρα σας,

Σε ένα αρχείο excel παρακολουθώ τις πωλήσεις ανά κωδικό προϊόντος. Σε ένα φύλλο τις χονδρικές και σε άλλο τις λιανικές. Οι εγγραφές των προϊόντων είναι επαναλαμβανόμενες.
Σε ένα τρίτο φύλλο προσπαθώ να συγκεντρώσω τις πωλήσεις σε πίνακες (συγκεντρωτικά ανά κωδικό προϊόντος). Ο πρώτος πίνακας αφορά την χονδρική, ο δεύτερος τη λιανική και ο τρίτος την χονδρική μαζί με τη λιανική αθροιστικά.

Προσπάθησα να το κάνω με συναρτήσεις αλλά επειδή οι εγγραφές είναι πάρα πολλές το αρχείο βαραίνει και αργεί.
Θα μπορούσε ίσως κάποιος να βοηθήσει χρησιμοποιώντας vba;

Σας ευχαριστώ.

[ChrisGT7]

Καλησπέρα Χρήστο,

Μια πρόταση να αποφύγεις τον κώδικα είναι η ενοποίηση των φύλλων ΧΟΝΔΡΙΚΗ και ΛΙΑΝΙΚΗ με την προσθήκη μιας επιπλέον στήλης (ΠΩΛΗΣΗ) με τιμές ΧΟΝΔΡΙΚΗ/ΛΙΑΝΙΚΗ.

Στη συνέχεια, στο φύλλο ΣΥΓΚΕΝΤΡΩΤΙΚΑ θα υπάρχουν τρεις συγκεντρωτικοί πίνακες με τα στοιχεία που χρειάζεσαι, όπου θα ανανεώνονται απλά με ένα δεξί κλικ.

Κάτι τέτοιο θα βόλευε;

[dealer_xm]

Καλησπέρα Χρήστο,

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

Σ`ευχαριστώ για την άμεση απάντηση, καλή συνέχεια.

[ChrisGT7]

Καλησπέρα Χρήστο,

Δοκίμασε το συνημμένο αρχείο αν σε καλύπτει.

[dealer_xm]

Καλησπέρα Χρήστο,

Το αρχείο είναι όπως ακριβώς το ήθελα.

Σ`ευχαριστώ ακόμα μια φορά για την πολύτιμη βοήθεια σου. Να είσαι καλά.

Καλό σου βράδυ.

[dealer_xm]

Καλησπέρα Σπύρο,

Ελπίζω να είσαι καλά.

Ήθελα να σε ρωτήσω εάν γίνεται στο φύλλο "Σύνολα" στις "Χονδρικές & λιανικές πωλήσεις" να κάνουμε ταξινόμηση βάση του κωδικού όταν πατάμε το κουμπί της ανανέωσης ή να κάνω την ταξινόμηση μέσω του φίλτρου;

Σ`ευχαριστώ.

[ChrisGT7]

Καλημέρα και καλή εβδομάδα Χρήστο,

Πριν τη γραμμή Application.Goto [A3], True, πρόσθεσε το παρακάτω κομμάτι κώδικα:

Range("A2:E" & [A2].CurrentRegion.Rows.Count).Sort Key1:=[A2], Order1:=xlAscending, Header:=xlYes
Range("G2:K" & [G2].CurrentRegion.Rows.Count).Sort Key1:=[G2], Order1:=xlAscending, Header:=xlYes
Range("M2:Q" & [M2].CurrentRegion.Rows.Count).Sort Key1:=[M2], Order1:=xlAscending, Header:=xlYes

Αν έχεις πρόβλημα με την εφαρμογή του, πες μου να ανεβάσω πάλι το αρχείο.

[dealer_xm]

Καλησπέρα Χρήστο,

Καλή εβδομάδα να έχουμε.

Είναι μια χαρά.

Σ`ευχαριστώ πολύ.