[VBA] Αυτόματη αρίθμηση στηλών με κώδικα VBA

[George R]

Καλημέρα σε όλους

Έχω σε ένα φύλλο στο Excel κάποιες στήλες με δεδομένα, των οποίων ο αριθμός (το πλήθος των στηλών δηλαδή) μεταβάλλεται, βάσει κάποιων τύπων.


Ας πούμε π.χ. ότι τώρα έχω τις στήλες από την Ν κολώνα έως και την FS.

Οι στήλες ξεκινούν πάντα από την ίδια γραμμή (εδώ για παράδειγμα από την 7 σειρά Ν7, Ο7, P7....FS7), αλλά, το μήκος της κολώνας μπορεί να είναι διαφορετικό.

Θέλω με κώδικα VBA , 2 πράγματα:

1) Να μου αριθμεί τις στήλες μία μία αρχίζοντας από την πρώτη και σταματώντας στην τελευταία αυτόματα. Να βάζει τους αριθμούς 1,2,....162 σε 2 γραμμές πάνω από τις στήλες, δηλαδή το 1 στην Ν5, το 2 στην Ο5, το 3 στην P5 κλπ.


2) Να μου αριθμεί τις στήλες (δηλαδή πάλι ο ίδιος αριθμός ουσιαστικά), αλλά αυτή τη φορά να βάζει τους αριθμούς ακριβώς κάτω από την στήλη, εκεί που τελειώνουν τα δεδομένα. Θυμίζω ότι το μήκος των στηλών είναι μεταβλητό.

Ευχαριστώ πολύ.

[ChrisGT7]

Καλημέρα και καλή εβδομάδα Γιώργο,

Ελπίζω το συνημμένο να σε καλύπτει.

Αφού γράψεις στο Β1 τη γραμμή που ξεκινάνε τα δεδομένα, πατάς ΚΑΤΑΜΕΤΡΗΣΗ για τις δύο αριθμήσεις (πάνω και κάτω).

[George R]

Ευχαριστώ Χρήστο, θα το μελετήσω.