[Γενικά] ListBox-ετικέτες

[gfevran]

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

Ευχαριστώ για όποια βοήθεια.

[Spirosgr]

Θα μπορούσες να κάνεις, διάφορα πράγματα...

Μερικά από αυτά:
Ένα
Να αφήσεις όπως είναι τον κώδικα (με το Listbox.List=....) και να βάλεις ετικέτες, επάνω από την λίστα, χωρίς κεφαλίδες.
Δύο
Να καταργήσεις το Listbox.List=... από τους κώδικες, ορίζοντας από την 2η γραμμή της περιοχής
και κάτω, μια RowSource, στις ιδιότητες της λίστας...

Για διάφορους λόγους, θα επέλεγα την πρώτη μέθοδο.

[gfevran]

Καλημέρα,
Σπύρο Ευχαριστώ για τις προτάσεις σου, τις έχω κρατήσει για μελλοντική χρήση,
αλλά είχα ξεκινήσει μέσα από τη vba και τη διαχείριση ονομασιών να ονομάσω σε iData,
στις ιδιότητες της λίστας RowSource και εκεί μου έβγαζε τις κεφαλίδες στη UserForm δίπλα, όλα καλά,
μέχρι εκεί, όταν όμως πήγαινα να ανοίξω τη φόρμα μου έπαιρνα μήνυμα "Run time error 70".
σε αυτό το σημείο θα ήθελα λίγη βοήθεια
Ευχαριστώ,

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

[Spirosgr]

Ρίξε μια ματιά στο αρχείο...

Στο Initialize, έγινε:
ListBox1.List = Sheets("Data").Range("iTable").Value

Θα πρέπει να διορθώσεις και όπου αλλού, υπάρχει η «πηγή» της λίστας.

Δεν είδα με προσοχή τον κώδικα, αλλά υπάρχουν κάποια πράγματα
που διάβασα στα «πεταχτά» και που πρέπει να διορθωθούν.

Στα κουμπιά έχεις ActiveWorkbook.Save

Δεν ξέρω αν πρέπει μετά από κάθε κλικ να αποθηκεύει.
Καλό θα ήταν να μπεί μια αποθήκευση στο τέλος,
στο κλείσιμο του βιβλίου, με μορφή Me.Save.

Από την άλλη, ActiveWorkbook.Save, σημαίνει αποθηκεύω το ενεργό βιβλίο.

Αν αργότερα, χρειαστεί για παράδειγμα να είναι ανοιχτό κάποιο άλλο βιβλίο
(χειροκίνητα ή από κώδικα) και εκείνη την στιγμή είναι ενεργό το άλλο βιβλίο;

Εκεί έχουμε τεράστιο σφάλμα...

Βάλε στην θέση τους ThisWorkbook.Save (όπως έβαλα στο πρώτο κουμπί)
για να αποθηκεύει «Αυτό το βιβλίο εργασίας...»

Πάντως εγώ θα το έβαζα στο τέλος όπως προείπα...

[gfevran]

Σπύρο, Σ' Ευχαριστώ για το χρόνο σου
Θα κάνω τις αλλαγές που μου υπέδειξες και θα δοκιμάσω.
Φιλικά,
Γιώργος