[Γενικά] Άθροίσματα

[Echo]

Αγαπητοί φίλοι καλησπέρα,

Θα ήθελα να μου προτείνεται μία λύση στο εξής πρόβλημα:
Κάνω απογραφή τα προιόντα της αποθήκης μου και θα ήθελα να βάλω όσο λιγότερο χέρι γίνεται.Τα προιόντα σχηματίζουν SET αλλά πωλούνται και μεμονωμένα.Έστω πχ ότι έκανα καταμέτρηση και βρήκα τα τεμάχια για κάθε κωδικό(SET και μεμονωμένο).Τα SET όμως θα πρέπει να σπάσουν σε μεμονωμένα και το σύνολο των τεμαχίων για κάθε SET να προστεθεί σε κάθε επιμέρους κωδικό που το αποτελεί.
πχ στη στήλη ΣΥΝΟΛΙΚΑ σας εξηγώ για την περίπτωση του πρώτου SET.

Υπάρχει τρόπος να γίνεται αυτόματα για τα υπόλοιπα;

Σας ευχαριστώ,
Ζαχαρίας

Καλημέρα σε όλους.

Ζαχαρία, μία πρώτη προσέγγιση στο ζητούμενό σου, θα βρείς στο συνημμένο μου.

Δές το και τα ξαναλέμε.

[Echo]

Καλησπέρα σε όλους,

Λευτέρη σε ευχαριστώ πολύ για τη βοήθειά σου.Όμως φαντάσου ότι το αρχείο μου μπορεί να έχει χιλιάδες εγγραφές για αυτό ψάχνω να βρω κάποια λύση που θα ισχύσει αυτόματα σε όλες τις εγγραφές.Δηλ όταν αλλάζει ο κωδικός του ΣΕΤ να προσθέτονται τα τεμάχιά του σε κάθε επιμέρους κωδικό(Μεμονωμένο).

Με εκτίμηση,
Ζαχαρίας

[gr8styl]

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

Φίλε Ζαχαρία θα πρέπει να φτιάξεις ένα πίνακα αντιστοίχίας μεταξύ Μεμονωμένων και Set.

Δες το αποτέλεσμα στο συνημμένο.

Θανάσης

[gr8styl]

... και αν η διάταξη είναι πάντα όπως στο παράδειγμά "collection",
αρκεί να βάλουμε τον τύπο
=E3 στο κελί J3 και τον τύπο
=IF(A3<>"";A3;K2) στο κελί K3
στο "collection_1.xls" που ανέβασα στο προηγούμενο μήνυμα.
αντιγράφοντας τα J3 και K3 προς τα κάτω έχουμε αυτόματα τις αντιστοιχίες.

[kapetang]

Καλησπέρα στην παρέα

Ζαχαρία, στο αρχείο που επισυνάπτω προσπάθησα να δώσω μια λύση στο ζητούμενο με VBA.
Συγκεκριμένα δημιούργησα τη συνάρτηση «AddSet» η οποία στα τεμάχια ενός υλικού προσθέτει και τα τεμάχια από το σετ υλικών στο οποίο συμμετέχει.

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

Ο κώδικας της συνάρτησης δίνεται παρακάτω:

Public Function AddSet(rngSET As Range, rngSingle As Range)
    Dim startV As Long
    AddSet = ""
    If Not IsEmpty(rngSingle) Then
        startV = rngSingle
        Do Until IsEmpty(rngSingle)
            Set rngSingle = rngSingle.Offset(-1, 0)
        Loop
        AddSet = startV + Cells(rngSingle.Row, rngSET.Column)
    End If
End Function

Όπως φαίνεται η συνάρτηση έχει δύο ορίσματα.
Το πρώτο «rngSET» είναι η στήλη με τις ποσότητες των σετ. Στη συγκεκριμένη περίπτωση έχει τιμή: C:C.
Το δεύτερο όρισμα «rngSingle» είναι το κελί στην ίδια γραμμή με τον τύπο (συνάρτηση), που περιέχει την ποσότητα των απλών υλικών.

