[VBA] Αυτοματη συμπληρωση textbox συμφωνα με 2 combobox

[ChrisGT7]

Καλησπέρα Γιώργο,

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

Φύλλο ΚΑΕ
Περιέχει όλους τους κωδικούς ΚΑΕ. Απλά αλλάζεις τις περιγραφές, όταν θέλεις να καταχωρήσεις κάποιον. Αν υπάρχουν συγκεντρωμένοι σε κάποιο αρχείο, τότε πολύ εύκολα μπορούν να περάσουν κι εδώ.

Φύλλο ΚΙΝΗΣΕΙΣ
Εδώ καταχωρούνται όλες οι κινήσεις των ΚΑΕ. Αν πληκτρολογήσεις κάποιον ΚΑΕ στη στήλη Α που δεν υπάρχει στο φύλλο ΚΑΕ, τότε εμφανίζεται αντίστοιχο μήνυμα.
Με το φίλτρο (βελάκι σε κάθε στήλη) αναζητάς, ταξινομείς ό,τι χρειάζεσαι. Πολύ εύκολα μαθαίνεται ο χειρισμός του.
Μείωσα τη δεύτερη στήλη του S/N θεωρώντας ότι μια εγγραφή αναφέρεται σε μοναδικό S/N. Η στήλη + αφορά τις εισαγωγές και η στήλη - τις εξαγωγές.

Φύλλο ΚΑΡΤΕΛΑ
Πληκτρολογώντας στο C2 τον κωδικό ΚΑΕ, εμφανίζονται η περιγραφή του (αν υπάρχει φυσικά στο φύλλο ΚΑΕ) και φυσικά όλες οι κινήσεις από το φύλλο ΚΙΝΗΣΕΙΣ που τον αφορούν, ταξινομημένες με την ημερομηνία με αύξουσα σειρά ανεξαρτήτα πως έχουν καταχωρηθεί στις κινήσεις.
Στα Διαθέσιμα S/N εμφανίζονται όλα τα S/N όπου το άθροισμα των εισαγωγών είναι μεγαλύτερο των εξαγωγών. Αν είναι μηδέν ή αρνητικό (κακώς αν είναι αρνητικό...), τότε δεν υπάρχει στη στήλη.

Και όπως είχα αναφέρει, όντως με τις συναρτήσεις INDEX στην ΚΑΡΤΕΛΑ για 500 γραμμές πίνακα, η καθυστέρηση ήταν αρκετά σημαντική στην πληκτρολόγηση και εμφάνιση των αποτελεσμάτων και γι' αυτό τον μείωσα στις 100 γραμμές. Σκέψου τι θα γίνει στις τόσες γραμμές που επιθυμείτε... Αφαίρεσα τελείως τις συναρτήσεις, γιατί πλέον ο κώδικας υπολογίζει τα διαθέσιμα ΚΑΕ. Οπότε ο πίνακας μπορεί να αυξηθεί χωρίς καθυστερήσεις πλέον με λίγη τροποποίηση στα εύρη.

[Rodokanator]

Πολυ καλη δουλεια! Πολυ ευχρηστο και παρα πολυ ελαφρυ και γρηγορο! Ελπιζω να το χρησιμοποιησουν! Εμενα παντως με καλυπτει!!! Και παλι ευχαριστω!

[Rodokanator]

Για καλη μας τυχη το αρχειο εγινε δεκτο απο ολους!!! Μια ερωτηση μονο. Υπαρχει τροπος να βαζω καποι hyperlinks στη στηλη ΜΕΤΑΦΟΡΑ τα οποια θα δουλευουν και στο φυλλο ΚΑΡΤΕΛΑ? Γιατι οταν το βαλω στο φυλλο ΚΙΝΗΣΕΙΣ δουλευει αλλα δεν δουλευει στο συγκεντρωτικο του φυλλου ΚΑΡΤΕΛΑ.

[ChrisGT7]

Χαίρομαι που σας άρεσε και ελπίζω να σας διευκολύνει στην καθημερινότητά σας! :)

Για τη λειτουργία των υπερσυνδέσμων στην ΚΑΡΤΕΛΑ, δοκίμασε τα εξής:

1. Αντικατέστησε το xlPasteValues με το xlPasteAllExceptBorders

2. Ακριβώς κάτω από το πρώτο End With πρόσθεσε το παρακάτω κομμάτι κώδικα:

    With [B6:G105].Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Αν δεν τα καταφέρεις, μπορώ να ανεβάσω το τροποποιημένο αρχείο.

[Rodokanator]

Όλα δουλεύουν τέλεια! Τελευταία ενόχληση! Μπορούμε να βάλουμε στο φύλλο ΚΑΡΤΕΛΑ ένα refresh ώστε όταν κάνω μια αλλαγή στο φύλλο ΚΙΝΗΣΕΙΣ και ξαναγυρναω στο φύλλο ΚΑΡΤΕΛΑ να μη χρειάζεται να πληκτρολογώ ξανά όλο το κωδικό?

[ChrisGT7]

Αν πατήσεις F2 στο κελί C2 και μετά Enter είναι σαν να τον πληκτρολόγησες από την αρχή και θα αλλάξουν όλα.

Αυτό βολεύει ή προτιμάς κουμπί;

[Rodokanator]

Οπως ξαναεχω πει δεν ειναι για εμενα.....οποτε ενα κουμπι θα εκανε τα πραγματα τελεια!!!

[ChrisGT7]

Σε καταλαβαίνω απόλυτα!

Ελπίζω να τους αρέσει το χρώμα του κουμπιού! :)

[Rodokanator]

Πολυ καλο σε ευχαριστω πιστευω οτι καλυψαμε τα παντα!!!!

[ChrisGT7]

Καλησπέρα Γιώργο,

Χαίρομαι που όλα βαίνουν καλώς! :)

Μια μικρή λεπτομέρεια που ίσως να σας χρειαστεί στο μέλλον είναι η ανάλυση της ποσότητας ανά S/N, δηλαδή δίπλα από κάθε διαθέσιμο S/N να υπάρχει και η αντίστοιχη ποσότητα. Θα μπορείτε έτσι να βλέπετε και τα αρνητικά.

Δείτε αν χρειάζεστε κάτι τέτοιο και με ενημερώνεις.