Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Αυτοματη συμπληρωση textbox συμφωνα με 2 combobox (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5771-aytomati-symplirosi-textbox-symfona-me-2-combobox.html)

Rodokanator 16-03-21 10:04

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

ChrisGT7 16-03-21 16:02

Γιώργο,

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

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 16-03-21 16:18

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

ChrisGT7 16-03-21 16:46

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

Κώδικας:

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 16-03-21 17:09

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

Rodokanator 05-04-21 21:48

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

ChrisGT7 05-04-21 23:46

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

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

Rodokanator 06-04-21 12:43

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

Rodokanator 06-04-21 12:47

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

ChrisGT7 06-04-21 22:02

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

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

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


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

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


Search Engine Optimization by vBSEO 3.3.2