Forum - VBA Καθυστέρηση της φόρμας

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

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

- - [VBA] Καθυστέρηση της φόρμας (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2322-kathysterisi-tis-formas.html)

Καθυστέρηση της φόρμας

Καλησπέρα και καλή χρόνια
Η μέθοδος ComboBox2.List() = Worksheets("Κατηγ. Δαπανών").Range("c:c").Value μου καθυστερεί την εμφάνιση της φόρμας.
Και ειδικά για πολλές λίστες παράδειγμα:
ComboBox2.List() = Worksheets("Κατηγ. Δαπανών").Range("c:c").Value
ComboBox3.List() = Worksheets("Κατηγ. Δαπανών").Range("c:c").Value
ComboBox4.List() = Worksheets("Κατηγ. Δαπανών").Range("c:c").Value
Όποια Βοήθεια δεκτή, σας ευχαριστώ εκ’ των πρότερων Γιώργος.

Καλησπέρα!

Γιώργο δοκίμασε:

Κώδικας:

    With Sheet1 ' Sheet1 = το κωδικό όνομα του φύλλου όπως φαίνεται στον VBE. Παράδειγμα: Sheet1 (Κατηγ. Δαπανών). _

                 Είναι πιο σίγουρο να χρησιμοποιείται το κωδικό όνομα του φύλλου από το όνομα _

                 που εμφανίζεται στην καρτέλα του φύλλου το (οποίο το δεύτερο) αν μετονομασθεί _

                 θα προκαλέσει προβήματα στον κώδικα.

                

        ComboBox2.List = Range(.Cells(1, 3), .Cells(Rows.Count, 3).End(xlUp)).Value

        ComboBox3.List = ComboBox2.List

        ComboBox4.List = ComboBox2.List

    End With

Τάσος

Σε ευχαριστώ και πάλι για την άμεση βοήθεια