[Συναρτήσεις] Αυτόματη ενημέρωση στηλών

[Echo]

Καλημέρα σε όλους και συγχαρητήρια για την άψογη δουλειά.

Θα ήθελα μια βοήθεια στο εξής πρόβλημα:
Θα ήθελα στο αρχείο που επισυνάπτω να γίνεται αυτόματη ενημέρωση της στήλης stock ή sales αντίστοιχα.Δηλ όταν προσθέτω έναν αριθμό στο stock να αφαιρείται απο το sales.Δηλ,για το product1 αν το 50 γίνει 51 τότε το 38 να γίνει 37.Να ισχύει και το αντίστροφο,αν προσθέσω 5 στο sales να αφαιρεθούν 5 από το stock αυτό για κάθε στήλη stock και sales.

Σας ευχαριστώ εκ των προτέρων

[gr8styl]

Φίλε Ζαχαρία,
νομίζω πρέπει να ξανασκεφτείς το ερώτημά σου και την οργάνωση των δεδομένων σου.

Είναι όπως τα έσοδα, έξοδα και το υπόλοιπο=ταμείο
όταν αυξάνεις τα έξοδα (πχ Sales στο παράδειγμά σου) θέλεις να μειώνεται το ταμείο (δηλ Stock στο παράδειγμά σου) δηλαδή τα έσοδα δεν πρέπει να αλλάζουν.
όταν αυξάνεις το ταμείο θέλεις να μειώνονται τα έξοδα δηλαδή πάλι τα έσοδα σταθερά.

Σου λείπει λοιπόν ο όρος "έσοδα" (Initial).

Για πες μας τί γίνεται λοιπόν με αυτό το Initial νομίζω λείπει από το αρχείο σου.

Για να συμβαίνουν οι αυξομειώσεις που λές θα πρέπει αυτό το Initial να είναι σταθερό και ίσο με με stock+sales.
Δηλαδή Stock=Initial-Sales και Sales=Initial-Stock.


Στο συνημμένο stock_1.xls λοιπόν εγώ έβαλα σταθερές τιμές στις στήλες D, G, και J και με τις 6 παρακάτω γραμμές κώδικα νομίζω έγινε το ζητούμενο.
(Δεξί κλικ στο όνομα του φύλλου για να επεξεργαστείς τον κώδικα)

Ο κώδικας είναι:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 3, 6, 9 'columns C, F and I
            Cells(Target.Row, Target.Column + 2) = Cells(Target.Row, Target.Column + 1) - Target.Value
        Case 5, 8, 11 'columns E, H and K
            Cells(Target.Row, Target.Column - 2) = Cells(Target.Row, Target.Column - 1) - Target.Value
    End Select
End Sub

Δοκίμασε και πες μας.
Φιλικά
Θανάσης

[Echo]

Καλησπέρα Θανάση,
σε ευχαριστώ ιδιαίτερα τόσο για τη βοήθειά σου ,όσο και για τον κατατοπιστικότατο τρόπο επίλυσης του προβλήματος.Έχεις απόλυτο δίκιο και είσαι απόλυτα σωστός.Η αλήθεια είναι ότι το έγραψα "στο πόδι" και δεν έδωσα τις σωστές πληροφορίες αλλά για καλή μου τύχη το κατάλαβες.Ζητώ συγνώμη για αυτό.Πράγματι το όλο θέμα αφορά προιόντα,πωλήσεις και σύνολο στην αποθήκη(Initial).Stock+Sales=Initial ,το οποίο όμως καθημερινά θα αλλάζει.Οπότε κάθε φορά θα ενημερώνω τα σταθερά αθροίσματα με τα νέα και οι πράξεις γίνονται.
Το μόνο που θα ήθελα,αν έχεις την καλοσύνη και τη διάθεση να μου εξηγούσες περιληπτικά τον κώδικα,τι ακριβώς κάνει η κάθε συνάρτηση,γιατί πρόσφατα άρχισα να μπαίνω στον κόσμο της VBA και με τη βοήθειά σου θα επεκτείνω το αρχείο γιατί αυτό είναι ένα μικρό δείγμα.Στην πραγματικότητα το αρχείο είναι πολύ μεγαλύτερο αλλά ήθελα να καταλάβω τη λογική και να το επεκτείνω μόνος μου,ώστε να μάθω.
Σε ευχαριστώ πολύ και πάλι.

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

[gr8styl]

Φίλε Ζαχαρία, καλησπέρα/καλημέρα.
Στον κώδικα, κάθε φορά που αλλάζει κάτι στο φύλλο εκτελείτε ο κώδικας, και το Target είναι το κελί/περιοχή που άλλαξε.

Με την Case ανάλογα την στήλη που έγινε η αλλαγή χρησιμοποιώ τον κατάλληλο τύπο για να υπολογίσω τα διπλανά κελιά στην ίδια γραμμή

Αν πρόσεξες στις στήλες 3,6 και 9 έχω το Stock στις διπλανές τους 4,7 και 10 το Initial και στις διπλανές 5, 8 και 11 το Sales
άρα αν αλλάξει η 3 θα πρέπει να βάλω στην 5 την διαφορά της 3 από την 4. κοκ

Νομίζω όμως ότι το νέο συνημμένο stock_noVBA.xls που δεν περιέχει κώδικα VBA αλλά μόνο συναρτήσεις, Θα σε βοηθήσει καλύτερα, και θα μπορέσεις να το προσαρμόσεις ευκολότερα στις ανάγκες σου.

Δες το και αποφάσισε. Πες μας τι έκανες.

Τα λέμε.
Θανάσης

[ΤΖΙΜΗΣ]

Θανάση καλησπέρα θα ήθελα να μου πεις πως στο πρώτο συνημμένο αρχείο έκανες απόκρυψη στις στήλες D,J, G
Eυχαριστώ.

[gr8styl]

Αρχική Δημοσίευση από ΤΖΙΜΗΣ

Θανάση καλησπέρα θα ήθελα να μου πεις πως στο πρώτο συνημμένο αρχείο έκανες απόκρυψη στις στήλες D,J, G
Eυχαριστώ.

Φίλε Τζίμη,
Επιλέγω μια μια τις στήλες D, J και G
και μέσω του μενού Δεδομένα κάνω Ομαδοποίηση
Η κάθε ομάδα μπορεί να ανοίξει ή να κλείσει πατώντας το + ή - που εμφανίζεται.
Θανάσης

[ΤΖΙΜΗΣ]

Θανάση ευχαριστώ πολύ.

[Echo]

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

Ζαχαρίας

[Echo]

Φίλε Θανάση καλησπέρα,
τελικά με το παράδειγμά σου,με χρήση VBA κάλυψα πλήρως τις ανάγκες που μου παρουσιάστηκαν οπότε δεν χρειάστηκα κάτι άλλο.

Σε ευχαριστώ πάρα πολύ για τη βοήθεια,

Ζαχαρίας

[gr8styl]

Φίλε Ζαχαρία με την σειρά μου ευχαριστώ για την ανταπόκριση και τα καλά σου λόγια.

Έτσι πρέπει να κάνουν όλοι για να ξέρουμε τελικά αν και πώς έγινε κάθε φορά το ζητούμενο.

Φιλικά
Θανάσης