Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Ενημέρωση Διαφορετικών Διαδοχικών Κελιών Με Ενα Combobox (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3402-enimerosi-diaforetikon-diadoxikon-kelion-me-ena-combobox.html)

dream-garden 06-11-14 06:40

Ενημέρωση Διαφορετικών Διαδοχικών Κελιών Με Ενα Combobox
 
Καλημέρα!
Εχω δημιουργήσει ένα υπολογιστικό φύλλο για την όσο το δυνατόν πιο "αυτοματοποιημένη"
τιμολόγηση ειδών (Περιγραφή-Κωδικός-Προμηθευτής-Αξία, κ.λ.π.).
Χρησιμοποιώ ένα ComboBox για κάθε σειρά, έτσι ώστε επιλέγοντας το προϊόν
να ενημερώνονται αυτόματα όλα τα υπόλοιπα οριζόντια πεδία
(με χρήση της συνάρτησης VLOOKUP). Είμαι όμως υποχρεωμένος, αν θέλω
για παράδειγμα να εισάγω 40 ή 50 είδη, να δημιουργήσω 40 ή 50 αντίστοιχα
Comboboxes για τους απαραίτητους υπολογισμούς.

Με ποιον τρόπο θα μπορούσα (υποθέτω με χρήση VBA?) να υπάρχει ένα μόνο ComboBox
το οποίο να ενημερώνει διαδοχικά κελιά;

Παράδειγμα: Επιλέγοντας μέσω του ComboBox ένα προϊόν, ενημερώνονται τα κελιά
της σειράς 1 (Α1,Β1,C1,D1 / Περιγραφή-Κωδικός-Προμηθευτής-Αξία, κ.λ.π.).
Αυτό που χρειάζομαι είναι όταν επιλέξω το επόμενο προϊόν, να ενημερωθούν τα κελιά
της σειράς 2 (A2,B2,C2,D2 / Περιγραφή-Κωδικός-Προμηθευτής-Αξία, κ.λ.π.) και έτσι μέχρι
το τέλος των σειρών που απαιτούνται.

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

Εψαξα στο Forum αλλά τα θέματα είναι τόσο πολλά που δεν βρήκα αυτό που θα με βοηθήσει
(αν και πιστεύω οτι θα υπάρχει διαθέσιμο).

Σας ευχαριστώ για το χρόνο σας!

Spirosgr 06-11-14 12:57

1 Συνημμένο(α)
Καλησπέρα
Μια λύση στο ζητούμενο είναι η εξής:

1 ] Φτιάχνουμε μια φόρμα, με ένα combobox, μια listbox και δύο κουμπιά.
2 ] Συνδέουμε το combobox σε μια rowsourse, που είναι λίστα προϊόντων.
3 ] Στο πρώτο κουμπί βάζουμε κώδικα, που «παίρνει» τα επιλεγμένα στο combobox
και τα «περνάει» στην listbox.
4 ] Βάζουμε κώδικα στο δεύτερο κουμπί, για να ενημερώνει μια περιοχή φύλλου
με την λίστα στοιχείων που περάσαμε στην listbox.
Ταυτόχρονα κλείνει η φόρμα.
Υπόδειγμα φόρμας και κώδικα στο βιβλίο που ακολουθεί.
Στο υπόδειγμα τιμολογίου πιέστε την κεφαλίδα products για να εμφανιστεί η φόρμα.

dream-garden 07-11-14 04:37

Σ'ευχαριστώ για τη βοήθεια!
Θα το δουλέψω και αν χρειαστεί, θα επανέλθω!
Με μια πρώτη ματιά που έριξα, μάλλον με καλύπτει!
Σ'ευχαριστώ και πάλι!


Η ώρα είναι 08:39.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2