Ο τύπος (συνάρτηση) αντιγράφεται στην γραμμή 3 μιας στήλης και σύρεται προς τα κάτω όσο χρειάζεται.

Όπως βλέπω, από τη δομή του φύλλου, κάθε υλικό (άρωμα) συμμετέχει σ’ ένα μόνο σετ.
Δηλαδή δεν αντιμετωπίζεται η περίπτωση, που νομίζω δεν αποκλείεται, να συμμετέχει σε περισσότερα σετ.
Θα μπορούσε να χρησιμοποιηθεί η συνάρτηση και σ’ αυτήν την περίπτωση με την προϋπόθεση οι ποσότητες των απλών υλικών στα άλλα σετ θα είναι μηδενικές.

Φιλικά/Γιώργος
ΥΓ Φίλε Θανάση καλωσόρισες. Είδα τη λύση σου, όταν ανέβαζα την απάντησή μου

[Echo]

Καλησπέρα στην παρέα,

παιδιά σας ευχαριστώ πάρα πολύ για τις λύσεις σας.Με έχετε βοηθήσει πάρα πολύ για να πετύχω το τελικό σποτέλεσμα.Μια τελευταία ερώτηση;
Έστω ότι ξεκινάω την καταμέτρηση πρώτα από τους κωδικούς των SET και δεν ξέρω τεμάχια Μεμονωμένων ακόμα.Αυτά θα πρέπει να σπάσουν σε Μεμονωμένα.
Θα πρέπει με το που βλέπει πχ για το πρώτο SET(κωδ 3444) τεμάχια 50 να γίνονται 50 οι επιμέρους κωδικοί.Αντίστοιχα για το 3150 οι υποκωδικοί 3121,3122,3123,3124 να γίνουν 82.Και αν κάποιο είναι κενό(δεν βρεθεί) να επιστρέψει 0 στα Μεμονωμένα.Υπάρχει τρόπος να γίνει αυτό?
Αυτό βέβαια ισχύει στην περίπτωση που κάθε SET αποτελείται από ένα μόνο υποκωδικό αλλά προς το παρόν το αφήνω έτσι.
Γιώργο έχεις δίκιο στην επισήμανση και ισχύει αυτό που λες αλλά θα το σκεφτώ στη συνέχεια.Την πολύτιμη βοήθεια που μου προσφέρετε θα προσπαθήσω να προσαρμόσω στις ανάγκες μου.

Σας ευχαριστώ πάρα πολύ όλους.

Καλημέρα σε όλους

Ζαχαρία, κάτι νομίζω πετύχαμε... Θέλει μικροβελτιώσεις, αλλά δεν έχω χρόνο τώρα δυστυχώς..

Ρίξε μία ματιά και τα λέμε...

Καλησπέρα και πάλι.

Βελτιωμένη λίγο έκδοση, της ίδιας λογικής.

Τα λέμε.

[kapetang]

Καλησπέρα στην παρέα

Ζαχαρία, στο αρχείο που επισυνάπτω υπάρχει μια βελτιωμένη προσέγγιση του ζητούμενου.

1. Τροποποίησα τη συνάρτηση για να δίνει αποτελέσματα και στην περίπτωση που τα τεμάχια στα σετ ή τα απλά υλικά είναι κενά.
Επειδή, βλέποντας ένα κενό κελί δεν ξέρω αν έχει μηδενική τιμή ή ξέχασα να του δώσω τιμή, προτιμώ να πληκτρολογώ και τις μηδενικές τιμές.

2. Πρόσθεσα ένα συγκεντρωτικό πίνακα για την αντιμετώπιση και των περιπτώσεων, που κάποια υλικά ανήκουν σε πολλά σετ ή δεν ανήκουν σε κανένα.

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

Φιλικά/Γιώργος