Καλημέρα.
Κατ' αρχάς αναφαίρεις...
«...Χρησιμοποιώ αυτό τον κώδικα "Columns("M:O").Hidden = False"
για απόκρυψη κάποιων κελιών...»
Αυτό εμφανίζει τις στήλες Μ έως Ο και δεν κρύβει κελιά...
Το σφάλμα 424,προκαλείται από κώδικα που παραπέμπει, σε μια ιδιότητα ή μέθοδο,
αλλά
δεν συνδέεται με το σωστό αντικείμενο ή
δεν μπορεί να εντοπίσει το αντικείμενο.
Αυτό με απλά λόγια σημαίνει, ότι κάποια γραμμή χτυπάει, επειδή δεν βρίσκει πχ
μια περιοχή στην σωστή θέση ή δεν είναι σεταρισμένη σωστά.
Ακόμα, το πιο πιθανό είναι, να μην έκανες σωστά αυτό που υπέδειξα στο προηγούμενο post.
Επειδή δεν μπορώ να μαντεύω, τι κάνεις με τον κώδικα σου,
ούτε θέλω να υποδείξω έναν κώδικα, χωρίς να έχω εικόνα του έργου,
θα προτείνω τα εξής:
Πήγαινε πίσω στην
Vba και δες το κωδικό όνομα του φύλλου που τρέχει ο κώδικας.
πχ
Φύλλο1 (Οτιδήποτε) ή
Sheet1 (Οτιδήποτε)
Πάρε αυτό το
μπλε όνομα και γράψε
στην πρώτη γραμμή, στην αρχή του κώδικα, κάτω από τον τίτλο του πχ
Φύλλο1.Unprotect και
από κάτω στην άλλη γραμμή
Φύλλο1.Protect
Άφησε την πρώτη γραμμή στην αρχή του κώδικα, κάτω από τον τίτλο του.
Βάλε την δεύτερη γραμμή στο τέλος του κώδικα, πριν από το End Sub.
Αν ενδιάμεσα στον κώδικα, υπάρχει κάποιος έλεγχος που οδηγεί σε Exit Sub,
τότε βάλε πριν από αυτό ( Exit Sub ) και πάλι το
Φύλλο1.Protect
Τρέξε τον κώδικα βηματικά (F8) και δες αν θα χτυπήσει και σε ποιό σημείο.
Τσέκαρε το σφάλμα, και διόρθωσέ το αν μπορείς ή ανέβασέ το να το δω...
* Γραμμές όπως η Columns("M:O").Hidden = False, και άλλες ...
καλό είναι να δένουν με το φύλλο πχ
Φύλλο1.Columns("M:O").Hidden = False
**Το καλύτερο θα ήταν να ανέβαζες τον κώδικα, από την αρχή της συζήτησης...