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

[Rodokanator]

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

[ChrisGT7]

Γιώργο,

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

Private Sub CmdDelete_Click()
    Dim R As Long
    If LsBx.ListIndex < 1 Then Exit Sub
    R = Sheets("KAE").Range("A:A").Find(LsBx.List(LsBx.ListIndex)).Row
    Sheets("KAE").Rows(R & ":" & R).Delete
    CmdSearch_Click
    LsBx.Selected(LsBx.ListIndex) = True
End Sub

[Rodokanator]

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

[ChrisGT7]

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

Private Sub CmdDelete_Click()
    If LsBx.ListIndex < 1 Then Exit Sub
    Dim R As Long
    R = Sheets("KAE").Range("A:A").Find(LsBx.List(LsBx.ListIndex), _
        LookIn:=xlFormulas, LookAt:=xlWhole).Row
    Sheets("KAE").Rows(R & ":" & R).Delete
    CmdSearch_Click
End Sub

[Rodokanator]

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

[Rodokanator]

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

[ChrisGT7]

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

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

[Rodokanator]

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

[Rodokanator]

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

[ChrisGT7]

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

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

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