[kapetang]

Καλησπέρα

Μάρω το ξανακοίταξα και βρήκα καλύτερη λύση.
Στο αρχείο, που επισυνάπτω (.xls 2003), υπάρχει μία μακροεντολή (mcrCount) η οποία αν εκτελεστεί, αφού γίνουν οι καταχωρήσεις στη στήλη B, γεμίζει κατάλληλα τη στήλη A.
Στην access 2003, που έχω, μπορείς να τη δεις και να την εκτελέσεις με την επιλογή: Εργαλεία > Μακροεντολή > Μακροεντολές.
Μπορείς επίσης να την εκτελέσεις πατώντας το συνδυασμό πλήκτρων: Ctrl + m.
Ο κώδικας βασίζεται στη θέση των δεδομένων στο φύλλο1. Αν συνεπώς αλλάξει θα πρέπει να προσαρμοστεί.
Ειδικά ο κώδικας έχει μία δομή επανάληψης (Do Loop) που σταματά όταν το τελευταίο κελί στη στήλη B είναι κενό ή γράφει : ΣΥΝΟΛΑ.

Φιλικά/Γιώργος