Απλα αψογο! Ευχαριστω πολυ Χρηστο νομιζω το τερματισαμε!!! Πλεον κανει τα παντα!

Επιστρέφω μετά από αρκετό καιρό εργασίας με το φύλλο και μπορώ να πω ότι αν και έχει μεγαλώσει αρκετά σε μέγεθος και δεδομένα παραμένει ελαφρυ και γρήγορο. Προέκυψε όμως ένα νέο πρόβλημα. Ο αριθμός των ΚΑΕ έχει γίνει μεγάλος με αποτέλεσμα να μην μπορείς να θυμάσαι εύκολα σε τι αντιστοιχεί το κάθε ένα. Υπάρχει τρόπος χωρίς να αλλάξουμε πολύ τη μορφή του φύλλου ( όπως είπα δεν το χρησιμοποιώ εγώ) να προσθέσουμε μια αναζήτηση για το ΚΑΕ βασισμένο σε περιγραφή?

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

Έβαλα αναζήτηση ΚΑΕ στην καρτέλα. Πατώντας το μεγεθυντικό φακό, εμφανίζεται η φόρμα αναζήτησης ΚΑΕ, όπου μπορείτε να ψάχνετε είτε με τον ΚΑΕ είτε με την περιγραφή τους. Ο αστερίσκος (*) είναι ο χαρακτήρας μπαλαντέρ.

Στο φύλλο ΚΑΕ έχω κρύψει τις στήλες D:H, οι οποίες χρησιμοποιούνται για το προηγμένο φίλτρο και τα αποτέλεσμα των κριτηρίων που χρησιμοποιεί η φόρμα αναζήτησης.

Ελπίζω να σας διευκολύνει αυτή η πρόταση.

Όπως πάντα άμεσος και αποτελεσματικός. Μια παρατήρηση μόνο. Μπορούμε το list box να ξεκινάει άδειο και να δείχνει μόνο αποτελέσματα αφού πατήσουμε την αναζήτηση? Ρωτάω γιατί κάθε φορά που κάνει καθαρισμό η φόρμα επειδή ξαναφορτωνει τα πάντα καθυστερεί πολύ.

Από τη φόρμα χρήστη (User Form) FrmSearch, διέγραψε τελείως την υπορουτίνα UserForm_Initialize().

Το εκανα αλλα οταν εχει αποτελεσματα απο αναζητηση και πατησεις καθαρισμο το listbox παραμενει γεματο. Προσθεσα την εντολη LsBx.Clear οταν πατιεται το κουμπι καθαρισμου αλλα παραμενει γεματο οποτε κατι κανω λαθος.

Για δοκίμασε το συνημμένο αρχείο.

Τέλεια σε ευχαριστώ πάρα πολύ!!!!

Προσθεσα μερικα κουμπια για να επιβεβαιωσω οτι αυτοι που χρησιμοποιουν το φυλλο δεν θα τα κανουν μπαχαλο. Εφτιαξα ενα κουμπι για καταχωρηση νεων ΚΑΕ, ενα για διαγραφη και ενα για εξοδο απο τη φορμα. Η εγγραφη και η εξοδος δουλευουν μια χαρα. Στο κουμπι διαγραφης εβαλα τον εξης κωδικα

Private Sub CmdDelete_Click()
Dim i As Integer
For i = 1 To Range("A65356").End(xlUp).Row - 1
If LsBx.Selected(i) Then
Rows(i + 1).Select
Selection.Delete
End If
Next i

End Sub

ωστε οτι επιλεγει πανω στο ListBox να διαγραφει αλλα δεν μου δουλευει. Που εχω κανει το λαθος???

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

Επειδή δε γνωρίζω τον τρόπο που γεμίζει το ListBox, δοκίμασε να δεις αν λειτουργεί ο παρακάτω κώδικας:
Αλλιώς ανέβασε ένα δείγμα του αρχείου με τη φόρμα διαγραφής. Πάντως ο γενικός κανόνας όταν διαγράφουμε γραμμές είναι να ξεκινάμε ανάποδα, δηλαδή από κάτω προς τα πάνω.

Το αρχειο ειναι αυτο που μου ειχες στειλει. Σε αυτό έχω κάνει αλλαγές.

Γιώργο,

Δοκίμασε τον παρακάτω κώδικα διαγραφής:

Μου βγαζει σφαλμα στη γραμμη
LsBx.Selected(LsBx.ListIndex) = True

Για δοκίμασε αυτό:

Τελεια ολα καλα!!!!

