27-04-24, 09:30
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
| |
Καλημέρα Γιώργο,
Παρατηρώ πως έχεις τις παρακάτω γραμμές στον κώδικά σου: Κώδικας: ListBox1.List = Sheets("Data").Range("A2:D" & [A10000].End(3).Row).Value 'For refresh listbox
ListBox1.List = Sheets("Data").Range("iTable").Value
Πιστεύω πως η πρώτη γραμμή δε χρειάζεται, ενώ στη δεύτερη αν αντικαταστήσεις το List με RowSource έχεις αυτό που ζητάς.
__________________
Your Curiosity Will Be The Death Of You! |