Forum - VBA Userform

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Userform (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3068-userform.html)

Γεια σας παιδιά,
Θα ήθελα τη βοήθεια σας για ένα userform
Ανεβάζω συνημμένο για να γίνω πιο κατανοητός.
Ευχαριστώ για όποια βοήθεια.

Καλησπέρα!

Γιώργο στο συνημμένο υπάρχει ένα παράδειγμα που καλύπτει το ζητούμενο.

Θα χρειαστεί να μελετήσεις τον κώδικα για να κάνεις τυχόν μετατροπές.

Φιλικά

Τάσος

Καλημέρα!
Τάσο Συγνώμη για την ενόχληση!
Εκτιμώ την πολύτιμη βοήθεια σου για τώρα και σε παλαιότερς περιπτώσεις.
χρειάζομαι λίγη ακόμη βοήθεια γιατί κόλλησα.
μετά από τροποποιήσεις που έκανα
δεν εμφανίζει από τα περιεχόμενα της lisbox στο textbox για να κάνω επεξεργασία
επίσης θα ήθελα όπως είναι αυτό αλλά πιο απλό χωρίς ταξινόμηση!
τώρα προσπαθώ να μάθω λίγο vba

Ευχαριστώ πολύ
Γιώργος

Καλησπέρα!

Γιώργο, αρχικά παρατήρησα 2 πράγματα:

1. το στοιχείο "lstCategory" έχει μια στήλη ενώ εσύ του ζητάς τιμή από την ανύπαρκτη δεύτερη στήλη του ( .List(.ListIndex, 1).

.List(.ListIndex, 0) = Πρώτη στήλη του πλαισίου λίστας.
.List(.ListIndex, 1) = Δεύτερη στήλη κοκ.

2. Το στοιχείο "txtname" δεν είναι πλαίσιο κειμένου αλλά πλαίσιο λίστας.

Αφαίρεσε το πλαίσιο λίστας "txtname" και βάλε στη θέση του ένα πλαίσιο κειμένου με το ίδιο όνομα.

Τροποποίησε τον κώδικα του συμβάντος Private Sub lstCategory_Click() όπως φαίνεται παρακάτω:

Κώδικας:

Private Sub lstCategory_Click()

    Me.NewRecord = False

    Me.txtname.Text = Me.lstCategory.Value

End Sub

Φιλικά

Τάσος

Καλησπέρα!
Τάσο μετά τις διορθώσεις που πρότεινες απλά τέλειο...
Σ' Υπέρ ευχαριστώ
Με απέραντο σεβασμό στη γνώση σου.
ν' σε πάντα καλά να βοηθάς!

Φιλικά
Γιώργος