καλησπερα και παλι!
Ανεβαζω ενα δειγμα του αρχειου μαζι με μια ερωτηση:
Οταν ερχεται ενα αντικειμενο στην αποθηκη πολλες φορες δεν εχει serial number και ειναι σε μεγαλο αριθμο. Καποια απο αυτα λοιπον τα χρεωνουμε στους εργαζομενους. Μπορουμε με καποιο τροπο να βλεπουμε ποσα απο αυτα ειναι χρεωμενα? Σκεφτομουν να βαλω στο φυλλο ΚΑΕ στη πρωτη στηλη τους αριθμους των ταυοτητων και στη περιγραφη το ονοματεπωνυμο και μετα με τα φυλλο ΚΙΝΗΣΕΙΣ ΚΩΔΙΚΩΝ να κανω χρεωσεις κανονικα. Ομως κατι τετοιο θα οδηγησει σε λαθος αποτελεσματα γιατι ο αριθμος αυτων που εχω στην αποθηκη δεν αλλαζει αλλαζουν τα χρεωμενα.

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

Λείπει το αρχείο! Για δοκίμασε πάλι να το ανεβάσεις.

Εχω ενα προβλημα το μεγεθος του αρχειου ειναι 3,06mb και αν το συμπιεσω παει στα 1,2mb οποτε και παλι δεν μπορω να το στειλω, Αν το σπασω σε πολλα κομματια μετα την αποσυμπιεση βγαζει σφαλμα και δεν το τρεχει. Υπαρχει αλλος τροπος να το στειλω?

Βασικα το δικο σου αρχειο ειναι με καποιες οπτικες αλλαγες οποτε....

Θα σου πρότεινα να χρησιμοποιήσεις τη στήλη C (φύλλο ΚΑΕ) για να βάζεις τον υπάλληλο που είναι αυτή τη στιγμή χρεωμένος ο κάθε ΚΑΕ.

Μια άλλη πρόταση είναι όταν κάποιος ΚΑΕ δεν έχει S/N, μπορείτε να χρησιμοποιείτε ως "S/N" τον αριθμό ταυτότητας ή τον ΑΦΜ του υπαλλήλου που έχει χρεωθεί το αντίστοιχο αντικείμενο. Μ' αυτόν τον τρόπο θα βλέπετε τις κινήσεις του ΚΑΕ ανά υπάλληλο, όπως ακριβώς με τα S/N. Όταν έρθει το σωστό S/N, με μια απλή αντικατάσταση (Ctrl+H) αλλάζετε τον ΑΦΜ ή ΑΔΤ με το S/N.

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

Θα προσπαθησω να σου εξηγησω με ενα παραδειγμα. Εστω οτι εχω στο ΚΑΕ 01 001 500 τεμαχια. Τοτε στο φυλλο ΚΙΝΗΣΕΙΣ θα γραψω το ΚΑΕ, το ειδος της μεταφορας, την ημερομηνια και στη στηλη + τον αριθμο 500. Εστω τωρα οτι θελω 50 απο αυτα τα τεμαχια να τα χρεωσω σε ατομο. Αν προσθεσω στο φυλλο ΚΑΕ τον αριθμο ταυτοτητας στη στηλη Α και στη στηλη Β το ονοματεπωνυμο θα μπορω να τον αναζητησω στο φυλλο ΚΑΡΤΕΛΑ. Πως ομως μπορω να κανω τη χρεωση? Ελπιζω να το περιεγραψα σωστα...

Θα γράψεις δύο γραμμές με ακριβώς τα ίδια στοιχεία, πλην της ποσότητας:

Η πρώτη γραμμή θα έχει 450 και η άλλη 50 τεμάχια. Στη γραμμή με τα 50 τεμάχια μπορείς να χρησιμοποιήσεις την ταυτότητα του υπαλλήλου αντί για S/N.

Αν τώρα στο φύλλο ΚΑΕ έχεις ως στήλες ΑΔΤ, ΟΝΟΜ/ΜΟ, ΚΑΕ, ΠΕΡΙΓΡΑΦΗ ΚΑΕ, τότε στην στήλη Ε μπορείς να χρησιμοποιήσεις μια SUMIF() να σου αθροίζει ανά υπάλληλο το σύνολο των τεμαχίων από το φύλλο KINHSEIS.

Κάτι τέτοιο χρειάζεσαι;

Βασικα αυτο που θελω ειναι να τα ενοποιησω ολα. Δηλαδη στο φυλλο ΚΑΡΤΕΛΑ οταν θα βαλω στο C2 τον αριθμο της ταυτοτητας να μπορω να δω τα χρεωμενα ειδη στον υπαλληλο. Το προβλημα μου ειναι πως θα καταχωρω τις χρεωσεις αυτες ωστε για παραδειγμα οταν θα ψαχνω ενα ΚΑΕ διπλα στο κελι που λεει το υπολοιπο να υπαρχει π.χ. αλλο ενα κελι που να αναγραφει ποσα ειναι τα χρεωμενα. Και παλι δεν ξερω αν το περιγραφω σωστα....
Στις κινησεις S/N αυτο ειναι πιο ευκολο γιατι αναγραφονται και το s/n και το ΚΑΕ και ο αριθμος ταυτοτητας. Στις κινησεις κωδικων ομως αν βαλω τον αριθμο της ταυτοτητας δεν αναγραφεται το ΚΑΕ του ειδους που χρεωνω......
μπερδεμα.....