Forum

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/6130-kena-kelia.html)

ΔΗΜΗΤΡΙΟΣ 31-05-22 06:07

Κενά κελιά
 
1 Συνημμένο(α)
Θέλω να διαγράψω τα κενά κελιά της στήλης Α αλλά κάθε φορά διαγράφετε μόνο ένα!

kapetang 31-05-22 11:53

1 Συνημμένο(α)
Καλημέρα

1)
Δημήτρη ο κώδικας που έγραψες προωθεί τις μη κενές τιμές προς τα πάνω, αλλά δεν εξασφαλίζει ότι με ένα πέρασμα θα συγκεντρωθούν όλες στο πάνω μέρος.

Στον κώδικά σου πρόσθεσα έναν εξωτερικό βρόχο (for ) που επαναλαμβάνει τον κώδικα και εξασφαλίζει τη συγκέντρωση όλων των τιμών στο πάνω μέρος.

2)
Πρόσθεσα επίσης τη μακροεντολή DeleteBlanks, που κάνει αποτελεσματικότερα το ζητούμενο.

Η μακροεντολή δημιουργήθηκε με καταγραφή

ΔΗΜΗΤΡΙΟΣ 31-05-22 12:03

Σε ευχαριστώ πολύ Γιώργο!!

kapetang 31-05-22 12:46

Να είσαι καλά και καλή συνέχεια!

ΔΗΜΗΤΡΙΟΣ 31-05-22 13:58

Επίσης Γιώργο!


Η ώρα είναι 05:10.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2